* lib/mi-support.exp (mi_gdb_test): Move expected pattern higher

        in the list of expect statements.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 5a696443e78f56a8a6fdc0a06f2a9e3e1efc0758..16345fb1426cbbd106ace5f03dec688a418876b5 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-24  Keith Seitz  <keiths@redhat.com>
+
+       * lib/mi-support.exp (mi_gdb_test): Move expected pattern higher
+       in the list of expect statements.
+
 2002-06-19  Keith Seitz  <keiths@redhat.com>
 
        * lib/mi-support.exp (mi_run_to_main): Use MIFLAGS to figure

diff --git a/gdb/testsuite/lib/mi-support.exp b/gdb/testsuite/lib/mi-support.exp
index b17011d2fa575e2dddf46f832d6359a1dbf69407..c413f4a17c8ac954474414ef4063c69a41a6fca7 100644 (file)
--- a/gdb/testsuite/lib/mi-support.exp
+++ b/gdb/testsuite/lib/mi-support.exp
@@ -470,6 +470,12 @@ proc mi_gdb_test { args } {
            gdb_exit
            gdb_start
            set result -1
+       }
+        -re "\[\r\n\]*($pattern)\[\r\n\]+$mi_gdb_prompt\[ \]*$" {
+           if ![string match "" $message] then {
+               pass "$message"
+           }
+           set result 0
        }
         -re "(${question_string})$" {
            send_gdb "$response_string\n";
@@ -484,12 +490,6 @@ proc mi_gdb_test { args } {
            perror "\"$command\" is not a unique command name."
             fail "$message"
            set result 1
-       }
-        -re "\[\r\n\]*($pattern)\[\r\n\]+$mi_gdb_prompt\[ \]*$" {
-           if ![string match "" $message] then {
-               pass "$message"
-           }
-           set result 0
        }
         -re "Program exited with code \[0-9\]+.*$mi_gdb_prompt\[ \]*$" {
            if ![string match "" $message] then {