From 9ab48cb7d2150c1b0e427bbfcb4a310b29121431 Mon Sep 17 00:00:00 2001 From: Ken Raeburn Date: Fri, 8 Jul 2005 22:13:15 +0000 Subject: [PATCH] * api.1/lock.exp (lock_test_continue): After exiting the loop, send the process a signal before waiting for it to die. git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@17297 dc483132-0cff-0310-8789-dd5450dbe970 --- src/lib/kadm5/unit-test/ChangeLog | 5 +++++ src/lib/kadm5/unit-test/api.1/lock.exp | 2 ++ 2 files changed, 7 insertions(+) diff --git a/src/lib/kadm5/unit-test/ChangeLog b/src/lib/kadm5/unit-test/ChangeLog index 446c9af44..aa8e3c472 100644 --- a/src/lib/kadm5/unit-test/ChangeLog +++ b/src/lib/kadm5/unit-test/ChangeLog @@ -1,3 +1,8 @@ +2005-07-08 Ken Raeburn + + * api.1/lock.exp (lock_test_continue): After exiting the loop, + send the process a signal before waiting for it to die. + 2005-06-20 Ken Raeburn * Makefile.in (KDB_DEP_LIB): Use DL_LIB and THREAD_LINKOPTS diff --git a/src/lib/kadm5/unit-test/api.1/lock.exp b/src/lib/kadm5/unit-test/api.1/lock.exp index 6adef5981..bd3fde022 100644 --- a/src/lib/kadm5/unit-test/api.1/lock.exp +++ b/src/lib/kadm5/unit-test/api.1/lock.exp @@ -110,6 +110,8 @@ proc lock_test_continue {test my_spawn_id test_failed fail_output cont cmds} { if {$test_failed == 1} { break } } + # In timeout cases, the process may not be dead yet. + catch { exec kill -9 [exp_pid -i $spawn_id] } x set ret [wait -i $spawn_id] verbose "% Exit $ret" 2 -- 2.26.2