diff options
Diffstat (limited to 't/23-unit-sboclean.t')
-rwxr-xr-x | t/23-unit-sboclean.t | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/t/23-unit-sboclean.t b/t/23-unit-sboclean.t deleted file mode 100755 index 8dede71..0000000 --- a/t/23-unit-sboclean.t +++ /dev/null @@ -1,32 +0,0 @@ -#!/usr/bin/env perl - -use strict; -use warnings; -use Test::More; -use Test::Exit; -use FindBin '$RealBin'; -use lib $RealBin; -use Test::Sbotools qw/ load /; -use Capture::Tiny qw/ capture_merged /; -use File::Temp 'tempdir'; -use Cwd; - -plan tests => 4; - -# 1-4: sboclean unit tests... -{ - 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"); -} |