Fix tests failure on busybox systems. (#7916)
This commit is contained in:
parent
f328194d12
commit
ef92f507dd
@ -94,7 +94,7 @@ proc kill_server config {
|
|||||||
|
|
||||||
proc is_alive config {
|
proc is_alive config {
|
||||||
set pid [dict get $config pid]
|
set pid [dict get $config pid]
|
||||||
if {[catch {exec ps -p $pid} err]} {
|
if {[catch {exec kill -0 $pid} err]} {
|
||||||
return 0
|
return 0
|
||||||
} else {
|
} else {
|
||||||
return 1
|
return 1
|
||||||
|
@ -508,7 +508,7 @@ proc populate {num prefix size} {
|
|||||||
|
|
||||||
proc get_child_pid {idx} {
|
proc get_child_pid {idx} {
|
||||||
set pid [srv $idx pid]
|
set pid [srv $idx pid]
|
||||||
if {[string match {*Darwin*} [exec uname -a]]} {
|
if {[file exists "/usr/bin/pgrep"]} {
|
||||||
set fd [open "|pgrep -P $pid" "r"]
|
set fd [open "|pgrep -P $pid" "r"]
|
||||||
set child_pid [string trim [lindex [split [read $fd] \n] 0]]
|
set child_pid [string trim [lindex [split [read $fd] \n] 0]]
|
||||||
} else {
|
} else {
|
||||||
|
Loading…
x
Reference in New Issue
Block a user