diff options
author | Michael Snyder <msnyder@vmware.com> | 2010-05-25 19:34:05 +0000 |
---|---|---|
committer | Michael Snyder <msnyder@vmware.com> | 2010-05-25 19:34:05 +0000 |
commit | 65731a6b77c790f8d97b65eb967efaf2db0f27b5 (patch) | |
tree | 2ecd64f88e19e23f23c1bfd1dd7cbd24cf625233 /gdb/testsuite/gdb.base/maint.exp | |
parent | 0d45f56e4700225d5789b60da9ea3f082bb5e23d (diff) | |
download | gdb-65731a6b77c790f8d97b65eb967efaf2db0f27b5.zip gdb-65731a6b77c790f8d97b65eb967efaf2db0f27b5.tar.gz gdb-65731a6b77c790f8d97b65eb967efaf2db0f27b5.tar.bz2 |
2010-05-25 Michael Snyder <msnyder@vmware.com>
* gdb.base/maint.exp: Replace send_gdb with gdb_test.
* gdb.base/miscexprs.exp: Replace send_gdb with gdb_test.
* gdb.base/nodebug.exp: Replace send_gdb with gdb_test.
* gdb.base/pointers.exp: Replace send_gdb with gdb_test.
* gdb.base/ptype.exp: Replace send_gdb with gdb_test.
Diffstat (limited to 'gdb/testsuite/gdb.base/maint.exp')
-rw-r--r-- | gdb/testsuite/gdb.base/maint.exp | 600 |
1 files changed, 216 insertions, 384 deletions
diff --git a/gdb/testsuite/gdb.base/maint.exp b/gdb/testsuite/gdb.base/maint.exp index 11f4ba4..ac96a99 100644 --- a/gdb/testsuite/gdb.base/maint.exp +++ b/gdb/testsuite/gdb.base/maint.exp @@ -91,8 +91,7 @@ if ![runto_main] then { # The commands we test here produce many lines of output; disable "press # <return> to continue" prompts. -send_gdb "set height 0\n" -gdb_expect -re "$gdb_prompt $" +gdb_test_no_output "set height 0" # @@ -106,82 +105,41 @@ gdb_expect -re "$gdb_prompt $" # send_gdb "maint check-symtabs\n" gdb_expect { - -re "^maint check-symtabs" { - gdb_expect { - -re "$gdb_prompt $" \ - { pass "maint check-symtabs" } - timeout { fail "(timeout) maint check-symtabs" } + -re "^maint check-symtabs" { + gdb_expect { + -re "$gdb_prompt $" { + pass "maint check-symtabs" } + timeout { fail "(timeout) maint check-symtabs" } } - -re ".*$gdb_prompt $" { fail "maint check-symtabs" } - timeout { fail "(timeout) maint check-symtabs" } - } + } + -re ".*$gdb_prompt $" { fail "maint check-symtabs" } + timeout { fail "(timeout) maint check-symtabs" } +} -send_gdb "maint space\n" -gdb_expect { - -re "\"maintenance space\" takes a numeric argument\\..*$gdb_prompt $"\ - { pass "maint space" } - -re ".*$gdb_prompt $" { fail "maint space" } - timeout { fail "(timeout) maint space" } - } +gdb_test "maint space" \ + "\"maintenance space\" takes a numeric argument\\." -send_gdb "maint space 1\n" -gdb_expect { - -re "Space used: $decimal \\(\\+$decimal for this command\\).*$gdb_prompt $"\ - { pass "maint space 1" } - -re ".*$gdb_prompt $" { fail "maint space 1" } - timeout { fail "(timeout) maint space 1" } - } +gdb_test "maint space 1" \ + "Space used: $decimal \\(\\+$decimal for this command\\)" +gdb_test "maint time" \ + "\"maintenance time\" takes a numeric argument\\..*Space used: $decimal \\(\\+$decimal for this command\\)" -send_gdb "maint time\n" -gdb_expect { - -re "\"maintenance time\" takes a numeric argument\\..*Space used: $decimal \\(\\+$decimal for this command\\).*$gdb_prompt $"\ - { pass "maint time" } - -re ".*$gdb_prompt $" { fail "maint time" } - timeout { fail "(timeout) maint time" } - } +gdb_test "maint time 1" \ + "Command execution time: $decimal.*Space used: $decimal \\(\\+$decimal for this command\\)" -send_gdb "maint time 1\n" -gdb_expect { - -re "Command execution time: $decimal.*Space used: $decimal \\(\\+$decimal for this command\\).*$gdb_prompt $"\ - { pass "maint time 1" } - -re ".*$gdb_prompt $" { fail "maint time 1" } - timeout { fail "(timeout) maint time 1" } - } +gdb_test "maint time 0" \ + "Space used: $decimal \\(\\+$decimal for this command\\)" -send_gdb "maint time 0\n" -gdb_expect { - -re "Space used: $decimal \\(\\+$decimal for this command\\).*$gdb_prompt $"\ - { pass "maint time 0" } - -re ".*$gdb_prompt $" { fail "maint time 0" } - timeout { fail "(timeout) maint time 0" } - } +gdb_test_no_output "maint space 0" +gdb_test "maint demangle" \ + "\"maintenance demangle\" takes an argument to demangle\\." -send_gdb "maint space 0\n" -gdb_expect { - -re "maint space 0\r\n$gdb_prompt $"\ - { pass "maint space 0" } - -re ".*$gdb_prompt $" { fail "maint space 0" } - timeout { fail "(timeout) maint space 0" } - } +gdb_test "maint demangle main" "Can't demangle \"main\"" -send_gdb "maint demangle\n" -gdb_expect { - -re "\"maintenance demangle\" takes an argument to demangle\\..*$gdb_prompt $"\ - { pass "maint demangle" } - -re ".*$gdb_prompt $" { fail "maint demangle" } - timeout { fail "(timeout) maint demangle" } - } -send_gdb "maint demangle main\n" -gdb_expect { - -re "Can't demangle \"main\".*$gdb_prompt $"\ - { pass "maint demangle" } - -re ".*$gdb_prompt $" { fail "maint demangle" } - timeout { fail "(timeout) maint demangle" } - } # The timeout value is raised, because printing all the symbols and # statistical information about Cygwin and Windows libraries takes a lot @@ -191,18 +149,15 @@ if [istarget "*-*-cygwin*"] { set timeout [expr $timeout + 500] } -send_gdb "maint print statistics\n" -gdb_expect { - -re "Statistics for.*break.*Number of \"minimal\" symbols read.*Number of \"partial\" symbols read.*Number of \"types\" defined.*Number of psym tables \\(not yet expanded\\).*Number of symbol tables.*Number of symbol tables with line tables.*Number of symbol tables with blockvectors.*Total memory used for psymbol obstack.*Total memory used for psymbol cache.*Total memory used for symbol obstack.*Total memory used for type obstack.*$gdb_prompt $"\ - { - # Old output for gdb 6.0 and earlier - pass "maint print statistics" - } - -re "Statistics for.*break.*Number of \"minimal\" symbols read.*Number of \"partial\" symbols read.*Number of \"types\" defined.*Number of psym tables \\(not yet expanded\\).*Number of symbol tables.*Number of symbol tables with line tables.*Number of symbol tables with blockvectors.*Total memory used for objfile obstack.*Total memory used for psymbol cache.*Total memory used for macro cache.*$gdb_prompt $"\ - { pass "maint print statistics" } - -re ".*$gdb_prompt $" { fail "maint print statistics" } - timeout { fail "(timeout) maint print statistics" } - } +gdb_test_multiple "maint print statistics" "maint print statistics" { + -re "Statistics for.*break.*Number of \"minimal\" symbols read.*Number of \"partial\" symbols read.*Number of \"types\" defined.*Number of psym tables \\(not yet expanded\\).*Number of symbol tables.*Number of symbol tables with line tables.*Number of symbol tables with blockvectors.*Total memory used for psymbol obstack.*Total memory used for psymbol cache.*Total memory used for symbol obstack.*Total memory used for type obstack.*$gdb_prompt $" { + # Old output for gdb 6.0 and earlier + pass "maint print statistics" + } + -re "Statistics for.*break.*Number of \"minimal\" symbols read.*Number of \"partial\" symbols read.*Number of \"types\" defined.*Number of psym tables \\(not yet expanded\\).*Number of symbol tables.*Number of symbol tables with line tables.*Number of symbol tables with blockvectors.*Total memory used for objfile obstack.*Total memory used for psymbol cache.*Total memory used for macro cache.*$gdb_prompt $" { + pass "maint print statistics" + } +} # There aren't any ... gdb_test "maint print dummy-frames" "" @@ -243,85 +198,79 @@ maint_pass_if $header "maint print objfiles: header" maint_pass_if $psymtabs "maint print objfiles: psymtabs" maint_pass_if $symtabs "maint print objfiles: symtabs" -send_gdb "maint print psymbols\n" -gdb_expect { - -re "print-psymbols takes an output file name and optional symbol file name.*$gdb_prompt $"\ - { pass "maint print psymbols w/o args" } - -re ".*$gdb_prompt $" { fail "maint print psymbols w/o args" } - timeout { fail "(timeout) maint print psymbols w/o args" } - } +gdb_test "maint print psymbols" \ + "print-psymbols takes an output file name and optional symbol file name" \ + "maint print psymbols w/o args" + + send_gdb "maint print psymbols psymbols_output ${srcdir}/${subdir}/${srcfile}\n" gdb_expect { - -re "^maint print psymbols psymbols_output \[^\n\]*\r\n$gdb_prompt $"\ - { - send_gdb "shell ls psymbols_output\n" - gdb_expect { - -re "psymbols_output\r\n$gdb_prompt $"\ - { - # We want this grep to be as specific as possible, - # so it's less likely to match symbol file names in - # psymbols_output. Yes, this actually happened; - # poor expect got tons of output, and timed out - # trying to match it. --- Jim Blandy <jimb@cygnus.com> - send_gdb "shell grep 'main.*function' psymbols_output\n" - gdb_expect { - -re ".main., function, $hex.*$gdb_prompt $"\ - { pass "maint print psymbols 1" } - -re ".*main. .., function, $hex.*$gdb_prompt $"\ - { pass "maint print psymbols 2" } - -re ".*$gdb_prompt $" { fail "maint print psymbols" } - timeout { fail "(timeout) maint print psymbols" } - } - gdb_test "shell rm -f psymbols_output" "" - - } - -re ".*$gdb_prompt $" { fail "maint print psymbols" } - timeout { fail "(timeout) maint print psymbols" } - } - } - -re ".*$gdb_prompt $" { fail "maint print psymbols" } - timeout { fail "(timeout) maint print psymbols" } - } + -re "^maint print psymbols psymbols_output \[^\n\]*\r\n$gdb_prompt $" { + send_gdb "shell ls psymbols_output\n" + gdb_expect { + -re "psymbols_output\r\n$gdb_prompt $" { + # We want this grep to be as specific as possible, + # so it's less likely to match symbol file names in + # psymbols_output. Yes, this actually happened; + # poor expect got tons of output, and timed out + # trying to match it. --- Jim Blandy <jimb@cygnus.com> + send_gdb "shell grep 'main.*function' psymbols_output\n" + gdb_expect { + -re ".main., function, $hex.*$gdb_prompt $" { + pass "maint print psymbols 1" + } + -re ".*main. .., function, $hex.*$gdb_prompt $" { + pass "maint print psymbols 2" + } + -re ".*$gdb_prompt $" { fail "maint print psymbols" } + timeout { fail "(timeout) maint print psymbols" } + } + gdb_test "shell rm -f psymbols_output" "" + } + -re ".*$gdb_prompt $" { fail "maint print psymbols" } + timeout { fail "(timeout) maint print psymbols" } + } + } + -re ".*$gdb_prompt $" { fail "maint print psymbols" } + timeout { fail "(timeout) maint print psymbols" } +} +gdb_test "maint print msymbols" \ + "print-msymbols takes an output file name and optional symbol file name" \ + "maint print msymbols w/o args" -send_gdb "maint print msymbols\n" -gdb_expect { - -re "print-msymbols takes an output file name and optional symbol file name.*$gdb_prompt $"\ - { pass "maint print msymbols w/o args" } - -re ".*$gdb_prompt $" { fail "maint print msymbols w/o args" } - timeout { fail "(timeout) maint print msymbols w/o args" } - } send_gdb "maint print msymbols msymbols_output ${binfile}\n" gdb_expect { - -re "^maint print msymbols msymbols_output \[^\n\]*\r\n$gdb_prompt $"\ - { - send_gdb "shell ls msymbols_output\n" - gdb_expect { - -re "msymbols_output\r\n$gdb_prompt $"\ - { - send_gdb "shell grep factorial msymbols_output\n" - gdb_expect { - -re "\\\[ *$decimal\\\] \[tT\]\[ \t\]+$hex factorial.*$gdb_prompt $"\ - { pass "maint print msymbols" } - -re ".*$gdb_prompt $" { fail "maint print msymbols" } - timeout { fail "(timeout) maint print msymbols" } - } - gdb_test "shell rm -f msymbols_output" "" - - } - -re ".*$gdb_prompt $" { fail "maint print msymbols" } - timeout { fail "(timeout) maint print msymbols" } - } - } - -re ".*$gdb_prompt $" { fail "maint print msymbols" } - timeout { fail "(timeout) maint print msymbols" } - } + -re "^maint print msymbols msymbols_output \[^\n\]*\r\n$gdb_prompt $" { + send_gdb "shell ls msymbols_output\n" + gdb_expect { + -re "msymbols_output\r\n$gdb_prompt $" { + send_gdb "shell grep factorial msymbols_output\n" + gdb_expect { + -re "\\\[ *$decimal\\\] \[tT\]\[ \t\]+$hex factorial.*$gdb_prompt $" { + pass "maint print msymbols" + } + -re ".*$gdb_prompt $" { fail "maint print msymbols" } + timeout { fail "(timeout) maint print msymbols" } + } + gdb_test "shell rm -f msymbols_output" "" + } + -re ".*$gdb_prompt $" { fail "maint print msymbols" } + timeout { fail "(timeout) maint print msymbols" } + } + } + -re ".*$gdb_prompt $" { fail "maint print msymbols" } + timeout { fail "(timeout) maint print msymbols" } +} # Check that maint print msymbols allows relative pathnames set mydir [pwd] -gdb_test "cd ${objdir}" "Working directory [string_to_regexp ${objdir}]\..*" "cd to objdir" +gdb_test "cd ${objdir}" \ + "Working directory [string_to_regexp ${objdir}]\..*" \ + "cd to objdir" + gdb_test_multiple "maint print msymbols msymbols_output2 ${subdir}/${testfile}" "maint print msymbols" { -re "^maint print msymbols msymbols_output2 \[^\n\]*\r\n$gdb_prompt $" { gdb_test_multiple "shell ls msymbols_output2" "maint print msymbols" { @@ -354,15 +303,14 @@ gdb_test_multiple "maint print msymbols msymbols_output2 ${subdir}/${testfile}" fail "(timeout) maint print msymbols" } } -gdb_test "cd ${mydir}" "Working directory [string_to_regexp ${mydir}]\..*" "cd to mydir" +gdb_test "cd ${mydir}" \ + "Working directory [string_to_regexp ${mydir}]\..*" \ + "cd to mydir" + +gdb_test "maint print symbols" \ + "Arguments missing: an output file name and an optional symbol file name" \ + "maint print symbols w/o args" -send_gdb "maint print symbols\n" -gdb_expect { - -re "Arguments missing: an output file name and an optional symbol file name.*$gdb_prompt $"\ - { pass "maint print symbols w/o args" } - -re ".*$gdb_prompt $" { fail "maint print symbols w/o args" } - timeout { fail "(timeout) maint print symbols w/o args" } - } # Request symbols for one particular source file so that we don't try to # dump the symbol information for the entire C library - over 500MB nowadays @@ -370,30 +318,28 @@ gdb_expect { send_gdb "maint print symbols symbols_output ${srcdir}/${subdir}/${srcfile}\n" gdb_expect { - -re "^maint print symbols symbols_output \[^\n\]*\r\n$gdb_prompt $"\ - { - send_gdb "shell ls symbols_output\n" - gdb_expect { - -re "symbols_output\r\n$gdb_prompt $"\ - { - # See comments for `maint print psymbols'. - send_gdb "shell grep 'main(.*block' symbols_output\n" - gdb_expect { - -re "int main\\(int, char \\*\\*, char \\*\\*\\); block.*$gdb_prompt $"\ - { pass "maint print symbols" } - -re ".*$gdb_prompt $" { fail "maint print symbols" } - timeout { fail "(timeout) maint print symbols" } - } - gdb_test "shell rm -f symbols_output" "" - - } - -re ".*$gdb_prompt $" { fail "maint print symbols" } - timeout { fail "(timeout) maint print symbols" } - } - } - -re ".*$gdb_prompt $" { fail "maint print symbols" } - timeout { fail "(timeout) maint print symbols" } - } + -re "^maint print symbols symbols_output \[^\n\]*\r\n$gdb_prompt $" { + send_gdb "shell ls symbols_output\n" + gdb_expect { + -re "symbols_output\r\n$gdb_prompt $" { + # See comments for `maint print psymbols'. + send_gdb "shell grep 'main(.*block' symbols_output\n" + gdb_expect { + -re "int main\\(int, char \\*\\*, char \\*\\*\\); block.*$gdb_prompt $" { + pass "maint print symbols" + } + -re ".*$gdb_prompt $" { fail "maint print symbols" } + timeout { fail "(timeout) maint print symbols" } + } + gdb_test "shell rm -f symbols_output" "" + } + -re ".*$gdb_prompt $" { fail "maint print symbols" } + timeout { fail "(timeout) maint print symbols" } + } + } + -re ".*$gdb_prompt $" { fail "maint print symbols" } + timeout { fail "(timeout) maint print symbols" } +} set msg "maint print type" gdb_test_multiple "maint print type argc" $msg { @@ -404,14 +350,13 @@ gdb_test_multiple "maint print type argc" $msg { if [istarget "hppa*-*-11*"] { setup_xfail hppa*-*-*11* CLLbs14860 - send "maint print unwind &main\n" - expect { - -re ".*unwind_table_entry \\($hex\\):\r\n\tregion_start = $hex <main>\r\n\tregion_end = $hex <main\\+\[0-9\]*>\r\n\tflags = Args_stored Save_RP\r\n\tRegion_description = $hex\r\n\tEntry_FR = $hex\r\n\tEntry_GR = $hex\r\n\tTotal_frame_size = $hex\r\n$gdb_prompt $"\ - { pass "maint print unwind" } - -re ".*unwind_table_entry \\($hex\\):\r\n\tregion_start = $hex <main>\r\n\tregion_end = $hex <main\\+\[0-9\]*>\r\n\tflags = Args_stored Save_RP\r\n\tFLD = $hex\r\n\tFLD = $hex\r\n\tFLD = $hex\r\n\tFLD = $hex\r\n$gdb_prompt $"\ - { xfail "maint print unwind" } - -re ".*$gdb_prompt $" { xfail "maint info unwind" } - timeout { fail "(timeout) maint print unwind" } + gdb_test_multiple "maint print unwind &main" "maint print unwind" { + -re ".*unwind_table_entry \\($hex\\):\r\n\tregion_start = $hex <main>\r\n\tregion_end = $hex <main\\+\[0-9\]*>\r\n\tflags = Args_stored Save_RP\r\n\tRegion_description = $hex\r\n\tEntry_FR = $hex\r\n\tEntry_GR = $hex\r\n\tTotal_frame_size = $hex\r\n$gdb_prompt $" { + pass "maint print unwind" + } + -re ".*unwind_table_entry \\($hex\\):\r\n\tregion_start = $hex <main>\r\n\tregion_end = $hex <main\\+\[0-9\]*>\r\n\tflags = Args_stored Save_RP\r\n\tFLD = $hex\r\n\tFLD = $hex\r\n\tFLD = $hex\r\n\tFLD = $hex\r\n$gdb_prompt $" { + xfail "maint print unwind" + } } } @@ -432,39 +377,40 @@ set timeout [expr $timeout + 300] set text_section ".text" set data_section ".data" -send_gdb "maint info sections\n" -gdb_expect { - -re "Exec file:\r\n.*break($EXEEXT)?., file type.*ER_RO.*$gdb_prompt $" { - # Looks like RealView which uses different section names. - set text_section ER_RO - set data_section ER_RW - pass "maint info sections" - } - -re "Exec file:\r\n.*break($EXEEXT)?., file type.*$gdb_prompt $"\ - { pass "maint info sections" } - -re ".*$gdb_prompt $" { fail "maint info sections" } - timeout { fail "(timeout) maint info sections" } - } +gdb_test_multiple "maint info sections" "maint info sections" { + -re "Exec file:\r\n.*break($EXEEXT)?., file type.*ER_RO.*$gdb_prompt $" { + # Looks like RealView which uses different section names. + set text_section ER_RO + set data_section ER_RW + pass "maint info sections" + } + -re "Exec file:\r\n.*break($EXEEXT)?., file type.*$gdb_prompt $" { + pass "maint info sections" + } +} # Test for new option: maint info sections <section name> # If you don't have a .text section, this will require tweaking. -send_gdb "maint info sections $text_section\n" -gdb_expect { - -re ".* \\.bss .*$gdb_prompt $" { fail "maint info sections .text" } - -re ".* $data_section .*$gdb_prompt $" { fail "maint info sections .text" } - -re ".* $text_section .*$gdb_prompt $" { pass "maint info sections .text" } - -re ".*$gdb_prompt $" { fail "maint info sections .text" } - timeout { fail "(timeout) maint info sections .text" } -} + +gdb_test_multiple "maint info sections $text_section" \ + "maint info sections .text" { + -re ".* \\.bss .*$gdb_prompt $" { + fail "maint info sections .text" + } + -re ".* $data_section .*$gdb_prompt $" { + fail "maint info sections .text" + } + -re ".* $text_section .*$gdb_prompt $" { + pass "maint info sections .text" + } + } # Test for new option: CODE section flag # If your data section is tagged CODE, xfail this test. -send_gdb "maint info sections CODE\n" -gdb_expect { + +gdb_test_multiple "maint info sections CODE" "maint info sections CODE" { -re ".* $data_section .*$gdb_prompt $" { fail "maint info sections CODE" } -re ".* $text_section .*$gdb_prompt $" { pass "maint info sections CODE" } - -re ".*$gdb_prompt $" { fail "maint info sections CODE" } - timeout { fail "(timeout) maint info sections CODE" } } # Test for new option: DATA section flag @@ -473,198 +419,96 @@ gdb_expect { # The "maint info sections DATA" test is marked for XFAIL on Cygwin, # because Windows has text sections marked DATA. setup_xfail "*-*-*cygwin*" -send_gdb "maint info sections DATA\n" -gdb_expect { + +gdb_test_multiple "maint info sections DATA" "maint info sections DATA" { -re ".* $text_section .*$gdb_prompt $" { fail "maint info sections DATA" } -re ".* $data_section .*$gdb_prompt $" { pass "maint info sections DATA" } -re ".* .rodata .*$gdb_prompt $" { pass "maint info sections DATA" } - -re ".*$gdb_prompt $" { fail "maint info sections DATA" } - timeout { fail "(timeout) maint info sections DATA" } } set bp_location6 [gdb_get_line_number "set breakpoint 6 here"] -send_gdb "maint info breakpoints\n" -gdb_expect { - -re "Num\[ \t\]+Type\[ \t\]+Disp\[ \t\]+Enb\[ \t\]+Address\[ \t\]+What\r\n1\[ \t\]+breakpoint\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex\[ \t\]+in main at.*break.c:$bp_location6 inf 1\r\n\[ \t\]+breakpoint already hit 1 time\r\n.*$gdb_prompt $"\ - { pass "maint info breakpoints" } - -re "Num\[ \t\]+Type\[ \t\]+Disp\[ \t\]+Enb\[ \t\]+Address\[ \t\]+What\r\n1\[ \t\]+breakpoint\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex in main at.*break.c:$bp_location6 sspace 1\r\n\[ \t\]+breakpoint already hit 1 time\r\n-1\[ \t\]+shlib events\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex.*breakpoint already hit.*$gdb_prompt $"\ - { pass "maint info breakpoints (with shlib events)" } - -re ".*$gdb_prompt $" { fail "maint info breakpoints" } - timeout { fail "(timeout) maint info breakpoints" } +gdb_test_multiple "maint info breakpoints" "maint info breakpoints" { + -re "Num\[ \t\]+Type\[ \t\]+Disp\[ \t\]+Enb\[ \t\]+Address\[ \t\]+What\r\n1\[ \t\]+breakpoint\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex\[ \t\]+in main at.*break.c:$bp_location6 inf 1\r\n\[ \t\]+breakpoint already hit 1 time\r\n.*$gdb_prompt $" { + pass "maint info breakpoints" + } + -re "Num\[ \t\]+Type\[ \t\]+Disp\[ \t\]+Enb\[ \t\]+Address\[ \t\]+What\r\n1\[ \t\]+breakpoint\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex in main at.*break.c:$bp_location6 sspace 1\r\n\[ \t\]+breakpoint already hit 1 time\r\n-1\[ \t\]+shlib events\[ \t\]+keep\[ \t\]+y\[ \t\]+$hex.*breakpoint already hit.*$gdb_prompt $" { + pass "maint info breakpoints (with shlib events)" + } } -send_gdb "maint print\n" -gdb_expect { - -re "\"maintenance print\" must be followed by the name of a print command\\.\r\nList.*unambiguous\\..*$gdb_prompt $"\ - { pass "maint print w/o args" } - -re ".*$gdb_prompt $" { fail "maint print w/o args" } - timeout { fail "(timeout) maint print w/o args" } - } - -send_gdb "maint info\n" -gdb_expect { - -re "\"maintenance info\" must be followed by the name of an info command\\.\r\nList.*unambiguous\\..*$gdb_prompt $"\ - { pass "maint info w/o args" } - -re ".*$gdb_prompt $" { fail "maint info w/o args" } - timeout { fail "(timeout) maint info w/o args" } - } +gdb_test "maint print" \ + "\"maintenance print\" must be followed by the name of a print command\\.\r\nList.*unambiguous\\..*" \ + "maint print w/o args" -send_gdb "maint\n" -gdb_expect { - -re "\"maintenance\" must be followed by the name of a maintenance command\\.\r\nList.*unambiguous\\..*$gdb_prompt $"\ - { pass "maint w/o args" } - -re ".*$gdb_prompt $" { fail "maint w/o args" } - timeout { fail "(timeout) maint w/o args" } - } +gdb_test "maint info" \ + "\"maintenance info\" must be followed by the name of an info command\\.\r\nList.*unambiguous\\..*" \ + "maint info w/o args" +gdb_test "maint" \ + "\"maintenance\" must be followed by the name of a maintenance command\\.\r\nList.*unambiguous\\..*" \ + "maint w/o args" set timeout $oldtimeout #============test help on maint commands -send_gdb "help maint\n" -gdb_expect { - -re "Commands for use by GDB maintainers\\..*Includes commands to dump specific internal GDB structures in.*a human readable form, to cause GDB to deliberately dump core,.*to test internal functions such as the C../ObjC demangler, etc\\..*List of maintenance subcommands:.*maintenance check-symtabs.*maintenance demangle.*(maintenance dump-me.*)?maintenance info.*maintenance internal-error.*maintenance print.*maintenance set.*maintenance show.*maintenance space.*maintenance time.*Type.*help maintenance.*followed by maintenance subcommand name for full documentation\\..*Command name abbreviations are allowed if unambiguous\\..*$gdb_prompt $"\ - { pass "help maint" } - -re ".*$gdb_prompt $" { fail "help maint" } - timeout { fail "(timeout) help maint" } - } - +gdb_test "help maint" \ + "Commands for use by GDB maintainers\\..*Includes commands to dump specific internal GDB structures in.*a human readable form, to cause GDB to deliberately dump core,.*to test internal functions such as the C../ObjC demangler, etc\\..*List of maintenance subcommands:.*maintenance check-symtabs.*maintenance demangle.*(maintenance dump-me.*)?maintenance info.*maintenance internal-error.*maintenance print.*maintenance set.*maintenance show.*maintenance space.*maintenance time.*Type.*help maintenance.*followed by maintenance subcommand name for full documentation\\..*Command name abbreviations are allowed if unambiguous\\..*" -send_gdb "help maint check-symtabs\n" -gdb_expect { - -re "Check consistency of psymtabs and symtabs\\..*$gdb_prompt $"\ - { pass "help maint check-symtabs" } - -re ".*$gdb_prompt $" { fail "help maint check-symtabs" } - timeout { fail "(timeout) help maint check-symtabs" } - } +gdb_test "help maint check-symtabs" \ + "Check consistency of psymtabs and symtabs\\..*" -send_gdb "help maint space\n" -gdb_expect { - -re "Set the display of space usage\\.\r\nIf nonzero, will cause the execution space for each command to be\r\ndisplayed, following the command's output\\..*$gdb_prompt $"\ - { pass "help maint space" } - -re ".*$gdb_prompt $" { fail "help maint space" } - timeout { fail "(timeout) help maint space" } - } +gdb_test "help maint space" \ + "Set the display of space usage\\.\r\nIf nonzero, will cause the execution space for each command to be\r\ndisplayed, following the command's output\\..*" -send_gdb "help maint time\n" -gdb_expect { - -re "Set the display of time usage\\.\r\nIf nonzero, will cause the execution time for each command to be\r\ndisplayed, following the command's output\\..*$gdb_prompt $"\ - { pass "help maint time" } - -re ".*$gdb_prompt $" { fail "help maint time" } - timeout { fail "(timeout) help maint time" } - } +gdb_test "help maint time" \ + "Set the display of time usage\\.\r\nIf nonzero, will cause the execution time for each command to be\r\ndisplayed, following the command's output\\..*" -send_gdb "help maint demangle\n" -gdb_expect { - -re "Demangle a C\\+\\+/ObjC mangled name\\.\r\nCall internal GDB demangler routine to demangle a C\\+\\+ link name\r\nand prints the result\\..*$gdb_prompt $"\ - { pass "help maint demangle" } - -re ".*$gdb_prompt $" { fail "help maint demangle" } - timeout { fail "(timeout) help maint demangle" } - } +gdb_test "help maint demangle" \ + "Demangle a C\\+\\+/ObjC mangled name\\.\r\nCall internal GDB demangler routine to demangle a C\\+\\+ link name\r\nand prints the result\\..*" -send_gdb "help maint dump-me\n" -gdb_expect { - -re "Get fatal error; make debugger dump its core\\.\r\nGDB sets its handling of SIGQUIT back to SIG_DFL and then sends\r\nitself a SIGQUIT signal\\..*$gdb_prompt $"\ - { pass "help maint dump-me" } - -re ".*$gdb_prompt $" { fail "help maint dump-me" } - timeout { fail "(timeout) help maint dump-me" } - } +gdb_test "help maint dump-me" \ + "Get fatal error; make debugger dump its core\\.\r\nGDB sets its handling of SIGQUIT back to SIG_DFL and then sends\r\nitself a SIGQUIT signal\\..*" -send_gdb "help maint internal-error\n" -gdb_expect { - -re "Give GDB an internal error\\.\r\nCause GDB to behave as if an internal error was detected\\..*$gdb_prompt $"\ - { pass "help maint internal-error" } - -re ".*$gdb_prompt $" { fail "help maint internal-error" } - timeout { fail "(timeout) help maint internal-error" } - } +gdb_test "help maint internal-error" \ + "Give GDB an internal error\\.\r\nCause GDB to behave as if an internal error was detected\\..*" -send_gdb "help maint internal-warning\n" -gdb_expect { - -re "Give GDB an internal warning\\.\r\nCause GDB to behave as if an internal warning was reported\\..*$gdb_prompt $"\ - { pass "help maint internal-warning" } - -re ".*$gdb_prompt $" { fail "help maint internal-warning" } - timeout { fail "(timeout) help maint internal-warning" } - } +gdb_test "help maint internal-warning" \ + "Give GDB an internal warning\\.\r\nCause GDB to behave as if an internal warning was reported\\..*" -send_gdb "help maint print statistics\n" -gdb_expect { - -re "Print statistics about internal gdb state\\..*$gdb_prompt $"\ - { pass "help maint print statistics" } - -re ".*$gdb_prompt $" { fail "help maint print statistics" } - timeout { fail "(timeout) help maint print statistics" } - } +gdb_test "help maint print statistics" \ + "Print statistics about internal gdb state\\..*" gdb_test "help maint print dummy-frames" \ "Print the contents of the internal dummy-frame stack." -send_gdb "help maint print objfiles\n" -gdb_expect { - -re "Print dump of current object file definitions\\..*$gdb_prompt $"\ - { pass "help maint print objfiles" } - -re ".*$gdb_prompt $" { fail "help maint print objfiles" } - timeout { fail "(timeout) help maint print objfiles" } - } - -send_gdb "help maint print psymbols\n" -gdb_expect { - -re "Print dump of current partial symbol definitions\\.\r\nEntries in the partial symbol table are dumped to file OUTFILE\\.\r\nIf a SOURCE file is specified, dump only that file's partial symbols\\..*$gdb_prompt $"\ - { pass "help maint print psymbols" } - -re ".*$gdb_prompt $" { fail "help maint print psymbols" } - timeout { fail "(timeout) help maint print psymbols" } - } +gdb_test "help maint print objfiles" \ + "Print dump of current object file definitions\\..*" -send_gdb "help maint print msymbols\n" -gdb_expect { - -re "Print dump of current minimal symbol definitions\\.\r\nEntries in the minimal symbol table are dumped to file OUTFILE\\.\r\nIf a SOURCE file is specified, dump only that file's minimal symbols\\..*$gdb_prompt $"\ - { pass "help maint print msymbols" } - -re ".*$gdb_prompt $" { fail "help maint print msymbols" } - timeout { fail "(timeout) help maint print msymbols" } - } +gdb_test "help maint print psymbols" \ + "Print dump of current partial symbol definitions\\.\r\nEntries in the partial symbol table are dumped to file OUTFILE\\.\r\nIf a SOURCE file is specified, dump only that file's partial symbols\\..*" -send_gdb "help maint print symbols\n" -gdb_expect { - -re "Print dump of current symbol definitions\\.\r\nEntries in the full symbol table are dumped to file OUTFILE\\.\r\nIf a SOURCE file is specified, dump only that file's symbols\\..*$gdb_prompt $"\ - { pass "help maint print symbols" } - -re ".*$gdb_prompt $" { fail "help maint print symbols" } - timeout { fail "(timeout) help maint print symbols" } - } +gdb_test "help maint print msymbols" \ + "Print dump of current minimal symbol definitions\\.\r\nEntries in the minimal symbol table are dumped to file OUTFILE\\.\r\nIf a SOURCE file is specified, dump only that file's minimal symbols\\..*" +gdb_test "help maint print symbols" \ + "Print dump of current symbol definitions\\.\r\nEntries in the full symbol table are dumped to file OUTFILE\\.\r\nIf a SOURCE file is specified, dump only that file's symbols\\..*" -send_gdb "help maint print type\n" -gdb_expect { - -re "Print a type chain for a given symbol\\.\r\nFor each node in a type chain, print the raw data for each member of\r\nthe type structure, and the interpretation of the data\\..*$gdb_prompt $"\ - { pass "help maint print type" } - -re ".*$gdb_prompt $" { fail "help maint print type" } - timeout { fail "(timeout) help maint print type" } - } +gdb_test "help maint print type" \ + "Print a type chain for a given symbol\\.\r\nFor each node in a type chain, print the raw data for each member of\r\nthe type structure, and the interpretation of the data\\..*" if [istarget "hppa*-*-*"] { - send_gdb "help maint print unwind\n" - gdb_expect { - -re "Print unwind table entry at given address\\..*$gdb_prompt $"\ - { pass "help maint print unwind" } - -re ".*$gdb_prompt $" { fail "help maint print unwind" } - timeout { fail "(timeout) help maint print unwind" } - } + gdb_test "help maint print unwind" \ + "Print unwind table entry at given address\\..*" } -send_gdb "help maint info sections\n" -gdb_expect { - -re "List the BFD sections of the exec and core files\\..*$gdb_prompt $"\ - { pass "help maint info sections" } - -re ".*$gdb_prompt $" { fail "help maint info sections" } - timeout { fail "(timeout) help maint info sections" } - } +gdb_test "help maint info sections" \ + "List the BFD sections of the exec and core files\\..*" +gdb_test "help maint info breakpoints" \ + "Status of all breakpoints, or breakpoint number NUMBER.*" -send_gdb "help maint info breakpoints\n" -gdb_expect { --re "Status of all breakpoints, or breakpoint number NUMBER.*$gdb_prompt $" { pass "help maint info breakpoints" } - -re ".*$gdb_prompt $" { fail "help maint info breakpoints" } - timeout { fail "(timeout) help maint info breakpoints" } - } #send_gdb "help maint info breakpoints\n" #expect { @@ -674,13 +518,8 @@ gdb_expect { # timeout { fail "(timeout) help maint info breakpoints" } # } -send_gdb "help maint info\n" -gdb_expect { - -re "Commands for showing internal info about the program being debugged.*unambiguous\\..*$gdb_prompt $"\ - { pass "help maint info" } - -re ".*$gdb_prompt $" { fail "help maint info" } - timeout { fail "(timeout) help maint info" } - } +gdb_test "help maint info" \ + "Commands for showing internal info about the program being debugged.*unambiguous\\..*" test_prefix_command_help {"maint print" "maintenance print"} { "Maintenance command for printing GDB internal state\\.\[\r\n\]+" @@ -696,18 +535,11 @@ test_prefix_command_help {"maint" "maintenance"} { #set oldtimeout $timeout #set timeout [expr $timeout + 300] -send_gdb "maint dump-me\n" -gdb_expect { - -re "Should GDB dump core.*\\(y or n\\) $"\ - { send_gdb "n\n" - gdb_expect { - -re ".*$gdb_prompt $" { pass "maint dump-me" } - timeout { fail "(timeout) maint dump-me" } - } - } - -re ".*$gdb_prompt $" { fail "maint dump-me" } - timeout { fail "(timeout) maint dump-me" } - } +gdb_test_multiple "maint dump-me" "maint dump-me" { + -re "Should GDB dump core.*\\(y or n\\) $" { + gdb_test "n" ".*" "maint dump-me" + } +} send_gdb "maint internal-error\n" gdb_expect { |