From e709693ca2107f99fc69fcc11d2b5d6b99bd0a3a Mon Sep 17 00:00:00 2001
From: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date: Wed, 31 Aug 2016 00:27:14 +0200
Subject: 29-unit-sboremove.t: unit test for sboremove

---
 t/29-unit-sboremove.t | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100755 t/29-unit-sboremove.t

diff --git a/t/29-unit-sboremove.t b/t/29-unit-sboremove.t
new file mode 100755
index 0000000..a968dc7
--- /dev/null
+++ b/t/29-unit-sboremove.t
@@ -0,0 +1,35 @@
+#!/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.");
+}
-- 
cgit v1.2.3