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
|
#!/usr/bin/env perl
# This should probably replace 01-test.t once it's thorough enough
use strict;
use warnings;
use Test::More;
use Test::Exit;
use FindBin '$RealBin';
use lib "$RealBin/../SBO-Lib/lib";
use SBO::Lib qw/ script_error usage_error open_fh %config indent get_installed_packages get_inst_names /;
use Capture::Tiny qw/ capture_merged /;
plan tests => 32;
# 1-2: test script_error();
{
my $exit;
my $out = capture_merged { $exit = exit_code { script_error(); }; };
is ($exit, 2, 'script_error() exited with 2');
is ($out, "A fatal script error has occurred. Exiting.\n", 'script_error() gave correct output');
}
# 3-4: test usage_error();
{
my $exit;
my $out = capture_merged { $exit = exit_code { usage_error('whatever'); }; };
is ($exit, 1, 'usage_error() exited with 1');
is ($out, "whatever\n", 'usage_error() gave correct output');
}
# 5-8: test open_fh();
{
my $exit;
my $out = capture_merged { $exit = exit_code { open_fh($0); }; };
is ($exit, 2, 'open_fh() exited with 2');
is ($out, "A fatal script error has occurred:\nopen_fh requires two arguments\nExiting.\n", 'open_fh() gave correct output');
SKIP: {
skip 'Tests invalid if ./foo/bar exists.', 2 if -e "$RealBin/foo/bar";
my ($warn, $status) = open_fh("$RealBin/foo/bar/baz", '>');
like ($warn, qr!Unable to open .*/foo/bar/baz\.\n!, 'open_fh() gave correct return value (1)');
is ($status, 6, 'open_fh() gave correct return value (2)');
}
}
# 9-13: test get_slack_version();
SKIP: {
skip 'Tests invalid if /etc/slackware-version exists.', 5 if -e '/etc/slackware-version';
local $config{SLACKWARE_VERSION} = 'FALSE';
my $exit;
my $out = capture_merged { $exit = exit_code{ SBO::Lib::get_slack_version(); }; };
is ($exit, 2, 'get_slack_version() exited with 2');
is ($out, "A fatal script error has occurred:\nopen_fh, /etc/slackware-version is not a file\nExiting.\n", 'get_slack_version() gave correct output');
my ($fh) = open_fh('/etc/slackware-version', '>');
print $fh "Slackware 0.0\n";
close $fh;
undef $exit;
$out = capture_merged { $exit = exit_code{ SBO::Lib::get_slack_version(); }; };
is ($exit, 1, 'get_slack_version() exited with 1');
is ($out, "Unsupported Slackware version: 0.0\n\n", 'get_slack_version() gave correct output (Unsupported)');
($fh) = open_fh('/etc/slackware-version', '>');
print $fh "Slackware 14.1\n";
close $fh;
is (SBO::Lib::get_slack_version(), '14.1', 'get_slack_version() returned the correct version');
unlink '/etc/slackware-version';
}
# 14-15: test indent();
is(indent(0, 'foo'), 'foo', 'indent(0,...) returns correctly');
is(indent(1, "foo\n\nbar"), " foo\n\n bar", 'indent(1,...) returns correctly');
# 16: test migrate_repo();
SKIP: {
skip 'Test invalid if no SLACKBUILDS.TXT exists.', 1 if ! -e '/usr/sbo/repo/SLACKBUILDS.TXT';
system("mv /usr/sbo/repo/* /usr/sbo");
system(qw! rmdir /usr/sbo/repo !);
SBO::Lib::migrate_repo();
ok (-d '/usr/sbo/repo', '/usr/sbo/repo correctly recreated by migrate_repo()');
}
# 17-18: test check_repo();
SKIP: {
skip 'Test invalid if no SLACKBUILDS.TXT exists.', 2 if ! -e '/usr/sbo/repo/SLACKBUILDS.TXT';
my $exit;
my $out = capture_merged { $exit = exit_code { SBO::Lib::check_repo(); }; };
is ($exit, 1, 'check_repo() exited with 1');
is ($out, "/usr/sbo/repo exists and is not empty. Exiting.\n\n", 'check_repo() gave correct output');
}
# 19-20: test rsync_sbo_tree();
{
my $exit;
my $out = capture_merged { $exit = exit_code { SBO::Lib::rsync_sbo_tree(); }; };
is ($exit, 2, 'rsync_sbo_tree() exited with 2');
is ($out, "A fatal script error has occurred:\nrsync_sbo_tree requires an argument.\nExiting.\n", 'rsync_sbo_tree() gave correct output');
}
# 21-27: test git_sbo_tree(), check_git_remote(), generate_slackbuilds_txt(), and pull_sbo_tree();;
{
system(qw! mv /usr/sbo/repo /usr/sbo/backup !) if -d '/usr/sbo/repo';
system(qw! mkdir -p /usr/sbo/repo/.git !);
my $res;
capture_merged { $res = SBO::Lib::git_sbo_tree(''); };
is ($res, 0, q!git_sbo_tree('') returned 0!);
system(qw! rm -r /usr/sbo/repo !) if -d '/usr/sbo/repo';
system(qw! mkdir -p /usr/sbo/repo/.git !);
my ($fh) = open_fh('/usr/sbo/repo/.git/config', '>');
print $fh qq'[remote "origin"]\n'; print $fh "foo=bar\n"; print $fh "url=\n";
close $fh;
undef $res;
capture_merged { $res = SBO::Lib::git_sbo_tree(''); };
is ($res, 0, q!git_sbo_tree('') with .git/config returned 0 !);
undef $res;
capture_merged { $res = SBO::Lib::git_sbo_tree('foo'); };
is ($res, 0, q!git_sbo_tree('foo') returned 0!);
system(qw! rm -r /usr/sbo/repo !) if -d '/usr/sbo/repo';
system(qw! mkdir -p /usr/sbo/repo/.git !);
($fh) = open_fh('/usr/sbo/repo/.git/config', '>');
print $fh qq'[remote "origin"]\n'; print $fh "[]";
close $fh;
undef $res;
capture_merged { $res = SBO::Lib::check_git_remote('/usr/sbo/repo', 'foo'); };
is ($res, 0, 'check_git_remote() returned 0');
system(qw! rm -r /usr/sbo/repo !) if -d '/usr/sbo/repo';
is (SBO::Lib::generate_slackbuilds_txt(), 0, 'generate_slackbuilds_txt() returned 0');
system(qw! mkdir -p /usr/sbo/repo/foo/bar !);
is (SBO::Lib::generate_slackbuilds_txt(), 1, 'generate_slackbuilds_txt() returned 1');
system(qw! rm -r /usr/sbo/repo !) if -d '/usr/sbo/repo';
local $config{REPO} = '';
capture_merged { SBO::Lib::pull_sbo_tree(); };
ok (!-e '/usr/sbo/repo/SLACKBUILDS.TXT', 'SLACKBUILDS.TXT was not generated by pull_sbo_tree()');
system(qw! rm -r /usr/sbo/repo !) if -d '/usr/sbo/repo';
system(qw! mv /usr/sbo/backup /usr/sbo/repo !) if -d '/usr/sbo/backup';
}
# 28-30: test get_installed_packages();
{
my $exit;
my $out = capture_merged { $exit = exit_code { get_installed_packages(); }; };
is ($exit, 2, 'get_installed_packages() exited with 2');
is ($out, "A fatal script error has occurred:\nget_installed_packages requires an argument.\nExiting.\n", 'get_installed_packages() gave correct output');
system(qw!mv /var/log/packages /var/log/packages.backup!);
system(qw!mkdir -p /var/log/packages!);
system(qw!touch /var/log/packages/sbotoolstestingfile!);
is (@{ get_installed_packages('SBO') }, 0, 'get_installed_packages() returned an empty arrayref');
system(qw!rm -r /var/log/packages!);
system(qw!mv /var/log/packages.backup /var/log/packages!);
}
# 31-32: test get_inst_names();
{
my $exit;
my $out = capture_merged { $exit = exit_code { get_inst_names(); }; };
is ($exit, 2, 'get_inst_names exited with 2');
is ($out, "A fatal script error has occurred:\nget_inst_names requires an argument.\nExiting.\n", 'get_inst_names() gave correct output');
}
|
