diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/lib/kadm5/unit-test/ChangeLog | 4 | ||||
| -rw-r--r-- | src/lib/kadm5/unit-test/api.2/init-v2.exp | 11 |
2 files changed, 15 insertions, 0 deletions
diff --git a/src/lib/kadm5/unit-test/ChangeLog b/src/lib/kadm5/unit-test/ChangeLog index 41c079143a..a771f728fb 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 fe0721494a..6be880dd02 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) } |