Commit 79d95e58 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

(good_bad_expect): Handle the case where the bad result contains only

	a success indicator and a refno (such as "=1032").
parent e2940936
......@@ -375,7 +375,11 @@ proc good_bad_expect {good_regex bad_regex {xreason ""}} {
unset test
return
}
set bad_regex "[string range "$bad_regex" 0 0]$refno [string range "$bad_regex" 1 end]"
set rest "[string range "$bad_regex" 1 end]"
if {$rest != ""} {
set rest " $rest"
}
set bad_regex "[string range "$bad_regex" 0 0]$refno$rest"
set test "looking for $good_regex (or $bad_regex)"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment