05-upgrade.t: add test for answering with defaults and answering weirdly

1 files changed, 5 insertions, 1 deletions

diff --git a/t/05-upgrade.t b/t/05-upgrade.t
index 2b7a015..e9b9ceb 100755
--- a/t/05-upgrade.t
+++ b/t/05-upgrade.t
@@ -11,7 +11,7 @@ use Test::Sbotools qw/ make_slackbuilds_txt set_lo sboconfig sboinstall sboupgra
 use File::Temp 'tempdir';
 
 if ($ENV{TEST_INSTALL}) {
-	plan tests => 19;
+	plan tests => 20;
 } else {
 	plan skip_all => 'Only run these tests if TEST_INSTALL=1';
 }
@@ -134,6 +134,10 @@ sboupgrade qw/ -r -f nonexistentslackbuild2 /, { expected => "" };
 # 19: sboupgrade -r on something already up to date
 sboupgrade qw/ -r nonexistentslackbuild /, { expected => "" };
 
+# 20: sboupgrade and answer weirdly and use a default and then answer no twice
+install('LO2', 'nonexistentslackbuild', 'nonexistentslackbuild5');
+sboupgrade qw/nonexistentslackbuild nonexistentslackbuild5/, { input => "foo\n\nn\nn\n", expected => qr/Proceed with nonexistentslackbuild\?.*Proceed with nonexistentslackbuild\?.*Proceed with nonexistentslackbuild5\?.*Upgrade queue: nonexistentslackbuild$/sm };
+
 # Cleanup
 END {
 	cleanup();