diff --git a/tests/support/util.tcl b/tests/support/util.tcl index 5d06c8c..8cbc6d3 100644 --- a/tests/support/util.tcl +++ b/tests/support/util.tcl @@ -712,7 +712,7 @@ proc get_proc_state {pid} { if {[get_system_name] eq {sunos}} { return [exec ps -o s= -p $pid] } else { - return [exec ps -o state= -p $pid] + return [exec ps -o s= -p $pid] } } @@ -720,7 +720,7 @@ proc get_proc_job {pid} { if {[get_system_name] eq {sunos}} { return [exec ps -l -p $pid] } else { - return [exec ps j $pid] + return [exec ps -l -p $pid] } } @@ -744,7 +744,7 @@ proc resume_process {pid} { set max_attempts 10 set attempt 0 - while {($attempt < $max_attempts) && [string match "T*" [exec ps -o state= -p $pid]]} { + while {($attempt < $max_attempts) && [string match "T*" [exec ps -o s= -p $pid]]} { exec kill -SIGCONT $pid incr attempt @@ -752,8 +752,8 @@ proc resume_process {pid} { } wait_for_condition 50 1000 { - [string match "R*" [exec ps -o state= -p $pid]] || - [string match "S*" [exec ps -o state= -p $pid]] + [string match "R*" [exec ps -o s= -p $pid]] || + [string match "S*" [exec ps -o s= -p $pid]] } else { puts [exec ps j $pid] fail "process was not resumed"