From: Ken Raeburn <raeburn@mit.edu>
Date: Tue, 21 Sep 1999 21:38:09 +0000 (+0000)
Subject: * api.2/init-v2.exp (test109): Wait for prompt between commands
X-Git-Tag: krb5-1.2-beta1~231
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=42f18f4c08ddcd67f8826b95924d08ec1d1e5522;p=krb5.git

* 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 41c079143..a771f728f 100644
--- 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 fe0721494..6be880dd0 100644
--- 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) }