aboutsummaryrefslogtreecommitdiff
path: root/t/29-unit-sboremove.t
diff options
context:
space:
mode:
Diffstat (limited to 't/29-unit-sboremove.t')
-rwxr-xr-xt/29-unit-sboremove.t35
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.");
-}