# current spawn_id) and pass/fail TEST accordingly.
# If RE is empty, ensure that the program did not output anything.
-proc match_re_or_ensure_not_output { re test } {
+proc match_re_or_ensure_no_output { re test } {
if { $re != "" } {
gdb_expect {
-re "$re" {
}
with_spawn_id $mi_spawn_id {
- match_re_or_ensure_not_output $mi_re "event on MI"
+ match_re_or_ensure_no_output $mi_re "event on MI"
}
# Do the 'inferior' command on the currently selected inferior. For now,
}
with_spawn_id $mi_spawn_id {
- match_re_or_ensure_not_output $mi_re "event on MI again"
+ match_re_or_ensure_no_output $mi_re "event on MI again"
}
}
}
with_spawn_id $mi_spawn_id {
- match_re_or_ensure_not_output $mi_re "select thread, event on MI "
+ match_re_or_ensure_no_output $mi_re "select thread, event on MI "
}
# Do the 'thread' command to select the same thread. We shouldn't receive
}
with_spawn_id $mi_spawn_id {
- match_re_or_ensure_not_output $mi_re "select thread, event on MI again"
+ match_re_or_ensure_no_output $mi_re "select thread, event on MI again"
}
# Try the 'thread' command without arguments.
}
with_spawn_id $mi_spawn_id {
- match_re_or_ensure_not_output $mi_re "thread without args, event on MI"
+ match_re_or_ensure_no_output $mi_re "thread without args, event on MI"
}
}
}
with_spawn_id $mi_spawn_id {
- match_re_or_ensure_not_output $mi_re "select thread, event on MI"
+ match_re_or_ensure_no_output $mi_re "select thread, event on MI"
}
# Do the 'thread' command to select the third thread again. Again, we
}
with_spawn_id $mi_spawn_id {
- match_re_or_ensure_not_output $mi_re "select thread again, event on MI"
+ match_re_or_ensure_no_output $mi_re "select thread again, event on MI"
}
# Try the 'thread' command without arguments.
}
with_spawn_id $mi_spawn_id {
- match_re_or_ensure_not_output $mi_re "thread without args, event on MI"
+ match_re_or_ensure_no_output $mi_re "thread without args, event on MI"
}
}
}
with_spawn_id $mi_spawn_id {
- match_re_or_ensure_not_output $mi_re "select frame 1, event on MI"
+ match_re_or_ensure_no_output $mi_re "select frame 1, event on MI"
}
# Do the 'frame' command to select the same frame. This time we don't
}
with_spawn_id $mi_spawn_id {
- match_re_or_ensure_not_output $mi_re "select frame 1 again, event on MI"
+ match_re_or_ensure_no_output $mi_re "select frame 1 again, event on MI"
}
# Do the 'frame' command without arguments. We shouldn't see anything on MI.
}
with_spawn_id $mi_spawn_id {
- match_re_or_ensure_not_output $mi_re "frame without args, event on MI"
+ match_re_or_ensure_no_output $mi_re "frame without args, event on MI"
}
}
}
with_spawn_id $mi_spawn_id {
- match_re_or_ensure_not_output $mi_re "select frame 1, event on MI"
+ match_re_or_ensure_no_output $mi_re "select frame 1, event on MI"
}
# Do the 'frame' command without arguments.
}
with_spawn_id $mi_spawn_id {
- match_re_or_ensure_not_output $mi_re "frame without args, event on MI"
+ match_re_or_ensure_no_output $mi_re "frame without args, event on MI"
}
}
}
}
with_spawn_id $mi_spawn_id {
- match_re_or_ensure_not_output $mi_re "select frame 1, event on MI"
+ match_re_or_ensure_no_output $mi_re "select frame 1, event on MI"
}
# Do the 'select-frame' command to select the same frame. This time we expect to
}
with_spawn_id $mi_spawn_id {
- match_re_or_ensure_not_output $mi_re "select frame 1 again, event on MI"
+ match_re_or_ensure_no_output $mi_re "select frame 1 again, event on MI"
}
}
}
with_spawn_id $mi_spawn_id {
- match_re_or_ensure_not_output $mi_re "select frame 1, event on MI"
+ match_re_or_ensure_no_output $mi_re "select frame 1, event on MI"
}
}
}
}
with_spawn_id $mi_spawn_id {
- match_re_or_ensure_not_output $mi_re "frame up, event on MI"
+ match_re_or_ensure_no_output $mi_re "frame up, event on MI"
}
# Try doing a 'down'.
}
with_spawn_id $mi_spawn_id {
- match_re_or_ensure_not_output $mi_re "frame down, event on MI"
+ match_re_or_ensure_no_output $mi_re "frame down, event on MI"
}
}
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output "$cli_re\r\n" "-thread-select, event on CLI"
+ match_re_or_ensure_no_output "$cli_re\r\n" "-thread-select, event on CLI"
}
# Do the '-thread-select' command to select the same thread. We
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output $cli_re "-thread-select again, event on CLI"
+ match_re_or_ensure_no_output $cli_re "-thread-select again, event on CLI"
}
}
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output "$cli_re\r\n" "-thread-select, event on CLI"
+ match_re_or_ensure_no_output "$cli_re\r\n" "-thread-select, event on CLI"
}
# Do the 'thread' command to select the third thread again. Again, we
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output $cli_re "-thread-select again, event on CLI"
+ match_re_or_ensure_no_output $cli_re "-thread-select again, event on CLI"
}
}
with_test_prefix "thread 1.2 with --thread" {
# Test selecting a thread from MI with a --thread option. This test
- # verifies that even if the thread GDB would switch to is the same has
+ # verifies that even if the thread GDB would switch to is the same as
# the thread specified with --thread, an event is still sent to CLI.
# In this case this is thread 1.2
with_spawn_id $gdb_main_spawn_id {
# This doesn't work as of now, no event is sent on CLI. It is
# commented out so we don't have to wait for the timeout every time.
- # match_re_or_ensure_not_output "$cli_re\r\n" "-thread-select, event on cli"
+ # match_re_or_ensure_no_output "$cli_re\r\n" "-thread-select, event on cli"
kfail "gdb/20631" "thread-select, event on cli"
}
}
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output "$cli_re\r\n" "-stack-select-frame, event on MI"
+ match_re_or_ensure_no_output "$cli_re\r\n" "-stack-select-frame, event on CLI"
}
# Do the '-stack-select-frame' command to select the same frame. This time we don't
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output $cli_re "-stack-select-frame again, event on MI"
+ match_re_or_ensure_no_output $cli_re "-stack-select-frame again, event on CLI"
}
}
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output $cli_re "-stack-select-frame, event on MI"
+ match_re_or_ensure_no_output $cli_re "-stack-select-frame, event on CLI"
}
}
}
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output "$cli_re\r\n" "select inferior, event on CLI"
+ match_re_or_ensure_no_output "$cli_re\r\n" "select inferior, event on CLI"
}
# Do the 'inferior' command on the currently selected inferior. For now,
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output $cli_re "select inferior again, event on CLI"
+ match_re_or_ensure_no_output $cli_re "select inferior again, event on CLI"
}
}
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output "$cli_re\r\n" "select thread, event on CLI"
+ match_re_or_ensure_no_output "$cli_re\r\n" "select thread, event on CLI"
}
# Do the 'thread' command to select the same thread. We shouldn't
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output $cli_re "select thread again, event on CLI"
+ match_re_or_ensure_no_output $cli_re "select thread again, event on CLI"
}
# Try the 'thread' command without arguments.
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output $cli_re "thread without args, event on CLI"
+ match_re_or_ensure_no_output $cli_re "thread without args, event on CLI"
}
}
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output "$cli_re\r\n" "select thread, event on CLI"
+ match_re_or_ensure_no_output "$cli_re\r\n" "select thread, event on CLI"
}
# Do the 'thread' command to select the third thread again. Again, we
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output $cli_re "select thread again, event on CLI"
+ match_re_or_ensure_no_output $cli_re "select thread again, event on CLI"
}
# Try the 'thread' command without arguments.
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output $cli_re "thread without args, event on CLI"
+ match_re_or_ensure_no_output $cli_re "thread without args, event on CLI"
}
}
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output "$cli_re\r\n" "select frame 1, event on CLI"
+ match_re_or_ensure_no_output "$cli_re\r\n" "select frame 1, event on CLI"
}
# Do the 'frame' command to select the same frame. This time we don't
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output $cli_re "select frame 1 again, event on CLI"
+ match_re_or_ensure_no_output $cli_re "select frame 1 again, event on CLI"
}
# Do the 'frame' command without arguments. We shouldn't see anything on MI.
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output $cli_re "frame without args, event on CLI"
+ match_re_or_ensure_no_output $cli_re "frame without args, event on CLI"
}
}
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output $cli_re "select frame 1, event on CLI"
+ match_re_or_ensure_no_output $cli_re "select frame 1, event on CLI"
}
# Do the 'frame' command without arguments.
}
with_spawn_id $gdb_main_spawn_id {
- match_re_or_ensure_not_output $cli_re "frame without args, event on CLI"
+ match_re_or_ensure_no_output $cli_re "frame without args, event on CLI"
}
}
}