diff options
Diffstat (limited to 't/01-unit.t')
-rwxr-xr-x | t/01-unit.t | 51 |
1 files changed, 1 insertions, 50 deletions
diff --git a/t/01-unit.t b/t/01-unit.t index 1c29de2..4c735dd 100755 --- a/t/01-unit.t +++ b/t/01-unit.t @@ -11,25 +11,7 @@ use Capture::Tiny qw/ capture_merged /; use File::Temp 'tempdir'; use Cwd; -plan tests => 61; - -sub load { - my ($script, %opts) = @_; - - local @ARGV = exists $opts{argv} ? @{ $opts{argv} } : '-h'; - my ($ret, $exit, $out, $do_err); - my $eval = eval { - $out = capture_merged { $exit = exit_code { - $ret = do "$RealBin/../$script"; - $do_err = $@; - }; }; - 1; - }; - my $err = $@; - - note explain { ret => $ret, exit => $exit, out => $out, eval => $eval, err => $err, do_err => $do_err } if $opts{explain}; -} - +plan tests => 55; # 1-2: test script_error(); { @@ -321,34 +303,3 @@ SKIP: { is ($res[1], undef, 'perform_sbo returned correct src'); is ($res[2], 6, 'perform_sbo returned correct exit'); } - -# 56-59: sboclean unit tests... -{ - local (*main::show_usage, *main::rm_full, *main::remove_stuff, *main::clean_c32); - load('sboclean'); - - my $exit; - my $out = capture_merged { $exit = exit_code { main::rm_full(); }; }; - - is ($out, "A fatal script error has occurred:\nrm_full requires an argument.\nExiting.\n", "sboclean's rm_full() gave correct output"); - is ($exit, 2, "sboclean's rm_full() gave correct exit status"); - - undef $exit; - undef $out; - $out = capture_merged { $exit = exit_code { main::remove_stuff(); }; }; - - is ($out, "A fatal script error has occurred:\nremove_stuff requires an argument.\nExiting.\n", "sboclean's remove_stuff() gave correct output"); - is ($exit, 2, "sboclean's remove_stuff() gave correct exit status"); -} - -# 60-61: sboconfig unit tests... -{ - local (*main::show_usage, *main::config_write); - load('sboconfig'); - - my $exit; - my $out = capture_merged { $exit = exit_code { main::config_write(); }; }; - - is ($out, "A fatal script error has occurred:\nconfig_write requires two arguments.\nExiting.\n", "sboconfig's config_write() gave correct output"); - is ($exit, 2, "sboconfig's config_write() gave correct exit status"); -} |