diff options
| author | Keith Seitz <keiths@redhat.com> | 2002-09-04 21:05:07 +0000 |
|---|---|---|
| committer | Keith Seitz <keiths@redhat.com> | 2002-09-04 21:05:07 +0000 |
| commit | 7ddebc7e5611da666dbc49457d88aff2e983c572 (patch) | |
| tree | 47a1dc51229b353012bf84ff3da15bda8a5743d4 /gdb | |
| parent | a3a2ee652b68ac797a532ce7c928300b18e4d28b (diff) | |
| download | fsf-binutils-gdb-7ddebc7e5611da666dbc49457d88aff2e983c572.zip fsf-binutils-gdb-7ddebc7e5611da666dbc49457d88aff2e983c572.tar.gz fsf-binutils-gdb-7ddebc7e5611da666dbc49457d88aff2e983c572.tar.bz2 | |
* lib/mi-support.exp: Update copyright.
(mi_gdb_test): Increase the priority of the expected pattern
so that it matches gdb_test.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/testsuite/lib/mi-support.exp | 14 |
2 files changed, 13 insertions, 7 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index d0f9ef2..7f3f2bf 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2002-09-04 Keith Seitz <keiths@redhat.com> + + * lib/mi-support.exp: Update copyright. + (mi_gdb_test): Increase the priority of the expected pattern + so that it matches gdb_test. + 2002-09-03 Keith Seitz <keiths@redhat.com> * lib/gdb.exp (gdb_compile_pthreads): Fix "build_bin" typo. diff --git a/gdb/testsuite/lib/mi-support.exp b/gdb/testsuite/lib/mi-support.exp index d3861e1..451dcea 100644 --- a/gdb/testsuite/lib/mi-support.exp +++ b/gdb/testsuite/lib/mi-support.exp @@ -1,4 +1,4 @@ -# Copyright 1999, 2000 Free Software Foundation, Inc. +# Copyright 1999, 2000, 2002 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -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" |