diff options
| -rw-r--r-- | t/19-unit.t | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/t/19-unit.t b/t/19-unit.t index c2f0d21..7370b42 100644 --- a/t/19-unit.t +++ b/t/19-unit.t @@ -11,7 +11,7 @@ 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; +plan tests => 32; # 1-2: test script_error(); { @@ -114,7 +114,7 @@ SKIP: { 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(); +# 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 !); @@ -155,10 +155,16 @@ SKIP: { 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} = ''; + 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'; } -# 27-29: test get_installed_packages(); +# 28-30: test get_installed_packages(); { my $exit; my $out = capture_merged { $exit = exit_code { get_installed_packages(); }; }; @@ -174,7 +180,7 @@ SKIP: { system(qw!mv /var/log/packages.backup /var/log/packages!); } -# 30-31: test get_inst_names(); +# 31-32: test get_inst_names(); { my $exit; my $out = capture_merged { $exit = exit_code { get_inst_names(); }; }; |