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
|
#!/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 /;
use File::Temp 'tempdir';
if ($ENV{TEST_INSTALL}) {
plan tests => 24;
} 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-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-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-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 nonexistentslackbuild2 noreadmebutreadmereq!);
};
}
cleanup();
make_slackbuilds_txt();
set_lo("$RealBin/LO-fail");
# 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 => "A fatal script error has occurred:\nopen_fh, $RealBin/LO-fail/malformed-noinfo/malformed-noinfo.info is not a file\nExiting.\n", exit => 2 };
# 11-12: 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 };
# 13: Malformed slackbuild - no readme
sboinstall 'malformed-readme', { expected => "A fatal script error has occurred:\nopen_fh, $RealBin/LO-fail/malformed-readme/README is not a file\nExiting.\n", exit => 2 };
# 14: 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 };
# 15: 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 };
}
# 16: 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 };
}
# 17: 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 };
}
# 18: 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 };
# 19: 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 };
# 20: Slackbuild fails during noninteractive run
sboinstall qw/ -r failingslackbuild /, { expected => qr/Failures:\n failingslackbuild: failingslackbuild.SlackBuild return non-zero\n/, exit => 3 };
# 21-23: Slackbuild with %README% req without a readme
sboinstall qw/ -r noreadmebutreadmereq /;
sboremove qw/ noreadmebutreadmereq /, { input => 'y', expected => qr/fatal script error.*open_fh/s, exit => 2 };
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 };
# 24: 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 };
}
# Cleanup
END {
cleanup();
}
|
