OSDN Git Service

2004-06-04 Roland McGrath <roland@redhat.com>
authorroland <roland>
Fri, 4 Jun 2004 21:36:06 +0000 (21:36 +0000)
committerroland <roland>
Fri, 4 Jun 2004 21:36:06 +0000 (21:36 +0000)
* gdb.base/auxv.exp (fetch_auxv): Consume output fully through
next gdb prompt.

gdb/testsuite/gdb.base/auxv.exp

index 3a509b9..b501470 100644 (file)
@@ -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 {}