diff options
Diffstat (limited to 'gdb/testsuite/gdb.base/commands.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/commands.exp | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.base/commands.exp b/gdb/testsuite/gdb.base/commands.exp index 677361acb3d..49a9242342c 100644 --- a/gdb/testsuite/gdb.base/commands.exp +++ b/gdb/testsuite/gdb.base/commands.exp @@ -1026,6 +1026,47 @@ proc define_if_without_arg_test {} { } } +# Test the loop_break command. + +proc_with_prefix loop_break_test {} { + gdb_test_no_output "set \$a = 0" "initialize \$a" + + gdb_test \ + [multi_line_input \ + "while \$a < 5" \ + " if \$a == 3" \ + " loop_break" \ + " end" \ + " set \$a = \$a + 1" \ + "end"] \ + "" \ + "run while loop" + + gdb_test "print \$a" " = 3" "validate \$a" +} + +# Test the loop_continue command. + +proc_with_prefix loop_continue_test {} { + gdb_test_no_output "set \$a = 0" "initialize \$a" + gdb_test_no_output "set \$b = 0" "initialize \$b" + + gdb_test \ + [multi_line_input \ + "while \$a < 5" \ + " set \$a = \$a + 1" \ + " if \$a % 2 == 0" \ + " loop_continue" \ + " end" \ + " set \$b = \$b + 1" \ + "end"] \ + "" \ + "run while loop" + + gdb_test "print \$a" " = 5" "validate \$a" + gdb_test "print \$b" " = 3" "validate \$b" +} + # Test an input line split with a continuation character (backslash) # while entering a multi-line command (in a secondary prompt). @@ -1092,5 +1133,7 @@ error_clears_commands_left redefine_hook_test backslash_in_multi_line_command_test define_if_without_arg_test +loop_break_test +loop_continue_test # This one should come last, as it redefines "backtrace". redefine_backtrace_test |