Oops, missed a few checks for eof
authorTom Yu <tlyu@mit.edu>
Sat, 9 Nov 2002 03:35:29 +0000 (03:35 +0000)
committerTom Yu <tlyu@mit.edu>
Sat, 9 Nov 2002 03:35:29 +0000 (03:35 +0000)
ticket: 1249
status: open

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

src/tests/dejagnu/config/ChangeLog
src/tests/dejagnu/config/default.exp

index 83a2d90d293e87b160ad9d23339934c544f7fa96..b37eace92046956820d4c19ce1cbcee4c3d4740e 100644 (file)
@@ -3,6 +3,8 @@
        * default.exp: Add (disabled) debugging code for catching leaking
        ptys.  expect eof from the correct spawn_ids when killing kdc and
        kadmind to avoid leaking ptys.
+       (do_klist, v4klist, v4klist_none): Check for eof to avoid leaking
+       ptys.
 
 2002-10-07  Tom Yu  <tlyu@mit.edu>
 
index 4eb76ca4ac052df5094a864fecc3169add420e54..6ee06097d2c85105d18b5340656b298658e6573f 100644 (file)
@@ -1871,10 +1871,7 @@ proc do_klist { myname servname testname } {
        }
     }
 
-    expect {
-        "\r" { }
-       eof { }
-    }
+    expect eof
 
     if ![check_exit_status $testname] {
        return 0
@@ -1939,6 +1936,7 @@ proc do_klist_err { testname } {
     }
     # We can't use check_exit_status, because we expect an exit status
     # of 1.
+    catch "expect eof"
     set status_list [wait -i $spawn_id]
     verbose "wait -i $spawn_id returned $status_list ($testname)"
     if { [lindex $status_list 2] != 0 } {
@@ -2113,10 +2111,7 @@ proc v4klist { client server testname } {
        }
     }
 
-    expect {
-        "\r" { }
-       eof { }
-    }
+    expect eof
 
     if ![check_exit_status $testname] {
        return 0
@@ -2160,6 +2155,7 @@ proc v4klist_none { testname } {
     }
     # We can't use check_exit_status, because we expect an exit status
     # of 1.
+    expect eof
     set status_list [wait -i $spawn_id]
     verbose "wait -i $spawn_id returned $status_list (v4klist)"
     if { [lindex $status_list 2] != 0 } {