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();