Fix racy output matching in gdb.base/completion.exp

Testing with:
 $ make check-read1 TESTS="gdb.base/completion.exp"

Exposes a testcase bug that can result in racy fails:

  FAIL: gdb.base/completion.exp: command-name completion limiting using tab character
  ERROR: Undefined command "".
  FAIL: gdb.base/completion.exp: symbol-name completion limiting using tab character
  FAIL: gdb.base/completion.exp: symbol-name completion limiting using complete command

testsuite/gdb.log shows:

  (gdb) PASS: gdb.base/completion.exp: set max-completions 5
  p^G
  passcount     path          print         print-object  printf
  *** List may be truncated, max-completions reached. ***
  (gdb) FAIL: gdb.base/completion.exp: command-name completion limiting using tab character
  pcomplete p
  Undefined command: "pcomplete".  Try "help".
  (gdb) ERROR: Undefined command "".

The problem is that the expect buffer can get filled with partial
output that ends in the gdb prompt, and so the default FAIL inside
gdb_test_multiple matches.

Fix that by splitting the gdb_test_multiple in two stages.  Since that
is done in more than one place in the testcase, move the otherwise
duplicate code to helper procedures.

gdb/testsuite/ChangeLog:
2017-11-09  Pedro Alves  <palves@redhat.com>

	* gdb.base/completion.exp (ignore_and_resync, test_tab_complete):
	New procedures, factored out from ...
	(top level): ... here, and adjusted to avoid expecting beyond the
	prompt in one go.
This commit is contained in:
Pedro Alves 2017-11-09 22:44:08 +00:00
parent f29f4b6ba1
commit c7a3851716
2 changed files with 43 additions and 54 deletions

View File

@ -1,3 +1,10 @@
2017-11-09 Pedro Alves <palves@redhat.com>
* gdb.base/completion.exp (ignore_and_resync, test_tab_complete):
New procedures, factored out from ...
(top level): ... here, and adjusted to avoid expecting beyond the
prompt in one go.
2017-11-09 Pedro Alves <palves@redhat.com>
* gdb.asm/asm-source.exp ("kill" test): Match the whole query

View File

@ -863,36 +863,45 @@ gdb_test "complete break $srcfile:ma" "break\.c:main"
gdb_test_no_output "set max-completions 5"
set test "command-name completion limiting using tab character"
send_gdb "p\t"
gdb_test_multiple "" "$test" {
-re "^p\\\x07$" {
send_gdb "\t"
gdb_test_multiple "" "$test" {
-re "List may be truncated, max-completions reached.*\r\n$gdb_prompt p$" {
# Complete the command and ignore the output to resync
# gdb for the next test.
send_gdb "\n"
gdb_test_multiple "" "$test" {
-re "$gdb_prompt $" {
pass "$test"
}
proc ignore_and_resync {cmd result test} {
global gdb_prompt
gdb_test_multiple "" "$test" {
-re "^${cmd}$" {
# Complete the command and ignore the output
# to resync gdb for the next test.
send_gdb "\n"
gdb_test_multiple "" "$test" {
-re "$gdb_prompt $" {
$result $test
}
}
-re "$gdb_prompt p$" {
# Complete the command and ignore the output to resync
# gdb for the next test.
send_gdb "\n"
gdb_test_multiple "" "$test" {
-re "$gdb_prompt $" {
fail "$test"
}
}
}
}
}
}
}
proc test_tab_complete {cmd test} {
global gdb_prompt
send_gdb "${cmd}\t"
gdb_test_multiple "" "$test" {
-re "^${cmd}\\\x07$" {
send_gdb "\t"
gdb_test_multiple "" "$test" {
-re "List may be truncated, max-completions reached.*\r\n$gdb_prompt " {
ignore_and_resync $cmd pass $test
}
-re "$gdb_prompt " {
ignore_and_resync $cmd fail $test
}
}
}
}
}
test_tab_complete "p" \
"command-name completion limiting using tab character"
set test "command-name completion limiting using complete command"
send_gdb "complete p\n"
gdb_test_multiple "" "$test" {
@ -903,35 +912,8 @@ gdb_test_multiple "" "$test" {
gdb_test_no_output "set max-completions 3"
set test "symbol-name completion limiting using tab character"
send_gdb "p marker\t"
gdb_test_multiple "" "$test" {
-re "^p marker\\\x07$" {
send_gdb "\t"
gdb_test_multiple "" "$test" {
-re "List may be truncated, max-completions reached.*\r\n$gdb_prompt p marker$" {
# Complete the command and ignore the output to resync
# gdb for the next test.
send_gdb "\n"
gdb_test_multiple "" "$test" {
-re "$gdb_prompt $" {
pass "$test"
}
}
}
-re "$gdb_prompt p marker$" {
# Complete the command and ignore the output to resync
# gdb for the next test.
send_gdb "\n"
gdb_test_multiple "" "$test" {
-re "$gdb_prompt $" {
fail "$test"
}
}
}
}
}
}
test_tab_complete "p marker" \
"symbol-name completion limiting using tab character"
set test "symbol-name completion limiting using complete command"
send_gdb "complete p mark\n"