Commit efeacc85 authored by Per Cederqvist's avatar Per Cederqvist

Improved test suite logging.

* src/server/testsuite/config/unix.exp (simple_expect): Log what
we are looking for and when we are done looking at verbosity level
2 and above.
parent edffbeda
2005-12-28 Per Cederqvist <ceder@lysator.liu.se>
Improved test suite logging.
* src/server/testsuite/config/unix.exp (simple_expect): Log what
we are looking for and when we are done looking at verbosity level
2 and above.
2005-12-27 Per Cederqvist <ceder@lysator.liu.se>
Add a testsuite temporary file to svn:ignore.
......
......@@ -302,6 +302,7 @@ proc simple_expect {regex {testname ""} {is_meta ""}} {
}
if {[regexp "^(\[=%\])(\[0-9\]*)(( )(..*))?$" "$regex" all a refno]} {
# This looks like a protocol A reply.
verbose "simple_expect: looking for refno $refno: \"$regex\"; line leader \"$ll\"." 2
expect {
-re "^$ll$regex$nl" {pass "$test"}
-re "^$ll=$refno$nl" {fail "$test (unexpected reply =$refno)"}
......@@ -315,6 +316,7 @@ proc simple_expect {regex {testname ""} {is_meta ""}} {
full_buffer {fail "$test (full_buffer)"}
}
} else {
verbose "simple_expect: looking for \"$regex\"; line leader \"$ll\"." 2
expect {
-re "^$ll$regex$nl" {pass "$test"}
timeout {fail "$test (timeout)"}
......@@ -322,6 +324,7 @@ proc simple_expect {regex {testname ""} {is_meta ""}} {
full_buffer {fail "$test (full_buffer)"}
}
}
verbose "simple_expect: done" 2
unset test
}
......
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