sbotools2

commit 09bf3cc8a4450da9d849febe8a86414e0339e324
parent 33d7d85c33050d814a92ebaf6d41a99521069dc5
Author: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date:   Thu, 28 Apr 2016 20:30:49 +0200

16-clean.t: test sboclean -i

Diffstat:
M
t/16-clean.t
 | 
9
++++++++-

1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/t/16-clean.t b/t/16-clean.t
@@ -11,7 +11,7 @@ use Test::Sbotools qw/ make_slackbuilds_txt set_distclean set_noclean set_lo sbo
 use SBO::Lib;
 use File::Temp 'tempdir';
 
-plan tests => 12;
+plan tests => 14;
 
 my $sboname = "nonexistentslackbuild";
 my $perf    = "/usr/sbo/distfiles/perf.dummy";
@@ -76,3 +76,10 @@ sboclean { exit => 1, expected => "You must specify at least one of -d or -w.\n"
 # 12: sboclean -d with SBOHOME set
 set_sbo_home(tempdir(CLEANUP => 1));
 sboclean '-d', { exit => 0, expected => "Nothing to do.\n" };
+
+# 13-14: sboclean -w -i with TMP set
+{
+	local $ENV{TMP} = tempdir(CLEANUP => 1);
+	sboclean qw/ -w -i /, { input => "n", expected => qr!\QRemove $ENV{TMP}/\E.*\Q? [n]\E! };
+	sboclean qw/ -w -i /, { input => "y\ny", expected => qr!\QRemove $ENV{TMP}/\E.*\Q? [n]\E! };
+}