This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[RFA] gdb.base/commands.exp: make all test names unique
- To: gdb-patches at sources dot redhat dot com
- Subject: [RFA] gdb.base/commands.exp: make all test names unique
- From: Michael Elizabeth Chastain <chastain at cygnus dot com>
- Date: Sun, 20 May 2001 05:09:19 -0700
This patch changes gdb.base/commands.exp to make all test names unique.
Testing: I tested this on native Red Hat Linux 7 and native Solaris 2.8.
OK to apply?
Michael
===
2001-05-19 Michael Chastain <chastain@redhat.com>
* gdb.base/commands.exp: Make all test names unique.
Index: gdb/testsuite/gdb.base/commands.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/commands.exp,v
retrieving revision 1.8
diff -c -3 -p -r1.8 commands.exp
*** gdb/testsuite/gdb.base/commands.exp 2001/03/06 08:21:50 1.8
--- gdb/testsuite/gdb.base/commands.exp 2001/05/20 05:54:01
*************** proc infrun_breakpoint_command_test {} {
*** 184,190 ****
return
}
! gdb_test "set args 6" "" "set args in progvar_simple_while_test"
if { ![runto factorial] } then { gdb_suppress_tests }
# Don't depend upon argument passing, since most simulators don't
# currently support it. Bash value variable to be what we want.
--- 184,190 ----
return
}
! gdb_test "set args 6" "" "set args in infrun_breakpoint_command_test"
if { ![runto factorial] } then { gdb_suppress_tests }
# Don't depend upon argument passing, since most simulators don't
# currently support it. Bash value variable to be what we want.
*************** proc watchpoint_command_test {} {
*** 326,333 ****
}
send_gdb "end\n"
gdb_expect {
! -re "$gdb_prompt $" {pass "begin commands on watch"}
! timeout {fail "(timeout) begin commands on watch"}
}
send_gdb "continue\n"
gdb_expect {
--- 326,333 ----
}
send_gdb "end\n"
gdb_expect {
! -re "$gdb_prompt $" {pass "end commands on watch"}
! timeout {fail "(timeout) end commands on watch"}
}
send_gdb "continue\n"
gdb_expect {
*************** proc test_command_prompt_position {} {
*** 351,357 ****
# Don't depend upon argument passing, since most simulators don't
# currently support it. Bash value variable to be what we want.
delete_breakpoints
! gdb_test "break factorial" "Breakpoint.*at.*" "break factorial #2"
gdb_test "p value=5" "" "set value to 5 in test_command_prompt_position"
# All this test should do is print 0xdeadbeef once.
gdb_test "if value == 1\np/x 0xfeedface\nelse\np/x 0xdeadbeef\nend" \
--- 351,357 ----
# Don't depend upon argument passing, since most simulators don't
# currently support it. Bash value variable to be what we want.
delete_breakpoints
! gdb_test "break factorial" "Breakpoint.*at.*" "break factorial #3"
gdb_test "p value=5" "" "set value to 5 in test_command_prompt_position"
# All this test should do is print 0xdeadbeef once.
gdb_test "if value == 1\np/x 0xfeedface\nelse\np/x 0xdeadbeef\nend" \
*************** proc test_command_prompt_position {} {
*** 406,439 ****
proc deprecated_command_test {} {
gdb_test "maintenance deprecate blah" "Can't find command.*" \
! "tried to deprecate non-existsing command"
! gdb_test "maintenance deprecate p \"new_p\"" ""
gdb_test "p 5" \
"Warning: 'p', an alias for the command 'print' is deprecated.*Use 'new_p'.*" \
"p deprecated warning, with replacement"
! gdb_test "p 5" ".\[0-9\]* = 5.*" "Deprecated warning goes away"
! gdb_test "maintenance deprecate p \"new_p\"" ""
gdb_test "maintenance deprecate print \"new_print\"" ""
gdb_test "p 5" \
"Warning: command 'print' \\(p\\) is deprecated.*Use 'new_print'.*" \
"both alias and command are deprecated"
! gdb_test "p 5" ".\[0-9\]* = 5.*" "Deprecated warning goes away"
gdb_test "maintenance deprecate set remote memory-read-packet-size \"srm\" " \
"" \
! "deprecate long comamnd"
gdb_test "set remote memory-read-packet-size" \
"Warning: command 'set remote memory-read-packet-size' is deprecated.*Use 'srm'.*" \
! "long command deprecated"
gdb_test "maintenance deprecate set remote memory-read-packet-size" \
"" \
! "deprecate long comamnd"
gdb_test "set remote memory-read-packet-size" \
"Warning: command 'set remote memory-read-packet-size' is deprecated.*No alternative known.*" \
! "long command deprecated with no alternative."
gdb_test "maintenance deprecate" \
"\"maintenance deprecate\".*" \
--- 406,439 ----
proc deprecated_command_test {} {
gdb_test "maintenance deprecate blah" "Can't find command.*" \
! "tried to deprecate non-existing command"
! gdb_test "maintenance deprecate p \"new_p\"" "" "maintenance deprecate p \"new_p\" /1/"
gdb_test "p 5" \
"Warning: 'p', an alias for the command 'print' is deprecated.*Use 'new_p'.*" \
"p deprecated warning, with replacement"
! gdb_test "p 5" ".\[0-9\]* = 5.*" "Deprecated warning goes away /1/"
! gdb_test "maintenance deprecate p \"new_p\"" "" "maintenance deprecate p \"new_p\" /2/"
gdb_test "maintenance deprecate print \"new_print\"" ""
gdb_test "p 5" \
"Warning: command 'print' \\(p\\) is deprecated.*Use 'new_print'.*" \
"both alias and command are deprecated"
! gdb_test "p 5" ".\[0-9\]* = 5.*" "Deprecated warning goes away /2/"
gdb_test "maintenance deprecate set remote memory-read-packet-size \"srm\" " \
"" \
! "deprecate long command /1/"
gdb_test "set remote memory-read-packet-size" \
"Warning: command 'set remote memory-read-packet-size' is deprecated.*Use 'srm'.*" \
! "long command deprecated /1/"
gdb_test "maintenance deprecate set remote memory-read-packet-size" \
"" \
! "deprecate long command /2/"
gdb_test "set remote memory-read-packet-size" \
"Warning: command 'set remote memory-read-packet-size' is deprecated.*No alternative known.*" \
! "long command deprecated with no alternative /2/"
gdb_test "maintenance deprecate" \
"\"maintenance deprecate\".*" \