diff options
Diffstat (limited to 't/19-unit.t')
| -rw-r--r-- | t/19-unit.t | 184 |
1 files changed, 184 insertions, 0 deletions
diff --git a/t/19-unit.t b/t/19-unit.t new file mode 100644 index 0000000..eecd391 --- /dev/null +++ b/t/19-unit.t @@ -0,0 +1,184 @@ +#!/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 => 31; + +# 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-26: test git_sbo_tree(), check_git_remote(), and generate_slackbuilds_txt(); +{ + 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 "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'; + system(qw! mv /usr/sbo/backup /usr/sbo/repo !) if -d '/usr/sbo/backup'; +} + +# 27-29: 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!); +} + +# 30-31: 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'); +} |