diff options
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <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 @@ -471,6 +471,12 @@ proc mi_gdb_test { args } { 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"; exp_continue; @@ -485,12 +491,6 @@ proc mi_gdb_test { args } { 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 { set errmsg "$message: the program exited" |