This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[committed testsuite patch] auxv.exp cascading failures
- From: Roland McGrath <roland at redhat dot com>
- To: gdb-patches at sources dot redhat dot com
- Cc: Michael Elizabeth Chastain <mec dot gnu at mindspring dot com>
- Date: Fri, 4 Jun 2004 14:37:53 -0700
- Subject: [committed testsuite patch] auxv.exp cascading failures
I've committed this obvious fix to the test case I added a while back.
This fixes a report from Michael, but the message I got contains no PR number.
Thanks,
Roland
2004-06-04 Roland McGrath <roland@redhat.com>
* gdb.base/auxv.exp (fetch_auxv): Consume output fully through
next gdb prompt.
--- auxv.exp.~1.1.~ 2004-03-16 13:39:57.000000000 -0800
+++ auxv.exp 2004-06-04 14:33:06.000000000 -0700
@@ -80,14 +80,17 @@ proc fetch_auxv {test} {
-re "info auxv\[\r\n\]+" {
exp_continue
}
- -ex "The program has no auxiliary information now" {
+ -re "The program has no auxiliary information now.*$" {
set bad 1
+ exp_continue
}
- -ex "Auxiliary vector is empty" {
+ -re "Auxiliary vector is empty.*$" {
set bad 1
+ exp_continue
}
- -ex "No auxiliary vector found" {
+ -re "No auxiliary vector found.*$" {
set bad 1
+ exp_continue
}
-re "^\[0-9\]+\[ \t\]+(AT_\[^ \t\]+)\[^\r\n\]+\[\r\n\]+" {
lappend auxv_lines $expect_out(0,string)
@@ -99,12 +102,13 @@ proc fetch_auxv {test} {
lappend auxv_lines $expect_out(0,string)
exp_continue
}
- -re ".*$gdb_prompt $" {
- incr bad
- }
-re "^\[^\r\n\]+\[\r\n\]+" {
warning "Unrecognized output: $expect_out(0,string)"
set bad 1
+ exp_continue
+ }
+ -re ".*$gdb_prompt $" {
+ incr bad
}
}] != 0} {
return {}