diff options
Diffstat (limited to 'gdb/testsuite/gdb.base/sect-cmd.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/sect-cmd.exp | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/gdb/testsuite/gdb.base/sect-cmd.exp b/gdb/testsuite/gdb.base/sect-cmd.exp index cb1e446..387198d 100644 --- a/gdb/testsuite/gdb.base/sect-cmd.exp +++ b/gdb/testsuite/gdb.base/sect-cmd.exp @@ -63,21 +63,17 @@ gdb_test_multiple "section $section_name $address1" \ exp_continue } -re "Section \[^\r\n\]+ not found\r\n" { - fail "$gdb_test_name, saw not found marker" + fail "$gdb_test_name (saw not found marker)" exp_continue } - -re "$gdb_prompt $" { + -re -wrap "" { gdb_assert { $saw_section_address_line } $gdb_test_name } } # Verify that GDB responds gracefully to a non-existent section name. # -gdb_test_multiple "section FOOBARBAZ 0x1234" "" { - -re -wrap "Section FOOBARBAZ not found" { - pass $gdb_test_name - } -} +gdb_test "section FOOBARBAZ 0x1234" "Section FOOBARBAZ not found" # Check that GDB can still print the error message when the section # name is very long. It used to be the case that GDB could only print @@ -86,9 +82,6 @@ gdb_test_multiple "section FOOBARBAZ 0x1234" "" { # set long_sect_name \ "A234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123" -gdb_test_multiple "section $long_sect_name 0x1234" \ - "non-existent too-long section disallowed" { - -re -wrap "Section $long_sect_name not found" { - pass $gdb_test_name - } - } +gdb_test "section $long_sect_name 0x1234" \ + "Section $long_sect_name not found" \ + "non-existent too-long section disallowed" |