* api.2/init-v2.exp (test109): Wait for prompt between commands

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@11833 dc483132-0cff-0310-8789-dd5450dbe970

diff --git a/src/lib/kadm5/unit-test/ChangeLog b/src/lib/kadm5/unit-test/ChangeLog
index 41c079143acc48ba9caaae5ec3b88856310cd85d..a771f728fb587712dd55f358901e483f672ed50b 100644 (file)
--- a/src/lib/kadm5/unit-test/ChangeLog
+++ b/src/lib/kadm5/unit-test/ChangeLog
@@ -1,3 +1,7 @@
+1999-09-21  Ken Raeburn  <raeburn@mit.edu>
+
+       * api.2/init-v2.exp (test109): Wait for prompt between commands.
+
 1999-09-01  Ken Raeburn  <raeburn@mit.edu>
 
        * api.2/init-v2.exp (RESOLVE): New variable.

diff --git a/src/lib/kadm5/unit-test/api.2/init-v2.exp b/src/lib/kadm5/unit-test/api.2/init-v2.exp
index fe0721494ae137e50021c5832e4b244745ebefa1..6be880dd02035a7aa033224200b3c19e3bfeb9e2 100644 (file)
--- a/src/lib/kadm5/unit-test/api.2/init-v2.exp
+++ b/src/lib/kadm5/unit-test/api.2/init-v2.exp
@@ -197,6 +197,17 @@ proc test109 {} {
        return;
     }
     send "puts \$p\n"
+    expect {
+       -re "$prompt" { }
+       timeout {
+           error_and_restart "$test: timeout getting prompt"
+           return
+       }
+       eof {
+           error_and_restart "$test: eof getting prompt"
+           return
+       }
+    }
     send "lindex \$p 4\n"
     expect {
        -re "(\[0-9\]+)\n$prompt" {set max_life $expect_out(1,string) }