This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[rfa/testsuite] One pass/fail per expect list
- From: Andrew Cagney <ac131313 at cygnus dot com>
- To: gdb-patches at sources dot redhat dot com
- Date: Fri, 14 Jun 2002 15:46:09 -0400
- Subject: [rfa/testsuite] One pass/fail per expect list
Hello,
The attached tweaks gdb_expect_list{} so that it only prints one pass /
fail / ... message for the testcase.
What are peoples thoughts on this change and if positive, is the patch ok?
Andrew
2002-06-14 Andrew Cagney <ac131313@redhat.com>
* lib/gdb.exp (gdb_expect_list): Only print one pass, fail, or
supress message.
Index: lib/gdb.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/lib/gdb.exp,v
retrieving revision 1.20
diff -u -r1.20 gdb.exp
--- lib/gdb.exp 11 Jun 2002 20:37:05 -0000 1.20
+++ lib/gdb.exp 14 Jun 2002 19:21:30 -0000
@@ -1265,6 +1265,7 @@
set ok 1
if { $suppress_flag } {
set ok 0
+ unresolved "${test}"
}
while { ${index} < [llength ${list}] } {
set pattern [lindex ${list} ${index}]
@@ -1273,41 +1274,42 @@
if { ${ok} } {
gdb_expect {
-re "${pattern}${sentinel}" {
- pass "${test}, pattern ${index} + sentinel"
+ # pass "${test}, pattern ${index} + sentinel"
}
-re "${sentinel}" {
- fail "${test}, pattern ${index} + sentinel"
+ fail "${test} (pattern ${index} + sentinel)"
set ok 0
}
timeout {
- fail "${test}, pattern ${index} + sentinel (timeout)"
+ fail "${test} (pattern ${index} + sentinel) (timeout)"
set ok 0
}
}
} else {
- unresolved "${test}, pattern ${index} + sentinel"
+ # unresolved "${test}, pattern ${index} + sentinel"
}
} else {
if { ${ok} } {
gdb_expect {
-re "${pattern}" {
- pass "${test}, pattern ${index}"
+ # pass "${test}, pattern ${index}"
}
-re "${sentinel}" {
- fail "${test}, pattern ${index}"
+ fail "${test} (pattern ${index})"
set ok 0
}
timeout {
- fail "${test}, pattern ${index} (timeout)"
+ fail "${test} (pattern ${index}) (timeout)"
set ok 0
}
}
} else {
- unresolved "${test}, pattern ${index}"
+ # unresolved "${test}, pattern ${index}"
}
}
}
if { ${ok} } {
+ pass "${test}"
return 0
} else {
return 1