From: Keith Seitz <keiths@redhat.com>
Date: Tue, 25 Jun 2002 00:01:29 +0000 (+0000)
Subject:         * lib/mi-support.exp (mi_gdb_test): Move expected pattern higher
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bd3e46a7ecace87aeaeb3bf9765cbc4c8073600d;p=thirdparty%2Fbinutils-gdb.git

    * 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 5a696443e78..16345fb1426 100644
--- 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 b17011d2fa5..c413f4a17c8 100644
--- 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 {