diff options
Diffstat (limited to 't/29-unit-sboremove.t')
-rwxr-xr-x | t/29-unit-sboremove.t | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/t/29-unit-sboremove.t b/t/29-unit-sboremove.t deleted file mode 100755 index a968dc7..0000000 --- a/t/29-unit-sboremove.t +++ /dev/null @@ -1,35 +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 => 1; - -# 1: sboremove unit test... -{ - load('sboremove'); - - no warnings 'redefine', 'once'; - - my $sentinel = 0; - local *main::in = sub { - my $find = shift; - my @ret = grep { $find eq $_ } @_; - $sentinel++ if @ret; - return 1 if @ret; - return 0; - }; - - main::confirm_remove('foo'); - main::confirm_remove('foo'); - - is ($sentinel, 1, "confirm_remove() checks for duplicates."); -} |