(testsuite) Tighten `match_items()'

An item now must match at the beginning of the line, to prevent
mismatches.
This commit is contained in:
Freddy Vulto 2009-09-16 23:17:56 +02:00
parent 451b920377
commit 046f2abc6f

View File

@ -363,14 +363,14 @@ proc match_items {items test {size 20}} {
}; # for
if {[llength $items] == 1} {
expect {
-re "$expected" { set result true }
-re "^$expected$" { set result true }
"\r\n" { set result false; break }
default { set result false; break }
timeout { set result false; break }
}; # expect
} else {
expect {
-re "$expected" { set result true }
-re "^$expected" { set result true }
default { set result false; break }
timeout { set result false; break }
}; # expect