Mostly cleanup. Doesn't prints it's own pass/fail message anymore.

This commit is contained in:
Rob Savoye 1993-04-19 21:05:03 +00:00
parent 9ef534b90d
commit 0fd9814fe5

View File

@ -65,16 +65,12 @@ proc util_test { args } {
set comp_output [util_start $cmd $cmd_arg $file]
if [regexp "$pattern" $comp_output] then {
pass "$message"
return 0
}
if [string match "" $comp_output] then {
warning "Got no output."
return 1
}
fail "$message"
return 1
}