diff options
-rw-r--r-- | gdb/testsuite/lib/completion-support.exp | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/gdb/testsuite/lib/completion-support.exp b/gdb/testsuite/lib/completion-support.exp index bf9c5ad352c..275f8874f15 100644 --- a/gdb/testsuite/lib/completion-support.exp +++ b/gdb/testsuite/lib/completion-support.exp @@ -94,6 +94,9 @@ proc test_gdb_complete_tab_none { line } { -re "^$line_re$completion::bell_re$" { pass "$test" } + -re "$line_re\[^ \]+ $" { + fail "$test" + } } clear_input_line $test @@ -108,11 +111,15 @@ proc test_gdb_complete_tab_unique { input_line complete_line_re append_char_re } set test "tab complete \"$input_line\"" send_gdb "$input_line\t" + set partial_complete [string_to_regexp $input_line] set res 1 gdb_test_multiple "" "$test" { -re "^$complete_line_re$append_char_re$" { pass "$test" } + -re "$partial_complete\[^ \]+ $" { + fail "$test" + } timeout { fail "$test (timeout)" set res -1 @@ -164,6 +171,9 @@ proc test_gdb_complete_tab_multiple { input_line add_completed_line \ } } } + -re "${maybe_bell}\r\n.+\r\n$gdb_prompt $" { + fail "$test" + } } } } @@ -191,6 +201,9 @@ proc test_gdb_complete_cmd_unique { input_line complete_line_re } { -re "^$cmd_re\r\n$complete_line_re\r\n$gdb_prompt $" { pass $test } + -re "$gdb_prompt $" { + fail "$test" + } } } @@ -217,6 +230,9 @@ proc test_gdb_complete_cmd_multiple { cmd_prefix completion_word completion_list -re "^$cmd_re\r\n$expected_re$gdb_prompt $" { pass $test } + -re "$gdb_prompt $" { + fail "$test" + } } } |