[committed testsuite patch] auxv.exp cascading failures
Roland McGrath
roland@redhat.com
Fri Jun 4 21:37:00 GMT 2004
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 {}
More information about the Gdb-patches
mailing list