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
|
#!/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 sbosnap sbocheck sboinstall sbofind restore_perf_dummy /;
if ($ENV{TEST_INSTALL} and $ENV{TRAVIS}) {
plan tests => 14;
} else {
plan skip_all => "Only run these tests if TEST_INSTALL=1 and we're running under Travis CI";
}
sub cleanup {
capture_merged {
system(qw!/sbin/removepkg nonexistentslackbuild!);
system(qw!/sbin/removepkg nonexistentslackbuild5!);
system(qw!/sbin/removepkg nonexistentslackbuild8!);
system(qw!/sbin/removepkg nonexistentslackbuildwithareallyverylongnameasyoucansee!);
system(qw!/sbin/removepkg s!);
system(qw!/sbin/removepkg nonexistentslackbuildwithareallyverylo!);
system(qw!/sbin/removepkg nonexistentslackbuildwithareallyverylon!);
system(qw!/sbin/removepkg nonexistentslackbuildwithareallyverylong!);
system(qw!/sbin/removepkg s2!);
system(qw!/sbin/removepkg weird-versionsbo!);
unlink "$RealBin/LO/nonexistentslackbuild/perf.dummy";
unlink "$RealBin/LO/weird-versionsbo/perf.dummy";
system(qw!rm -rf /tmp/SBo/nonexistentslackbuild-1.0!);
system(qw!rm -rf /tmp/SBo/nonexistentslackbuild5-1.0!);
system(qw!rm -rf /tmp/SBo/nonexistentslackbuild8-1.0!);
system(qw!rm -rf /tmp/SBo/nonexistentslackbuildwithareallyverylongnameasyoucansee-1.0!);
system(qw!rm -rf /tmp/SBo/s-1.0!);
system(qw!rm -rf /tmp/SBo/nonexistentslackbuildwithareallyverylo-1.0!);
system(qw!rm -rf /tmp/SBo/nonexistentslackbuildwithareallyverylon-1.0!);
system(qw!rm -rf /tmp/SBo/nonexistentslackbuildwithareallyverylon-1.0g!);
system(qw!rm -rf /tmp/SBo/s2-1.0!);
system(qw!rm -rf /tmp/SBo/weird-versionsbo-1.0!);
system(qw!rm -rf /tmp/package-nonexistentslackbuild!);
system(qw!rm -rf /tmp/package-nonexistentslackbuild5!);
system(qw!rm -rf /tmp/package-nonexistentslackbuild8!);
system(qw!rm -rf /tmp/package-nonexistentslackbuildwithareallyverylongnameasyoucansee!);
system(qw!rm -rf /tmp/package-s!);
system(qw!rm -rf /tmp/package-nonexistentslackbuildwithareallyverylo!);
system(qw!rm -rf /tmp/package-nonexistentslackbuildwithareallyverylon!);
system(qw!rm -rf /tmp/package-nonexistentslackbuildwithareallyverylong!);
system(qw!rm -rf /tmp/package-s2!);
system(qw!rm -rf /tmp/package-weird-versionsbo!);
system(qw!rm -rf!, "$RealBin/gitrepo");
};
}
sub setup_gitrepo {
capture_merged { system(<<"END"); };
cd "$RealBin"; rm -rf gitrepo; mkdir gitrepo; cd gitrepo;
git init;
mkdir -p "test/nonexistentslackbuild" "test/nonexistentslackbuild5";
cp "$RealBin/LO2/nonexistentslackbuild/nonexistentslackbuild.info" "test/nonexistentslackbuild"
cp "$RealBin/LO/nonexistentslackbuild5/nonexistentslackbuild5.info" "test/nonexistentslackbuild5"
git add "test"; git commit -m 'initial';
END
}
cleanup();
make_slackbuilds_txt();
set_lo("$RealBin/LO");
setup_gitrepo();
set_repo("file://$RealBin/gitrepo/");
restore_perf_dummy();
# 1-2: sbofind without having a repo yet
sbofind 'nonexistentslackbuild', { input => "n", expected => qr/It looks like you haven't run "sbosnap fetch" yet\.\nWould you like me to do this now\?.*Please run "sbosnap fetch"/ };
sbofind 'nonexistentslackbuild', { input => "y", expected => qr/It looks like you haven't run "sbosnap fetch" yet\.\nWould you like me to do this now\?/ };
# 3: sbocheck without having installed nonexistentslackbuild should not show it
sbocheck { expected => sub { $_[0] !~ /nonexistentslackbuild/} };
# 4: sbocheck should list nonexistentslackbuild as being newer on SBo after we've installed it
sboinstall 'nonexistentslackbuild', { input => "y\ny", test => 0 };
sboinstall 'nonexistentslackbuild5', { input => "y\ny", test => 0 };
sbocheck { expected => sub { /nonexistentslackbuild/ and not /nonexistentslackbuild5/ } };
# 5-7: sbocheck should make lines match up as best it can
sboinstall 'nonexistentslackbuildwithareallyverylongnameasyoucansee', { input => "y\ny", test => 0 };
sboinstall 's', { input => "y\ny", test => 0 };
sbocheck { expected => sub { /Updating SlackBuilds tree/ and not /nonexistentslackbuildwithareallyverylongnameasyoucansee/ } };
capture_merged { system <<"GIT"; };
cd "$RealBin/gitrepo"
mkdir -p test/nonexistentslackbuildwithareallyverylongnameasyoucansee test/s
cp "$RealBin"/LO2/nonexistentslackbuildwithareallyverylongnameasyoucansee/* test/nonexistentslackbuildwithareallyverylongnameasyoucansee
cp "$RealBin"/LO2/s/* test/s
git add "test"; git commit -m 'updates';
GIT
sbocheck { expected => qr/\Qs 1.0 < override outdated (1.1 from SBo)/ };
capture_merged { system <<"GIT"; };
cd "$RealBin/gitrepo"
mkdir -p test/nonexistentslackbuildwithareallyverylo
cp "$RealBin"/LO2/nonexistentslackbuildwithareallyverylo/* test/nonexistentslackbuildwithareallyverylo
git add "test"; git commit -m '2nd update'
GIT
sboinstall 'nonexistentslackbuildwithareallyverylo', { input => "y\ny", test => 0 };
sbocheck { expected => qr/\Qs 1.0 < override outdated (1.1 from SBo)/ };
capture_merged { system <<"GIT"; };
cd "$RealBin/gitrepo"
mkdir -p test/nonexistentslackbuildwithareallyverylon
cp "$RealBin"/LO2/nonexistentslackbuildwithareallyverylon/* test/nonexistentslackbuildwithareallyverylon
git add "test"; git commit -m '3rd update'
GIT
sboinstall 'nonexistentslackbuildwithareallyverylon', { input => "y\ny", test => 0 };
sbocheck { expected => qr/\Qs 1.0 < override outdated (1.1 from SBo)/ };
capture_merged { system <<"GIT"; };
cd "$RealBin/gitrepo"
mkdir -p test/nonexistentslackbuildwithareallyverylong
cp "$RealBin"/LO2/nonexistentslackbuildwithareallyverylong/* test/nonexistentslackbuildwithareallyverylong
git add "test"; git commit -m '4th update'
GIT
sboinstall 'nonexistentslackbuildwithareallyverylong', { input => "y\ny", test => 0 };
sbocheck { expected => qr/\Qs 1.0 < override outdated (1.1 from SBo)/ };
# 10: check different version in repo and LO and installed
set_lo("$RealBin/LO3");
sbocheck { expected => qr/\Qs 1.0 < needs updating (0.9 from overrides, 1.1 from SBo)/ };
# 11: check different version on SBo than what's installed
set_lo('FALSE');
sbocheck { expected => qr/\Qs 1.0 < needs updating (1.1 from SBo)/ };
# 12: check s2 being the same version in SBo but newer in LO
capture_merged { system <<"GIT"; };
cd "$RealBin/gitrepo"
cp -a "$RealBin"/LO/s2 test/
git add "test/s2"; git commit -m '5th update'
GIT
sbosnap 'update', { test => 0 };
sboinstall 's2', { input => "y\ny", test => 0 };
set_lo("$RealBin/LO2");
sbocheck { expected => qr/\Qs2 1.0 < needs updating (1.1 from overrides)/ };
# 13: check weird-versionsbo isn't picked up erroneously
set_lo("$RealBin/LO");
sboinstall 'weird-versionsbo', { input => "y\ny", test => 0 };
sbocheck { expected => sub { not /weird-versionsbo/ } };
# 14: check sbo no longer available
cleanup();
setup_gitrepo();
sbosnap 'update', { test => 0 };
sboinstall 'nonexistentslackbuild8', { input => "y\ny", test => 0 };
set_lo("$RealBin/LO2");
sbocheck { expected => qr/No updates available[.]/ };
# Cleanup
END {
cleanup();
}
|
