/[dejagnu]/dejagnu/lib/dejagnu.exp
ViewVC logotype

Diff of /dejagnu/lib/dejagnu.exp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by rsavoye, Fri May 4 05:27:47 2001 UTC revision 1.3 by rsavoye, Tue May 8 15:04:39 2001 UTC
# Line 119  proc host_execute {args} { Line 119  proc host_execute {args} {
119          }          }
120          -re "NOTE:${text}*" {          -re "NOTE:${text}*" {
121              regsub "\[\n\r\t\]*NOTE: $text\r\n" $expect_out(0,string) "" output              regsub "\[\n\r\t\]*NOTE: $text\r\n" $expect_out(0,string) "" output
122                set output [string range $output 6 end]
123              verbose "$output" 2              verbose "$output" 2
124              set timetol 0              set timetol 0
125              exp_continue              exp_continue
126          }          }
127          -re "PASSED:${text}*" {          -re "PASSED:${text}*" {
128              regsub "\[\n\r\t\]*PASSED: $text\r\n" $expect_out(0,string) "" output              regsub "\[\n\r\t\]*PASSED: $text\r\n" $expect_out(0,string) "" output
129                set output [string range $output 8 end]
130              pass "$output"              pass "$output"
131              set timetol 0              set timetol 0
132              exp_continue              exp_continue
133          }          }
134          -re "FAILED:${text}*" {          -re "FAILED:${text}*" {
135              regsub "\[\n\r\t\]*FAILED: $text\r\n" $expect_out(0,string) "" output              regsub "\[\n\r\t\]*FAILED: $text\r\n" $expect_out(0,string) "" output
136                set output [string range $output 8 end]
137              fail "$output"              fail "$output"
138              set timetol 0              set timetol 0
139              exp_continue              exp_continue
140          }          }
141          -re "UNTESTED:${text}*" {          -re "UNTESTED:${text}*" {
142              regsub "\[\n\r\t\]*TESTED: $text\r\n" $expect_out(0,string) "" output              regsub "\[\n\r\t\]*TESTED: $text\r\n" $expect_out(0,string) "" output
143                set output [string range $output 8 end]
144              untested "$output"              untested "$output"
145              set timetol 0              set timetol 0
146              exp_continue              exp_continue
147          }          }
148          -re "UNRESOLVED:${text}*" {          -re "UNRESOLVED:${text}*" {
149              regsub "\[\n\r\t\]*UNRESOLVED: $text\r\n" $expect_out(0,string) "" output              regsub "\[\n\r\t\]*UNRESOLVED: $text\r\n" $expect_out(0,string) "" output
150                set output [string range $output 8 end]
151              unresolved "$output"              unresolved "$output"
152              set timetol 0              set timetol 0
153              exp_continue              exp_continue

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26