gdb/testsuite/gdb.base/break.exp: split test_break_commands_clear

Change-Id: Ia58f90117d52fc419fc494836d9b4ed5d902fe9b
Approved-By: Kevin Buettner <kevinb@redhat.com>
This commit is contained in:
Simon Marchi 2022-11-23 13:39:46 -05:00 committed by Simon Marchi
parent 0075c53724
commit 4d70f72ee0

View File

@ -897,13 +897,21 @@ with_test_prefix "set line:file breakpoint via convenience variable" {
"non-integer convenience variable disallowed"
}
#
# Test that commands can be cleared without error.
#
gdb_test "commands\nprint 232323\nend" ">end" "set some breakpoint commands"
gdb_test "commands\nend" ">end" "clear breakpoint commands"
# We verify that the commands were cleared by ensuring that the last
# breakpoint's location ends the output -- if there were commands,
# they would have been printed after the location.
gdb_test "info break" "$srcfile:$line_actual" "verify that they were cleared"
proc_with_prefix test_break_commands_clear {} {
clean_restart breako2
set line [gdb_get_line_number "set breakpoint 1 here"]
gdb_breakpoint $line
gdb_test "commands\nprint 232323\nend" ">end" "set some breakpoint commands"
gdb_test "commands\nend" ">end" "clear breakpoint commands"
# We verify that the commands were cleared by ensuring that the last
# breakpoint's location ends the output -- if there were commands,
# they would have been printed after the location.
gdb_test "info break" "$::srcfile:$::decimal" "verify that they were cleared"
}
test_break_commands_clear