1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
|
#!/usr/bin/env perl
use 5.16.0;
use strict;
use warnings FATAL => 'all';
use Test::More;
use Capture::Tiny qw/ capture_merged /;
use FindBin '$RealBin';
use lib $RealBin;
use Test::Sbotools qw/ make_slackbuilds_txt set_lo set_repo sboinstall sboremove sbosnap restore_perf_dummy sboupgrade /;
use File::Temp 'tempdir';
if ($ENV{TEST_INSTALL}) {
plan tests => 28;
} else {
plan skip_all => 'Only run these tests if TEST_INSTALL=1';
}
$ENV{TEST_ONLINE} //= 0;
$ENV{TEST_MULTILIB} //= 0;
sub cleanup {
capture_merged {
unlink "$RealBin/LO-fail/failingslackbuild/perf.dummy";
unlink "$RealBin/LO-fail/failingslackbuild2/perf.dummy";
unlink "$RealBin/LO-fail/failingslackbuild3/perf.dummy";
unlink "$RealBin/LO-fail/failingdownload/perf.dummy.fail";
unlink "$RealBin/LO-fail/failingdownload2/perf.dummy.fail";
unlink "$RealBin/LO-fail/failingmd5sum/perf.dummy";
unlink "$RealBin/LO-fail/failingmd5sum2/perf.dummy";
unlink "$RealBin/LO-fail/nonexistentslackbuild/perf.dummy";
unlink "$RealBin/LO-fail/nonexistentslackbuild2/perf.dummy";
unlink "$RealBin/LO-fail/nonexistentslackbuild3/perf.dummy";
unlink "$RealBin/LO-fail/nonexistentslackbuild4/perf.dummy";
unlink "$RealBin/LO-fail/malformed-noinfo/perf.dummy";
unlink "$RealBin/LO-fail/malformed-info/perf.dummy";
unlink "$RealBin/LO-fail/malformed-info2/perf.dummy";
unlink "$RealBin/LO-fail/malformed-info3/perf.dummy";
unlink "$RealBin/LO-fail/malformed-readme/perf.dummy";
unlink "$RealBin/LO-fail/malformed-slackbuild/perf.dummy";
unlink "$RealBin/LO-fail/multilibfail/perf.dummy";
unlink "$RealBin/LO-fail/noreadmebutreadmereq/perf.dummy";
system(qw!rm -rf /tmp/SBo/failingslackbuild-1.0!);
system(qw!rm -rf /tmp/SBo/failingslackbuild2-1.0!);
system(qw!rm -rf /tmp/SBo/failingslackbuild3-1.0!);
system(qw!rm -rf /tmp/SBo/failingdownload-1.0!);
system(qw!rm -rf /tmp/SBo/failingdownload2-1.0!);
system(qw!rm -rf /tmp/SBo/failingmd5sum-1.0!);
system(qw!rm -rf /tmp/SBo/failingmd5sum2-1.0!);
system(qw!rm -rf /tmp/SBo/nonexistentslackbuild-1.0!);
system(qw!rm -rf /tmp/SBo/nonexistentslackbuild2-1.0!);
system(qw!rm -rf /tmp/SBo/nonexistentslackbuild3-1.0!);
system(qw!rm -rf /tmp/SBo/nonexistentslackbuild4-1.0!);
system(qw!rm -rf /tmp/SBo/malformed-noinfo-1.0!);
system(qw!rm -rf /tmp/SBo/malformed-info-1.0!);
system(qw!rm -rf /tmp/SBo/malformed-info2-1.0!);
system(qw!rm -rf /tmp/SBo/malformed-info3-1.0!);
system(qw!rm -rf /tmp/SBo/malformed-readme-1.0!);
system(qw!rm -rf /tmp/SBo/malformed-slackbuild-1.0!);
system(qw!rm -rf /tmp/SBo/multilibfail-1.0!);
system(qw!rm -rf /tmp/SBo/noreadmebutreadmereq-1.0!);
system(qw!rm -rf /tmp/package-failingslackbuild!);
system(qw!rm -rf /tmp/package-failingslackbuild2!);
system(qw!rm -rf /tmp/package-failingslackbuild3!);
system(qw!rm -rf /tmp/package-failingdownload!);
system(qw!rm -rf /tmp/package-failingdownload2!);
system(qw!rm -rf /tmp/package-failingmd5sum!);
system(qw!rm -rf /tmp/package-failingmd5sum2!);
system(qw!rm -rf /tmp/package-nonexistentslackbuild!);
system(qw!rm -rf /tmp/package-nonexistentslackbuild2!);
system(qw!rm -rf /tmp/package-nonexistentslackbuild3!);
system(qw!rm -rf /tmp/package-nonexistentslackbuild4!);
system(qw!rm -rf /tmp/package-malformed-noinfo!);
system(qw!rm -rf /tmp/package-malformed-info!);
system(qw!rm -rf /tmp/package-malformed-info2!);
system(qw!rm -rf /tmp/package-malformed-info3!);
system(qw!rm -rf /tmp/package-malformed-readme!);
system(qw!rm -rf /tmp/package-malformed-slackbuild!);
system(qw!rm -rf /tmp/package-multilibfail!);
system(qw!rm -rf /tmp/package-noreadmebutreadmereq!);
system(qw!/sbin/removepkg nonexistentslackbuild nonexistentslackbuild2 noreadmebutreadmereq multilibfail!);
};
}
cleanup();
make_slackbuilds_txt();
set_lo("$RealBin/LO-fail");
restore_perf_dummy();
# 1: Failing slackbuild script
sboinstall 'failingslackbuild', { input => "y\ny", expected => qr/Failures:\n failingslackbuild: failingslackbuild.SlackBuild return non-zero\n\z/, exit => 3 };
# 2-3: Failing download and md5sum
SKIP: {
skip "Not doing online tests", 2 unless $ENV{TEST_ONLINE};
sboinstall 'failingdownload', { input => "y\ny\nn", expected => qr!Failures:\n failingdownload: Unable to wget http://pink-mist[.]github[.]io/sbotools/testing/perf[.]dummy[.]fail[.]\n!, exit => 5 };
sboinstall 'failingmd5sum', { input => "y\ny\nn", expected => qr!Failures:\n failingmd5sum: md5sum failure for /usr/sbo/distfiles/perf[.]dummy[.]\n!, exit => 4 };
}
# 4: Failing dependency
sboinstall 'nonexistentslackbuild2', { input => "y\ny\ny\nn", expected => qr/Failures:\n failingslackbuild: failingslackbuild.SlackBuild return non-zero\n/, exit => 3 };
# 5-6: Failing download and md5sum in dependency
SKIP: {
skip "Not doing online tests", 2 unless $ENV{TEST_ONLINE};
sboinstall 'nonexistentslackbuild3', { input => "y\ny\ny\nn", expected => qr!Failures:\n failingdownload: Unable to wget http://pink-mist[.]github[.]io/sbotools/testing/perf[.]dummy[.]fail[.]\n!, exit => 5 };
sboinstall 'nonexistentslackbuild4', { input => "y\ny\ny\nn", expected => qr!Failures:\n failingmd5sum: md5sum failure for /usr/sbo/distfiles/perf[.]dummy[.]\n!, exit => 4 };
}
# 7: Failing build with working dep
sboinstall 'failingslackbuild2', { input => "y\ny\ny", expected => qr/Failures:\n failingslackbuild2: failingslackbuild2[.]SlackBuild return non-zero\n\z/, exit => 3 };
sboremove 'nonexistentslackbuild', { input => "y\ny", test => 0 };
# 8-9: Failing download and md5sum with working dep
SKIP: {
skip "Not doing online tests", 2 unless $ENV{TEST_ONLINE};
sboinstall 'failingdownload2', { input => "y\ny\ny\nn", expected => qr!Failures:\n!, exit => 5 };
sboinstall 'failingmd5sum2', { input => "y\ny\ny\nn", expected => qr!Failures:\n!, exit => 4 };
}
# 10: Malformed slackbuild - no .info
sboinstall 'malformed-noinfo', { expected => "get_from_info: could not read $RealBin/LO-fail/malformed-noinfo/malformed-noinfo.info.\n", exit => 1 };
# 11-13: Malformed slackbuild - malformed .info
sboinstall 'malformed-info', { input => "y\ny\nn", expected => qr!Failures:\n malformed-info: Unable to get download info from $RealBin/LO-fail/malformed-info/malformed-info[.]info\n!, exit => 7 };
sboinstall 'malformed-info2', { input => "y\ny\nn", expected => qr!Failures:\n malformed-info2: Unable to get download info from $RealBin/LO-fail/malformed-info2/malformed-info2[.]info\n!, exit => 7 };
sboinstall 'malformed-info3', { exit => 2, expected => "A fatal script error has occurred:\nerror when parsing malformed-info3.info file. Line: FAIL\nExiting.\n" };
# 14-15: Malformed slackbuild - no readme
sboinstall 'malformed-readme', { expected => "Unable to open README for malformed-readme.\n", exit => 6 };
sboinstall qw/ -r malformed-readme /, { test => 0 };
sboupgrade qw/ -f malformed-readme /, { expected => "Unable to open README for malformed-readme.\n", exit => 6 };
sboremove 'malformed-readme', { input => "y\ny", test => 0 };
# 16: Malformed slackbuild - no .SlackBuild
sboinstall 'malformed-slackbuild',
{ input => "y\ny", expected => qr!Failures:\n malformed-slackbuild: Unable to backup \Q$RealBin/LO-fail/malformed-slackbuild/malformed-slackbuild.SlackBuild to $RealBin/LO-fail/malformed-slackbuild/malformed-slackbuild.SlackBuild.orig\E!, exit => 6 };
# 17: Multilib fails - no multilib
SKIP: {
skip "No multilib test only valid when TEST_MULTILIB=0", 1 unless $ENV{TEST_MULTILIB} == 0;
skip "/etc/profile.d/32dev.sh exists", 1 if -e "/etc/profile.d/32dev.sh";
sboinstall qw/ -p nonexistentslackbuild /, { input => "y\ny\ny", expected => qr/Failures:\n nonexistentslackbuild-compat32: compat32 requires multilib[.]\n/, exit => 9 };
sboremove 'nonexistentslackbuild', { input => "y\ny", test => 0 };
}
# 18: Multilib fails - no convertpkg
SKIP: {
skip "No convertpkg test only valid when TEST_MULTILIB=1", 1 unless $ENV{TEST_MULTILIB} == 1;
skip "/etc/profile.d/32dev.sh doesn't exist", 1 unless -e "/etc/profile.d/32dev.sh";
skip "/usr/sbin/convertpkg-compat32 exists", 1 if -e "/usr/sbin/convertpkg-compat32";
sboinstall qw/ -p nonexistentslackbuild /, { input => "y\ny\ny", expected => qr!Failures:\n nonexistentslackbuild-compat32: compat32 requires /usr/sbin/convertpkg-compat32[.]\n!, exit => 11 };
}
# 19: Multilib fails - convertpkg fail
SKIP: {
skip "Multilib convertpkg fail test only valid if TEST_MULTILIB=2", 1 unless $ENV{TEST_MULTILIB} == 2;
skip "This test is designed to be run in the Travis CI environment", 1 unless $ENV{TRAVIS};
skip "No /etc/profile.d/32dev.sh", 1 unless -e "/etc/profile.d/32dev.sh";
skip "No /usr/sbin/convertpkg-compat32", 1 unless -e "/usr/sbin/convertpkg-compat32";
sboinstall qw/ -p multilibfail /, { input => "y\ny\ny", expected => qr/Failures:\n multilibfail-compat32: convertpkg-compt32 returned non-zero exit status\n/, exit => 10 };
}
# 20: Slackbuild exits 0 but doesn't create a package
sboinstall 'failingslackbuild3', { input => "y\ny", expected => qr/Failures:\n failingslackbuild3: failingslackbuild3.SlackBuild didn't create a package\n\z/, exit => 3 };
# 21: Slackbuild fails, but we still want to continue with the queue
sboinstall 'nonexistentslackbuild2', { input => "y\ny\ny\ny", expected => qr/Failures:\n failingslackbuild: failingslackbuild.SlackBuild return non-zero\n/, exit => 0 };
sboremove 'nonexistentslackbuild2', { input => "y\ny", test => 0 };
# 22: Slackbuild fails during noninteractive run
sboinstall qw/ -r failingslackbuild /, { expected => qr/Failures:\n failingslackbuild: failingslackbuild.SlackBuild return non-zero\n/, exit => 3 };
# 23-24: Slackbuild with %README% req without a readme
sboinstall qw/ -r noreadmebutreadmereq /, { test => 0 };
sboremove qw/ noreadmebutreadmereq /, { input => "y\nn", expected => qr/Unable to open README for noreadmebutreadmereq[.]/s, exit => 0 };
sboremove qw/ noreadmebutreadmereq /, { input => "n\ny\ny", expected => qr/Display README.*Remove noreadme.*Added to remove queue.*Removing 1 pack.*noreadme.*All operations/s, exit => 0 };
# 25: compat32 should fail for a perl sbo
SKIP: {
skip "This test is designed to be run in the Travis CI environment", 1 unless $ENV{TRAVIS};
my $dir = tempdir(CLEANUP => 1);
set_repo("file://$dir");
capture_merged { system(<<"END"); };
cd "$dir";
git init;
mkdir perl
cp -a "$RealBin/LO/perl-nonexistentcpan" perl
git add .
git commit -m 'added perl-nonexistentcpan'
END
sbosnap 'fetch', { test => 0 };
sboinstall qw/ -p perl-nonexistentcpan /, { expected => "-p|--compat32 is not supported with Perl SBos.\n", exit => 1 };
}
# 26: compat32 for malformed-readme fail
SKIP: {
skip "Multilib convertpkg fail test only valid if TEST_MULTILIB=2", 1 unless $ENV{TEST_MULTILIB} == 2;
skip "No /etc/profile.d/32dev.sh", 1 unless -e "/etc/profile.d/32dev.sh";
skip "No /usr/sbin/convertpkg-compat32", 1 unless -e "/usr/sbin/convertpkg-compat32";
sboinstall qw/ -p malformed-readme /, { expected => sub { m/\QUnable to open README for malformed-readme.\E\n/ and m/\Qmalformed-readme-compat32 requires malformed-readme.\E\n/ }, exit => 6 };
}
# 27: sboupgrade with -r and -z
set_lo "$RealBin/LO";
sboinstall qw/ -r nonexistentslackbuild /, { test => 0 };
set_lo "$RealBin/LO2";
sboupgrade qw/ -z -r nonexistentslackbuild /, { exit => 1, expected => "-r|--nointeractive and -z|--force-reqs can not be used together.\n" };
# 28: sboupgrade nonexistentslackbuildname
sboupgrade 'nonexistentslackbuildname', { exit => 1, expected => "Unable to locate nonexistentslackbuildname in the SlackBuilds.org tree.\n" };
# Cleanup
END {
cleanup();
}
|
