Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
ticket: 1249
pull up from trunk


git-svn-id: svn://anonsvn.mit.edu/krb5/branches/krb5-1-2-2-branch@14987 dc483132-0cff-0310-8789-dd5450dbe970
  • Loading branch information
tlyu committed Nov 9, 2002
1 parent 153fd74 commit 938f9cd
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 8 deletions.
2 changes: 2 additions & 0 deletions src/tests/dejagnu/config/ChangeLog
Expand Up @@ -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.
[pullup from trunk]

2002-11-03 Tom Yu <tlyu@mit.edu>
Expand Down
12 changes: 4 additions & 8 deletions src/tests/dejagnu/config/default.exp
Expand Up @@ -1872,10 +1872,7 @@ proc do_klist { myname servname testname } {
}
}

expect {
"\r" { }
eof { }
}
expect eof

if ![check_exit_status $testname] {
return 0
Expand Down Expand Up @@ -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 } {
Expand Down Expand Up @@ -2113,10 +2111,7 @@ proc v4klist { client server testname } {
}
}

expect {
"\r" { }
eof { }
}
expect eof

if ![check_exit_status $testname] {
return 0
Expand Down Expand Up @@ -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 } {
Expand Down

0 comments on commit 938f9cd

Please sign in to comment.