diff options
author | Rob Savoye <rob@welcomehome.org> | 2001-05-04 05:27:47 +0000 |
---|---|---|
committer | Rob Savoye <rob@welcomehome.org> | 2001-05-04 05:27:47 +0000 |
commit | 5ccf248fcdf7ade30d9569d9d84fe92702ae519b (patch) | |
tree | deb11d994610b30e4051adb74e1589301c92d943 | |
parent | 0abc6d284f4e8aabbea2ab78e43d4e900a6dcfbc (diff) | |
download | dejagnu-5ccf248fcdf7ade30d9569d9d84fe92702ae519b.zip dejagnu-5ccf248fcdf7ade30d9569d9d84fe92702ae519b.tar.gz dejagnu-5ccf248fcdf7ade30d9569d9d84fe92702ae519b.tar.bz2 |
* lib/dejagnu.exp: Add $text\r\n to all strings, to make sure we
only get one line at a time.
-rwxr-xr-x | lib/dejagnu.exp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/dejagnu.exp b/lib/dejagnu.exp index f98effb..d550c5b 100755 --- a/lib/dejagnu.exp +++ b/lib/dejagnu.exp @@ -112,37 +112,37 @@ proc host_execute {args} { spawn -noecho "./${executable}" ${params} expect { -re "\[0-9\]\[0-9\]:..:..:${text}\r\n" { - regsub "\[\n\r\t\]*NOTE: " $expect_out(0,string) "" output + regsub "\[\n\r\t\]*NOTE: $text\r\n" $expect_out(0,string) "" output verbose "$output" 3 set timetol 0 exp_continue } -re "NOTE:${text}*" { - regsub "\[\n\r\t\]*NOTE: " $expect_out(0,string) "" output + regsub "\[\n\r\t\]*NOTE: $text\r\n" $expect_out(0,string) "" output verbose "$output" 2 set timetol 0 exp_continue } -re "PASSED:${text}*" { - regsub "\[\n\r\t\]*PASSED: " $expect_out(0,string) "" output + regsub "\[\n\r\t\]*PASSED: $text\r\n" $expect_out(0,string) "" output pass "$output" set timetol 0 exp_continue } -re "FAILED:${text}*" { - regsub "\[\n\r\t\]*FAILED: " $expect_out(0,string) "" output + regsub "\[\n\r\t\]*FAILED: $text\r\n" $expect_out(0,string) "" output fail "$output" set timetol 0 exp_continue } -re "UNTESTED:${text}*" { - regsub "\[\n\r\t\]*TESTED: " $expect_out(0,string) "" output + regsub "\[\n\r\t\]*TESTED: $text\r\n" $expect_out(0,string) "" output untested "$output" set timetol 0 exp_continue } -re "UNRESOLVED:${text}*" { - regsub "\[\n\r\t\]*UNRESOLVED: " $expect_out(0,string) "" output + regsub "\[\n\r\t\]*UNRESOLVED: $text\r\n" $expect_out(0,string) "" output unresolved "$output" set timetol 0 exp_continue |