From bd3e46a7ecace87aeaeb3bf9765cbc4c8073600d Mon Sep 17 00:00:00 2001 From: Keith Seitz Date: Tue, 25 Jun 2002 00:01:29 +0000 Subject: [PATCH] * lib/mi-support.exp (mi_gdb_test): Move expected pattern higher in the list of expect statements. --- gdb/testsuite/ChangeLog | 5 +++++ gdb/testsuite/lib/mi-support.exp | 12 ++++++------ 2 files changed, 11 insertions(+), 6 deletions(-) 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 + + * lib/mi-support.exp (mi_gdb_test): Move expected pattern higher + in the list of expect statements. + 2002-06-19 Keith Seitz * 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 { -- 2.47.2