diff --git a/tests/instances.tcl b/tests/instances.tcl index 1395efa0c..22d3bc475 100644 --- a/tests/instances.tcl +++ b/tests/instances.tcl @@ -196,14 +196,17 @@ proc stop_instance pid { # Node might have been stopped in the test catch {exec kill -SIGCONT $pid} if {$::valgrind} { - set max_wait 60000 + set max_wait 120000 } else { set max_wait 10000 } while {[is_alive $pid]} { incr wait 10 - if {$wait >= $max_wait} { + if {$wait == $max_wait} { + puts "Forcing process $pid to crash..." + catch {exec kill -SEGV $pid} + } elseif {$wait >= $max_wait * 2} { puts "Forcing process $pid to exit..." catch {exec kill -KILL $pid} } elseif {$wait % 1000 == 0} { diff --git a/tests/support/server.tcl b/tests/support/server.tcl index 0563995fd..c57fad541 100644 --- a/tests/support/server.tcl +++ b/tests/support/server.tcl @@ -80,14 +80,17 @@ proc kill_server config { # Node might have been stopped in the test catch {exec kill -SIGCONT $pid} if {$::valgrind} { - set max_wait 60000 + set max_wait 120000 } else { set max_wait 10000 } while {[is_alive $config]} { incr wait 10 - if {$wait >= $max_wait} { + if {$wait == $max_wait} { + puts "Forcing process $pid to crash..." + catch {exec kill -SEGV $pid} + } elseif {$wait >= $max_wait * 2} { puts "Forcing process $pid to exit..." catch {exec kill -KILL $pid} } elseif {$wait % 1000 == 0} {