Commit 2c799c3f authored by Per Cederqvist's avatar Per Cederqvist
Browse files

(extracting_expect): Report the value that was found in the "pass"

	message.  This may help debugging.
parent 5b05a68d
...@@ -390,7 +390,7 @@ proc extracting_expect {regex var grp} { ...@@ -390,7 +390,7 @@ proc extracting_expect {regex var grp} {
expect { expect {
-re "^$line_leader$regex$nl" { -re "^$line_leader$regex$nl" {
set $var $expect_out($grp,string) set $var $expect_out($grp,string)
pass "$test" pass "$test (extracted $expect_out($grp,string))"
} }
timeout {fail "$test (timeout)"} timeout {fail "$test (timeout)"}
eof {fail "$test (eof)"; wait} eof {fail "$test (eof)"; wait}
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