diff options
author | Rob Savoye <rob@welcomehome.org> | 2001-05-08 15:04:39 +0000 |
---|---|---|
committer | Rob Savoye <rob@welcomehome.org> | 2001-05-08 15:04:39 +0000 |
commit | 7422e6ab359e05c9b350f6fce4ff57afe8dc1489 (patch) | |
tree | 0ac5aace6142c037a83c6962b21a271c55ac6a23 /lib/dejagnu.exp | |
parent | 02aab766e743f7043b3c2ffe7acddf8d445b8c9d (diff) | |
download | dejagnu-7422e6ab359e05c9b350f6fce4ff57afe8dc1489.zip dejagnu-7422e6ab359e05c9b350f6fce4ff57afe8dc1489.tar.gz dejagnu-7422e6ab359e05c9b350f6fce4ff57afe8dc1489.tar.bz2 |
* lib/dejagnu.exp: Trim off test state part of the message, so we
don't duplicate it.
Diffstat (limited to 'lib/dejagnu.exp')
-rwxr-xr-x | lib/dejagnu.exp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/dejagnu.exp b/lib/dejagnu.exp index d550c5b..c85b54e 100755 --- a/lib/dejagnu.exp +++ b/lib/dejagnu.exp @@ -119,30 +119,35 @@ proc host_execute {args} { } -re "NOTE:${text}*" { regsub "\[\n\r\t\]*NOTE: $text\r\n" $expect_out(0,string) "" output + set output [string range $output 6 end] verbose "$output" 2 set timetol 0 exp_continue } -re "PASSED:${text}*" { regsub "\[\n\r\t\]*PASSED: $text\r\n" $expect_out(0,string) "" output + set output [string range $output 8 end] pass "$output" set timetol 0 exp_continue } -re "FAILED:${text}*" { regsub "\[\n\r\t\]*FAILED: $text\r\n" $expect_out(0,string) "" output + set output [string range $output 8 end] fail "$output" set timetol 0 exp_continue } -re "UNTESTED:${text}*" { regsub "\[\n\r\t\]*TESTED: $text\r\n" $expect_out(0,string) "" output + set output [string range $output 8 end] untested "$output" set timetol 0 exp_continue } -re "UNRESOLVED:${text}*" { regsub "\[\n\r\t\]*UNRESOLVED: $text\r\n" $expect_out(0,string) "" output + set output [string range $output 8 end] unresolved "$output" set timetol 0 exp_continue |