diff options
author | Slack Coder <slackcoder@server.ky> | 2024-11-28 09:59:36 -0500 |
---|---|---|
committer | Slack Coder <slackcoder@server.ky> | 2025-02-19 09:55:01 -0500 |
commit | 24493e32d8548110c514db9bc09efb5aba276ca5 (patch) | |
tree | 80319bacf6eb845741beb8d331969884495d6f4c /t/23-unit-sboclean.t | |
parent | 82a520dcb6f6cfe538c68fd04a8a7b94f3b177c2 (diff) | |
download | sbotools2-24493e32d8548110c514db9bc09efb5aba276ca5.tar.xz |
Set To Do branch
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"); -} |