diff options
| author | Keith Seitz <keiths@redhat.com> | 2002-06-25 00:01:29 +0000 |
|---|---|---|
| committer | Keith Seitz <keiths@redhat.com> | 2002-06-25 00:01:29 +0000 |
| commit | d29e6470cc207dc96e9c4502f646f7157a641723 (patch) | |
| tree | 05714c610be2d4311f96913d133db5d4fe1d2c4a | |
| parent | 3fba4a5a87b63f47f9b46f9fb161d127233a38cb (diff) | |
| download | gdb-d29e6470cc207dc96e9c4502f646f7157a641723.tar.gz | |
* lib/mi-support.exp (mi_gdb_test): Move expected pattern higher
in the list of expect statements.
| -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" |