diff options
| author | Joseph Myers <joseph@codesourcery.com> | 2011-10-17 17:10:55 +0000 |
|---|---|---|
| committer | Joseph Myers <joseph@codesourcery.com> | 2011-10-17 17:10:55 +0000 |
| commit | 543a9323382edcccf7a0d409c16c0263604f6be7 (patch) | |
| tree | 6c78a6fc77764c7e01951f814386cb572d0229fc /gdb | |
| parent | 0a07729b434b60abf73f562230109deb83c36eac (diff) | |
| download | gdb-543a9323382edcccf7a0d409c16c0263604f6be7.zip gdb-543a9323382edcccf7a0d409c16c0263604f6be7.tar.gz gdb-543a9323382edcccf7a0d409c16c0263604f6be7.tar.bz2 | |
* lib/gdb.exp (gdb_test_multiple): Expect newline and secondary
prompt for each extra line in command.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 6e9302e..52624e4 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2011-10-17 Joseph Myers <joseph@codesourcery.com> + + * lib/gdb.exp (gdb_test_multiple): Expect newline and secondary + prompt for each extra line in command. + 2011-10-17 Jan Kratochvil <jan.kratochvil@redhat.com> * gdb.dwarf2/dw2-simple-locdesc.exp (p &s.shl): KFAIL it. diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 4a4708e..49a4c7e 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -677,6 +677,7 @@ proc gdb_test_multiple { command message user_code } { set result -1 set string "${command}\n"; if { $command != "" } { + set multi_line_re "\[\r\n\] *>" while { "$string" != "" } { set foo [string first "\n" "$string"]; set len [string length "$string"]; @@ -697,10 +698,11 @@ proc gdb_test_multiple { command message user_code } { # command output is not lost for pattern matching # - guo gdb_expect 2 { - -notransfer -re "\[\r\n\]" { verbose "partial: match" 3 } + -notransfer -re "$multi_line_re$" { verbose "partial: match" 3 } timeout { verbose "partial: timeout" 3 } } set string [string range "$string" [expr $foo + 1] end]; + set multi_line_re "$multi_line_re.*\[\r\n\] *>" } else { break; } |