1 # Copyright 1998, 1999 Free Software Foundation, Inc.
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 2 of the License, or
6 # (at your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this program; if not, write to the Free Software
15 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
17 # Please email any bugs, comments, and/or additions to this file to:
18 # bug-gdb@prep.ai.mit.edu
20 # This file was written by Elena Zannoni (ezannoni@cygnus.com)
22 # This file is part of the gdb testsuite.
25 # tests for command completion
27 # Here are some useful test cases for completion.
28 # They should be tested with both M-? and TAB.
30 # "show output-" "radix"
31 # "show output" "-radix"
32 # "p" ambiguous (commands starting with p--path, print, printf, etc.)
33 # "p " ambiguous (all symbols)
34 # "info t foo" no completions
35 # "info t " no completions
36 # "info t" ambiguous ("info target", "info terminal", etc.)
37 # "info ajksdlfk" no completions
38 # "info ajksdlfk " no completions
40 # "info " ambiguous (all info commands)
41 # "p \"a" no completions (string constant)
42 # "p 'a" ambiguous (all symbols starting with a)
43 # "p b-a" ambiguous (all symbols starting with a)
44 # "p b-" ambiguous (all symbols)
45 # "file Make" "file" (word break hard to screw up here)
46 # "file ../gdb.stabs/we" "ird" (needs to not break word at slash)
58 # test running programs
64 set srcfile ${testfile}.c
65 set binfile ${objdir}/${subdir}/${testfile}
66 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-w}] != "" } {
67 gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
70 if [get_compiler_info ${binfile}] {
76 gdb_reinitialize_dir $srcdir/$subdir
79 if ![runto_main] then {
80 perror "tests suppressed"
83 set oldtimeout1 $timeout
93 -re "Undefined command: \"hfgfh\"\\. Try \"help\"\\..*$gdb_prompt $"\
94 { pass "complete 'hfgfh'"}
95 -re ".*$gdb_prompt $" { fail "complete 'hfgfh'"}
96 timeout {fail "(timeout) complete 'hfgfh'"}
99 -re ".*$gdb_prompt $" { fail "complete 'hfgfh'" }
100 timeout { fail "(timeout) complete 'hfgfh'" }
105 send_gdb "show output\t"
108 -re "^show output-radix $"\
111 -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
112 { pass "complete 'show output'"}
113 -re ".*$gdb_prompt $" { fail "complete 'show output'"}
114 timeout {fail "(timeout) complete 'show output'"}
120 -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
121 { fail "complete 'show output'"}
122 -re ".*$gdb_prompt $" { fail "complete 'show output'"}
123 timeout { fail "(timeout) complete 'show output'"}
128 -re ".*$gdb_prompt $" { fail "complete 'show output'" }
129 timeout { fail "(timeout) complete 'show output'" }
133 send_gdb "show output-\t"
136 -re "^show output-radix $"\
139 -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
140 { pass "complete 'show output-'"}
141 -re ".*$gdb_prompt $" { fail "complete 'show output-'"}
142 timeout {fail "(timeout) complete 'show output-'"}
145 -re "^show output-$"\
148 -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
149 { fail "complete 'show output-'"}
150 -re ".*$gdb_prompt $" { fail "complete 'show output-'"}
151 timeout { fail "(timeout) complete 'show output-'"}
156 -re ".*$gdb_prompt $" { fail "complete 'show output-'" }
157 timeout { fail "(timeout) complete 'show output-'" }
167 -re "The history is empty\\..*$gdb_prompt $"\
168 { pass "complete 'p'"}
169 -re ".*$gdb_prompt $" { fail "complete 'p'"}
170 timeout {fail "(timeout) complete 'p' 2"}
173 -re ".*$gdb_prompt $" { fail "complete 'p'" }
174 timeout { fail "(timeout) complete 'p' 1" }
184 -re "The history is empty\\..*$gdb_prompt $"\
185 { pass "complete 'p '"}
186 -re ".*$gdb_prompt $" { fail "complete 'p '"}
187 timeout {fail "(timeout) complete 'p ' 1"}
190 -re ".*$gdb_prompt $" { fail "complete 'p '" }
191 timeout { fail "(timeout) complete 'p ' 2" }
195 send_gdb "info t foo\t"
198 -re "^info t foo\\\x07$"\
201 -re "Ambiguous info command \"t foo\": target, terminal, threads, tp, tracepoints, types\\..*$gdb_prompt $"\
202 { pass "complete 'info t foo'"}
203 -re ".*$gdb_prompt $" { fail "complete 'info t foo'"}
204 timeout {fail "(timeout) complete 'info t foo'"}
207 -re ".*$gdb_prompt $" { fail "complete 'info t foo'" }
208 timeout { fail "(timeout) complete 'info t foo'" }
214 -re "^info t\\\x07$"\
217 -re "Ambiguous info command \"t\": target, terminal, threads, tp, tracepoints, types\\..
219 { pass "complete 'info t'"}
220 -re ".*$gdb_prompt $" { fail "complete 'info t'"}
221 timeout {fail "(timeout) complete 'info t'"}
224 -re ".*$gdb_prompt $" { fail "complete 'info t'" }
225 timeout { fail "(timeout) complete 'info t'" }
232 -re "^info t \\\x07$"\
235 -re "Ambiguous info command \"t \": target, terminal, threads, tp, tracepoints, types\\..
237 { pass "complete 'info t '"}
238 -re ".*$gdb_prompt $" { fail "complete 'info t '"}
239 timeout {fail "(timeout) complete 'info t '"}
242 -re ".*$gdb_prompt $" { fail "complete 'info t '" }
243 timeout { fail "(timeout) complete 'info t '" }
247 send_gdb "info asdfgh\t"
250 -re "^info asdfgh\\\x07$"\
253 -re "Undefined info command: \"asdfgh\". Try \"help info\"\\..
255 { pass "complete 'info asdfgh'"}
256 -re ".*$gdb_prompt $" { fail "complete 'info asdfgh'"}
257 timeout {fail "(timeout) complete 'info asdfgh'"}
260 -re ".*$gdb_prompt $" { fail "complete 'info asdfgh'" }
261 timeout { fail "(timeout) complete 'info asdfgh'" }
265 send_gdb "info asdfgh \t"
268 -re "^info asdfgh \\\x07$"\
271 -re "Undefined info command: \"asdfgh \". Try \"help info\"\\..
273 { pass "complete 'info asdfgh '"}
274 -re ".*$gdb_prompt $" { fail "complete 'info asdfgh '"}
275 timeout {fail "(timeout) complete 'info asdfgh '"}
278 -re ".*$gdb_prompt $" { fail "complete 'info asdfgh '" }
279 timeout { fail "(timeout) complete 'info asdfgh '" }
288 -re "\"info\" must be followed by the name of an info command\\.\r\nList of info subcommands:\r\n\r\n.*info address.*info watchpoints.*\r\n\r\nType \"help info\" followed by info subcommand name for full documentation.\r\nCommand name abbreviations are allowed if unambiguous\\..*$gdb_prompt $"\
289 { pass "complete 'info'"}
290 -re ".*$gdb_prompt $" { fail "complete 'info'"}
291 timeout {fail "(timeout) complete 'info'"}
294 -re ".*$gdb_prompt $" { fail "complete 'info'" }
295 timeout { fail "(timeout) complete 'info'" }
304 -re "\"info\" must be followed by the name of an info command\\.\r\nList of info subcommands:\r\n\r\n.*info address.*Type \"help info\" followed by info subcommand name for full documentation.\r\nCommand name abbreviations are allowed if unambiguous\\..*$gdb_prompt $"\
305 { pass "complete 'info '"}
306 -re ".*$gdb_prompt $" { fail "complete 'info '"}
307 timeout {fail "(timeout) complete 'info '"}
310 -re ".*$gdb_prompt $" { fail "complete 'info '" }
311 timeout { fail "(timeout) complete 'info '" }
321 -re "address.*types.*$gdb_prompt info $"\
324 -re "\"info\".*unambiguous\\..*$gdb_prompt $"\
325 { pass "complete (2) 'info '"}
326 -re ".*$gdb_prompt $" { fail "complete (2) 'info '"}
327 timeout {fail "(timeout) complete (2) 'info '"}
330 -re ".*$gdb_prompt $" { fail "complete (2) 'info '"}
331 timeout {fail "(timeout) complete (2) 'info '"}
334 -re ".*$gdb_prompt $" { fail "complete (2) 'info '" }
335 timeout { fail "(timeout) complete (2) 'info '" }
345 -re "Unterminated string in expression\\..*$gdb_prompt $"\
346 { pass "complete 'p a'"}
347 -re ".*$gdb_prompt $" { fail "complete 'p a'"}
348 timeout {fail "(timeout) complete 'p a'"}
351 -re ".*$gdb_prompt $" { fail "complete 'p \"a'" }
352 timeout { fail "(timeout) complete 'p \"a'" }
361 -re "Invalid character constant\\..*$gdb_prompt $"\
362 { pass "complete 'p \'a'"}
363 -re ".*$gdb_prompt $" { fail "complete 'p \'a'"}
364 timeout {fail "(timeout) complete 'p \'a'"}
367 -re ".*$gdb_prompt $" { fail "complete 'p \'a'" }
368 timeout { fail "(timeout) complete 'p \'a'" }
377 -re "a64l.*argv.*$gdb_prompt p .a$" {
380 -re "Invalid character constant\\..*$gdb_prompt $" {
381 pass "complete (2) 'p \'a'"
383 -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
384 timeout { fail "(timeout) complete (2) 'p \'a'" }
387 -re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" {
390 -re "\\(gdb\\) p 'a$" {
393 -re "Invalid character constant\\..*$gdb_prompt $" {
394 pass "complete (2) 'p \'a'"
396 -re ".*$gdb_prompt $" {
397 fail "complete (2) 'p \'a'"
399 timeout { fail "(timeout) complete (2) 'p \'a'" }
402 -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
403 timeout { fail "(timeout) complete (2) 'p \'a'" }
406 -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
407 timeout { fail "(timeout) complete (2) 'p \'a'" }
410 -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
411 timeout { fail "(timeout) complete (2) 'p \'a'" }
421 -re "No symbol \"b\" in current context\\..*$gdb_prompt $"\
422 { pass "complete 'p b-a'"}
423 -re ".*$gdb_prompt $" { fail "complete 'p b-a'"}
424 timeout {fail "(timeout) complete 'p b-a'"}
427 -re ".*$gdb_prompt $" { fail "complete 'p b-a'" }
428 timeout { fail "(timeout) complete 'p b-a'" }
434 -re "^p b-a\\\x07$" {
437 -re "a64l.*argv.*$gdb_prompt p b-a$" {
440 -re "No symbol \"b\" in current context\\..*$gdb_prompt $" {
441 pass "complete (2) 'p b-a'"
443 -re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
444 timeout { fail "(timeout) complete (2) 'p b-a'" }
447 -re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" {
450 -re "\\(gdb\\) p b-a$" {
453 -re "No symbol \"b\" in current context\\..*$gdb_prompt $" {
454 pass "complete (2) 'p b-a'"
456 -re ".*$gdb_prompt $" {
457 fail "complete (2) 'p b-a'"
459 timeout { fail "(timeout) complete (2) 'p b-a'" }
462 -re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
463 timeout { fail "(timeout) complete (2) 'p b-a'" }
466 -re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
467 timeout { fail "(timeout) complete (2) 'p b-a'" }
470 -re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
471 timeout { fail "(timeout) complete (2) 'p b-a'" }
480 -re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" {
483 -re "\\(gdb\\) p b-$" {
486 -re "No symbol \"b\" in current context\\..*$gdb_prompt $" {
487 pass "complete (2) 'p b-'"
489 -re ".*$gdb_prompt $" {
490 fail "complete (2) 'p b-'"
492 timeout { fail "(timeout) complete (2) 'p b-'" }
495 -re ".*$gdb_prompt $" { fail "complete (2) 'p b-'" }
496 timeout { fail "(timeout) complete (2) 'p b-'" }
499 -re ".*$gdb_prompt $" { fail "complete (2) 'p b-'" }
500 timeout { fail "(timeout) complete (2) 'p b-'" }
503 -re ".*$gdb_prompt $" { fail "complete (2) 'p b-'" }
504 timeout { fail "(timeout) complete (2) 'p b-'" }
507 send_gdb "file ${objdir}/Make\t"
510 -re "file ${objdir}/Makefile.*$"\
513 -re "\r\nA program is being debugged already\\. Kill it\\? \\(y or n\\) $"\
516 -re "\r\nProgram not killed\\.\r\n$gdb_prompt $"\
517 { pass "complete 'file Make'"}
518 -re ".*$gdb_prompt $" { fail "complete 'file Make'"}
519 timeout {fail "(timeout) complete 'file Make'"}
522 -re ".*$gdb_prompt $" { fail "complete 'file Make'"}
523 timeout {fail "(timeout) complete 'file Make'"}
526 -re ".*$gdb_prompt $" { fail "complete 'file Make'" }
527 timeout { fail "(timeout) complete 'file Make'" }
531 send_gdb "file ${srcdir}/gdb.base/compl\t"
534 -re "^file ${srcdir}/gdb.base/completion\\.exp $"\
537 -re "\r\nA program is being debugged already\\. Kill it\\? \\(y or n\\) $"
541 -re "\r\nProgram not killed\\.\r\n$gdb_prompt $"\
542 { pass "complete 'file gdb.base/compl'"}
543 -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/compl'"}
544 timeout {fail "(timeout) complete 'file gdb.base/compl'"}
547 -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/compl'"}
548 timeout {fail "(timeout) complete 'file gdb.base/compl'"}
551 -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/compl'" }
552 timeout { fail "(timeout) complete 'file gdb.base/compl'" }
555 send_gdb "info func mark\t"
558 -re "^info func mark.*er$"\
563 -re "marker1.*$gdb_prompt info func marker$"\
566 -re "All functions matching regular expression \"marker\":\r\n\r\nFile.*break.c:\r\nint marker1\\(\\);\r\nint marker2\\(int\\).*marker3\\(char.*char.*\\).*marker4\\(long int\\);\r\n$gdb_prompt $"\
567 { pass "complete 'info func mar'"}
568 -re ".*$gdb_prompt $" { fail "complete 'info func mar'"}
569 timeout {fail "(timeout) complete 'info func mar'"}
572 -re ".*$gdb_prompt $" { fail "complete 'info func mar'"}
573 timeout {fail "(timeout) complete 'info func mar'"}
576 -re ".*$gdb_prompt $" { fail "complete 'info func mar'" }
577 timeout { fail "(timeout) complete 'info func mar'" }
581 send_gdb "set follow-fork-mode \t\t"
584 -re "ask.*child.*parent.*$gdb_prompt set follow-fork-mode $"\
587 -re "Requires an argument.*ask.*child.*parent.*$gdb_prompt $"\
588 { pass "complete 'set follow-fork-mode'"}
589 -re "Ambiguous item \"\"\\..*$gdb_prompt $"\
590 { pass "complete 'set follow-fork-mode'"}
591 -re ".*$gdb_prompt $" { fail "complete 'set follow-fork-mode'"}
592 timeout {fail "(timeout) complete 'set follow-fork-mode'"}
595 -re ".*$gdb_prompt $" { fail "complete 'set follow-fork-mode'" }
596 timeout { fail "(timeout) complete 'set follow-fork-mode'" }
599 set timeout $oldtimeout1