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 |