Re: [committed testsuite patch] auxv.exp cascading failures

[Roland McGrath <roland@redhat.com>]

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 {}
     }