From bf45a6162f103c22dbe26879cd3ee328a682814f Mon Sep 17 00:00:00 2001
From: Bart Van Assche <bvanassche@acm.org>
Date: Mon, 18 Feb 2019 01:29:40 +0000
Subject: [PATCH] scstadmin: Add a test that causes scstadmin to display a
 prompt

git-svn-id: http://svn.code.sf.net/p/scst/svn/trunk@7954 d57e44dd-8a1f-0410-8b47-8ef2f437770f
---
 .../scst-1.0.0/t/07-scstadmin-args.t               | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/07-scstadmin-args.t b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/07-scstadmin-args.t
index 0c3227499..7c458d074 100644
--- a/scstadmin/scstadmin.sysfs/scst-1.0.0/t/07-scstadmin-args.t
+++ b/scstadmin/scstadmin.sysfs/scst-1.0.0/t/07-scstadmin-args.t
@@ -22,7 +22,7 @@ BEGIN {
     unless(grep /blib/, @INC) {
 	unshift(@INC, File::Spec->catdir($scstadmin_pm_dir, "lib"));
     }
-    plan tests => 58;
+    plan tests => 59;
 }
 
 use Data::Dumper;
@@ -134,6 +134,16 @@ sub run {
     return $res;
 }
 
+# Trigger the scstadmin prompt() subroutine.
+sub testPrompt {
+    my $result;
+
+    $result = <<'EOS';
+are you sure you wish to continue (y/[n]) ? 
+EOS
+    ok(run("$scstadmin -clear_config -force </dev/null"), $result);
+}
+
 # Test the scstadmin -list_* options.
 sub listTest {
     my $result;
@@ -607,6 +617,8 @@ setup($SCST);
 
 attributeTest(File::Spec->catfile($testdir, "07-result.conf"));
 
+testPrompt();
+
 listTest();
 
 teardown();