diff options
| -rw-r--r-- | gdb/testsuite/gdb.testsuite/gdb-test.exp | 11 | ||||
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 2 |
2 files changed, 12 insertions, 1 deletions
diff --git a/gdb/testsuite/gdb.testsuite/gdb-test.exp b/gdb/testsuite/gdb.testsuite/gdb-test.exp index a582b1b..e19f2a8 100644 --- a/gdb/testsuite/gdb.testsuite/gdb-test.exp +++ b/gdb/testsuite/gdb.testsuite/gdb-test.exp @@ -48,3 +48,14 @@ with_test_prefix "cmd with trailing control code" { gdb_assert { [string equal $output $expected_error_msg] } } } + +# Change the prompt. +set prompt "(GDB) " +set prompt_re "\\(GDB\\) $" +gdb_test -prompt $prompt_re "set prompt $prompt" + +gdb_test_multiple "print 1" "" -prompt $prompt_re { + -re -wrap " = 1" { + pass $gdb_test_name + } +} diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 45588d8..d30e2a5 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -1126,7 +1126,7 @@ proc gdb_test_multiple { command message args } { if { $wrap_pattern } { # Wrap subst_item as is done for the gdb_test PATTERN argument. lappend $current_list \ - "\[\r\n\]*(?:$subst_item)\[\r\n\]+$gdb_prompt $" + "\[\r\n\]*(?:$subst_item)\[\r\n\]+$prompt_regexp" set wrap_pattern 0 } else { lappend $current_list $subst_item |