This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
Re: [committed testsuite patch] auxv.exp cascading failures
- From: Roland McGrath <roland at redhat dot com>
- To: mec dot gnu at mindspring dot com (Michael Elizabeth Chastain)
- Cc: gdb-patches at sources dot redhat dot com
- Date: Fri, 4 Jun 2004 17:11:08 -0700
- Subject: Re: [committed testsuite patch] auxv.exp cascading failures
I've replaced it with this different patch instead.
Thanks,
Roland
2004-06-04 Roland McGrath <roland@redhat.com>
* gdb.base/auxv.exp (fetch_auxv): Revert last change and fix it
differently to be robust to output buffering differences.
--- auxv.exp.~1.1.~ 2004-03-16 13:39:57.000000000 -0800
+++ auxv.exp 2004-06-04 17:07:08.000000000 -0700
@@ -82,12 +82,15 @@ proc fetch_auxv {test} {
}
-ex "The program has no auxiliary information now" {
set bad 1
+ exp_continue
}
-ex "Auxiliary vector is empty" {
set bad 1
+ exp_continue
}
-ex "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)
@@ -103,9 +106,12 @@ proc fetch_auxv {test} {
incr bad
}
-re "^\[^\r\n\]+\[\r\n\]+" {
+ if {!$bad} {
warning "Unrecognized output: $expect_out(0,string)"
set bad 1
}
+ exp_continue
+ }
}] != 0} {
return {}
}