aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorBen Elliston <bje@gnu.org>2018-12-08 17:36:31 +1100
committerBen Elliston <bje@gnu.org>2018-12-08 17:36:31 +1100
commitc7f104fec6220a7c71043acf32d7ee4e90111d2d (patch)
treec07eae679e2a4336909f88d9e98e4f94b10f403f /lib
parent01599a0570d858b0ad6e00a32cc7f7e70154059d (diff)
downloaddejagnu-c7f104fec6220a7c71043acf32d7ee4e90111d2d.zip
dejagnu-c7f104fec6220a7c71043acf32d7ee4e90111d2d.tar.gz
dejagnu-c7f104fec6220a7c71043acf32d7ee4e90111d2d.tar.bz2
* lib/dejagnu.exp (host_execute): Remove unnecessary quotes around
variable expansions. * testsuite/runtest.all/clone_output.test: Likewise. * testsuite/runtest.all/target.test: Likewise. * testsuite/runtest.all/stats.exp: Likewise. * testsuite/runtest.all/remote.test: Likewise. * testsuite/runtest.all/config.test: Likewise. * testsuite/runtest.all/default_procs.tcl: Likewise. * testsuite/runtest.all/libs.exp: Likewise. * testsuite/runtest.all/options.exp: Likewise.
Diffstat (limited to 'lib')
-rw-r--r--lib/dejagnu.exp12
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/dejagnu.exp b/lib/dejagnu.exp
index d0766e6..46870f3 100644
--- a/lib/dejagnu.exp
+++ b/lib/dejagnu.exp
@@ -134,42 +134,42 @@ proc host_execute {args} {
expect {
-re "^$prefix\[0-9\]\[0-9\]:..:..:${text}*\r\n" {
regsub "\[\n\r\t\]*NOTE: $text\r\n" $expect_out(0,string) "" output
- verbose "$output" 3
+ verbose $output 3
set timetol 0
exp_continue
}
-re "^$prefix\tNOTE:${text}*" {
regsub "\[\n\r\t\]*NOTE: $text\r\n" $expect_out(0,string) "" output
set output [string range $output 6 end]
- verbose "$output" 2
+ verbose $output 2
set timetol 0
exp_continue
}
-re "^$prefix\tPASSED:${text}*" {
regsub "\[\n\r\t\]*PASSED: $text\r\n" $expect_out(0,string) "" output
set output [string range $output 8 end]
- pass "$output"
+ pass $output
set timetol 0
exp_continue
}
-re "^$prefix\tFAILED:${text}*" {
regsub "\[\n\r\t\]*FAILED: $text\r\n" $expect_out(0,string) "" output
set output [string range $output 8 end]
- fail "$output"
+ fail $output
set timetol 0
exp_continue
}
-re "^$prefix\tUNTESTED:${text}*" {
regsub "\[\n\r\t\]*TESTED: $text\r\n" $expect_out(0,string) "" output
set output [string range $output 8 end]
- untested "$output"
+ untested $output
set timetol 0
exp_continue
}
-re "^$prefix\tUNRESOLVED:${text}*" {
regsub "\[\n\r\t\]*UNRESOLVED: $text\r\n" $expect_out(0,string) "" output
set output [string range $output 8 end]
- unresolved "$output"
+ unresolved $output
set timetol 0
exp_continue
}