[gdb/testsuite] Fix gdb.threads/threadapply.exp with editing off
authorTom de Vries <tdevries@suse.de>
Fri, 31 Mar 2023 15:15:37 +0000 (17:15 +0200)
committerTom de Vries <tdevries@suse.de>
Fri, 31 Mar 2023 15:15:37 +0000 (17:15 +0200)
With test-case gdb.threads/threadapply.exp and editing set to on, we have:
...
(gdb) define remove^M
Type commands for definition of "remove".^M
End with a line saying just "end".^M
>remove-inferiors 3^M
>end^M
(gdb)
...
but with editing set to off, we run into:
...
(gdb) define remove^M
Type commands for definition of "remove".^M
End with a line saying just "end".^M
>remove-inferiors 3^M
end^M
>(gdb) FAIL: gdb.threads/threadapply.exp: thread_set=all: try remove: \
  define remove (timeout)
...

The commands are issued by this test:
...
gdb_define_cmd "remove" {
    "remove-inferiors 3"
}
...
which does:
- gdb_test_multiple "define remove", followed by
- gdb_test_multiple "remove-inferiors 3\nend".

Proc gdb_test_multiple has special handling for multi-line commands, which
splits it up into subcommands, and for each subcommand issues it and then
waits for the resulting prompt (the secondary prompt ">" for all but the last
subcommand).

However, that doesn't work as expected in this case because the initial
gdb_test_multiple "define remove" fails to match all resulting output, and
consequently the secondary prompt resulting from "define remove" is counted as
if it was the one resulting from "remove-inferiors 3".

Fix this by matching the entire output of "define remove", including the
secondary prompt.

Tested on x86_64-linux.

PR testsuite/30288
Bug: https://sourceware.org/bugzilla/show_bug.cgi?id=30288

gdb/testsuite/lib/gdb.exp

index 8b85618abcd984adb4b617b1fbf0a84314b238bd..bb4bd6564717e6d34f0955182a912aec853abe50 100644 (file)
@@ -8490,7 +8490,7 @@ proc gdb_define_cmd {command command_list} {
     set test "define $command"
 
     gdb_test_multiple "define $command" $test {
-       -re "End with"  {
+       -re "End with \[^\r\n\]*\r\n *>$"  {
            gdb_test_multiple $input $test {
                -re "\r\n$gdb_prompt " {
                }