[gdb/testsuite] Fix timeout in gdb.tui/main.exp
authorTom de Vries <tdevries@suse.de>
Tue, 25 Apr 2023 06:33:57 +0000 (08:33 +0200)
committerTom de Vries <tdevries@suse.de>
Tue, 25 Apr 2023 06:33:57 +0000 (08:33 +0200)
With test-case gdb.tui/main.exp we run into:
...
WARNING: timeout in accept_gdb_output
PASS: gdb.tui/main.exp: show main after file
...

The problem is that this command:
...
Term::command "file [standard_output_file $testfile]"
...
tries to match "(gdb) $cmd", but due to the long file name, $cmd is split up
over two lines:
...
   16 (gdb) file /data/vries/gdb/leap-15-4/build/gdb/testsuite/outputs/gdb.tui/main/ma
   17 in
   18 Reading symbols from /data/vries/gdb/leap-15-4/build/gdb/testsuite/outputs/gdb.t
   19 ui/main/main...
   20 (gdb)
...

Fix this by matching "Reading symbols from" instead.

Tested on x86_64-linux.

gdb/testsuite/gdb.tui/main.exp

index 7fc9969044f0bc30b72ca2d4179741ea8d283ab0..9cd3ce8a96d578465259680bb597022df91415e3 100644 (file)
@@ -40,7 +40,8 @@ if {![Term::enter_tui]} {
     return
 }
 
-Term::command "file [standard_output_file $testfile]"
+send_gdb "file [standard_output_file $testfile]\n"
+gdb_assert { [Term::wait_for "Reading symbols from"] } "file command"
 Term::check_contents "show main after file" \
     [string_to_regexp "|___[format %06d $nr]_$line"]