diff options
| author | Tom de Vries <tdevries@suse.de> | 2021-06-08 10:04:44 +0200 |
|---|---|---|
| committer | Tom de Vries <tdevries@suse.de> | 2021-06-08 10:04:44 +0200 |
| commit | ac6c175edd1f4574afbac8606e4954e83d061821 (patch) | |
| tree | 10443d82deb7b5ab6d5904b9138cf966253806db /gdb/testsuite | |
| parent | 25ff4de715741c889efba6340cc3c508113ed2f2 (diff) | |
| download | gdb-ac6c175edd1f4574afbac8606e4954e83d061821.zip gdb-ac6c175edd1f4574afbac8606e4954e83d061821.tar.gz gdb-ac6c175edd1f4574afbac8606e4954e83d061821.tar.bz2 | |
[gdb/testsuite] Simplify gdb.base/sect-cmd.exp
While looking at gdb.base/sect-cmd.exp, I noticed a few things that can be
simplified:
- use gdb_test instead of gdb_test_multiple
- use -wrap "" as regexp
Also, I noticed this:
...
fail "$gdb_test_name, saw not found marker"
...
while our usual test naming scheme uses parentheses, like so:
...
fail "$gdb_test_name (saw not found marker)"
...
Fix the test-name and do the simplifications.
Tested on x86_64-linux.
gdb/testsuite/ChangeLog:
2021-06-08 Tom de Vries <tdevries@suse.de>
* gdb.base/sect-cmd.exp: Use gdb_test. Use -wrap "". Fix
test name.
Diffstat (limited to 'gdb/testsuite')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.base/sect-cmd.exp | 19 |
2 files changed, 11 insertions, 13 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index a856e89..d89ef4a 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2021-06-08 Tom de Vries <tdevries@suse.de> + * gdb.base/sect-cmd.exp: Use gdb_test. Use -wrap "". Fix + test name. + +2021-06-08 Tom de Vries <tdevries@suse.de> + * gdb.base/sect-cmd.exp: Fix saw_section_address_line regexp. 2021-06-07 Simon Marchi <simon.marchi@polymtl.ca> 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" |