From 7422e6ab359e05c9b350f6fce4ff57afe8dc1489 Mon Sep 17 00:00:00 2001 From: Rob Savoye Date: Tue, 8 May 2001 15:04:39 +0000 Subject: * lib/dejagnu.exp: Trim off test state part of the message, so we don't duplicate it. --- lib/dejagnu.exp | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'lib/dejagnu.exp') 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 -- cgit v1.1