* standalone.exp: Use $KLIST -5 and $KDESTROY -5 to deal with
authorTom Yu <tlyu@mit.edu>
Sun, 6 Feb 2000 23:04:52 +0000 (23:04 +0000)
committerTom Yu <tlyu@mit.edu>
Sun, 6 Feb 2000 23:04:52 +0000 (23:04 +0000)
changed behavior in these programs.  Wait for eof in some cases to
avoid hanging.

* rsh.exp: Wait for eof to prevent hanging.

* gssapi.exp: Use $KINIT -5 to deal with new kinit behavior.

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

src/tests/dejagnu/krb-standalone/ChangeLog
src/tests/dejagnu/krb-standalone/gssapi.exp
src/tests/dejagnu/krb-standalone/rsh.exp
src/tests/dejagnu/krb-standalone/standalone.exp

index ede899884b0c58483fd0bfd902ecbaae402a1174..d82bbe8e5953611405fda9d5014806a9f5e280ad 100644 (file)
@@ -1,3 +1,13 @@
+2000-02-06  Tom Yu  <tlyu@mit.edu>
+
+       * standalone.exp: Use $KLIST -5 and $KDESTROY -5 to deal with
+       changed behavior in these programs.  Wait for eof in some cases to
+       avoid hanging.
+
+       * rsh.exp: Wait for eof to prevent hanging.
+
+       * gssapi.exp: Use $KINIT -5 to deal with new kinit behavior.
+
 Fri Nov  6 10:05:31 1998  Ezra Peisach  <epeisach@mit.edu>
 
        * gssftp.exp: Changes to deal with new text messages in ftp/ftpd.
index 5c229fffad875233312237c7f58b350cd5533bc4..8f932cb05578743e7b534a017a19e434004a26d0 100644 (file)
@@ -36,7 +36,7 @@ proc our_kinit { name pass ccache } {
     global spawn_id
 
     # Use kinit to get a ticket.
-    spawn $KINIT -c $ccache $name@$REALMNAME
+    spawn $KINIT -5 -c $ccache $name@$REALMNAME
     expect {
        "Password for $name@$REALMNAME:" {
            verbose "kinit started"
@@ -56,6 +56,7 @@ proc our_kinit { name pass ccache } {
     expect {
         "\r" { }
     }
+    expect eof
     if ![check_exit_status kinit] {
        return 0
     }
index 313cdd607b2dbff4652427f119b5d49ec8317808..09b5222fb28c58d755b2bac966222471309c6234 100644 (file)
@@ -108,7 +108,7 @@ proc rsh_test { } {
            return
        }
     }
-
+    expect eof
     if ![check_exit_status $testname] {
        return
     }
index fba1e142a28eddc5489360380642bba5845a2a2c..e925b53c0f077bc9c3aba3428c242a581d87e70f 100644 (file)
@@ -57,9 +57,9 @@ proc doit { } {
     }
 
     # Make sure that klist can see the ticket.
-    spawn $KLIST
+    spawn $KLIST -5
     expect {
-       -re "Ticket cache:\[    \]*$tmppwd/tkt.*Default principal:\[    \]*krbtest/admin@$REALMNAME.*krbtgt/$REALMNAME@$REALMNAME\r\n" {
+       -re "Ticket cache:\[    \]*(.+:)?$tmppwd/tkt.*Default principal:\[      \]*krbtest/admin@$REALMNAME.*krbtgt/$REALMNAME@$REALMNAME\r\n" {
            verbose "klist started"
        }
        timeout {
@@ -72,8 +72,9 @@ proc doit { } {
        }
     }
 
-   expect {
+    expect {
         "\r" { }
+       eof { }
     }
 
     if ![check_exit_status "klist"] {
@@ -82,14 +83,14 @@ proc doit { } {
     pass "klist"
 
     # Destroy the ticket.
-    spawn $KDESTROY
+    spawn $KDESTROY -5
     if ![check_exit_status "kdestroy"] {
        return
     }
     pass "kdestroy"
 
     # Double check that the ticket was destroyed.
-    spawn $KLIST
+    spawn $KLIST -5
     expect {
        -re "klist: No credentials cache file found.*\r\n" {
            verbose "klist started"