diff options
| author | Ezra Peisach <epeisach@mit.edu> | 1995-05-10 20:57:33 +0000 |
|---|---|---|
| committer | Ezra Peisach <epeisach@mit.edu> | 1995-05-10 20:57:33 +0000 |
| commit | 647f506e4eb5c78d53d750bae71e6f515286ff66 (patch) | |
| tree | 1693885fe39338487400c5274ff9820f38dc1a83 /src/tests | |
| parent | edd07f89f6ecf14c338dd4f953a016104beb5f09 (diff) | |
| download | krb5-647f506e4eb5c78d53d750bae71e6f515286ff66.tar.gz krb5-647f506e4eb5c78d53d750bae71e6f515286ff66.tar.xz krb5-647f506e4eb5c78d53d750bae71e6f515286ff66.zip | |
Modifications to klist to prevent an expect bug for hanging tests.
(sync. problem with spawned process exiting too quickly).
git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@5793 dc483132-0cff-0310-8789-dd5450dbe970
Diffstat (limited to 'src/tests')
| -rw-r--r-- | src/tests/dejagnu/krb-standalone/ChangeLog | 5 | ||||
| -rw-r--r-- | src/tests/dejagnu/krb-standalone/standalone.exp | 9 |
2 files changed, 12 insertions, 2 deletions
diff --git a/src/tests/dejagnu/krb-standalone/ChangeLog b/src/tests/dejagnu/krb-standalone/ChangeLog index e1e24900b8..da1934e690 100644 --- a/src/tests/dejagnu/krb-standalone/ChangeLog +++ b/src/tests/dejagnu/krb-standalone/ChangeLog @@ -1,3 +1,8 @@ +Sat May 6 17:12:37 1995 Ezra Peisach <epeisach@kangaroo.mit.edu> + + * standalone.exp: klist test - added new line to prevent an OSF/1 + expect bug which would hang the klist process in waiting. + Fri May 5 12:49:19 1995 Ezra Peisach <epeisach@kangaroo.mit.edu> * rcp.exp: (rcp_test()): Encrypted rcp are no longer expected to diff --git a/src/tests/dejagnu/krb-standalone/standalone.exp b/src/tests/dejagnu/krb-standalone/standalone.exp index e6a9424286..5cde955cba 100644 --- a/src/tests/dejagnu/krb-standalone/standalone.exp +++ b/src/tests/dejagnu/krb-standalone/standalone.exp @@ -58,7 +58,7 @@ proc doit { } { # Make sure that klist can see the ticket. spawn $KLIST expect { - -re "Ticket cache:\[ \]*$tmppwd/tkt.*Default principal:\[ \]*krbtest/admin@KRBTEST.COM.*krbtgt/KRBTEST.COM@KRBTEST.COM" { + -re "Ticket cache:\[ \]*$tmppwd/tkt.*Default principal:\[ \]*krbtest/admin@KRBTEST.COM.*krbtgt/KRBTEST.COM@KRBTEST.COM\r\n" { verbose "klist started" } timeout { @@ -70,6 +70,11 @@ proc doit { } { return } } + + expect { + "\r" { } + } + if ![check_exit_status "klist"] { return } @@ -85,7 +90,7 @@ proc doit { } { # Double check that the ticket was destroyed. spawn $KLIST expect { - -re "klist: No credentials cache file found.*\r" { + -re "klist: No credentials cache file found.*\r\n" { verbose "klist started" } timeout { |