1 # Copyright 1998-1999, 2002-2004, 2007-2012 Free Software Foundation,
4 # This program is free software; you can redistribute it and/or modify
5 # it under the terms of the GNU General Public License as published by
6 # the Free Software Foundation; either version 3 of the License, or
7 # (at your option) any later version.
9 # This program is distributed in the hope that it will be useful,
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 # GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License
15 # along with this program. If not, see <http://www.gnu.org/licenses/>.
17 # This file was written by Elena Zannoni (ezannoni@cygnus.com)
19 # This file is part of the gdb testsuite.
22 # tests for command completion
24 # Here are some useful test cases for completion.
25 # They should be tested with both M-? and TAB.
27 # "show output-" "radix"
28 # "show output" "-radix"
29 # "p" ambiguous (commands starting with p--path, print, printf, etc.)
30 # "p " ambiguous (all symbols)
31 # "info t foo" no completions
32 # "info t " no completions
33 # "info t" ambiguous ("info target", "info terminal", etc.)
34 # "info ajksdlfk" no completions
35 # "info ajksdlfk " no completions
37 # "info " ambiguous (all info commands)
38 # "p \"break1" unambiguous (completes to filename "break1.c")
39 # "p \"break1." unambiguous (should complete to "break1.c" but does not,
40 # due to readline limitations)
41 # "p 'arg" ambiguous (all symbols starting with arg)
42 # "p b-arg" ambiguous (all symbols starting with arg)
43 # "p b-" ambiguous (all symbols)
44 # "file Make" "file" (word break hard to screw up here)
45 # "file ../gdb.stabs/we" "ird" (needs to not break word at slash)
51 # test running programs
55 set srcfile ${testfile}.c
56 set srcfile1 ${testfile}1.c
57 set binfile ${objdir}/${subdir}/${testfile}
59 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}0.o" object {debug nowarnings}] != "" } {
60 untested completion.exp
64 if { [gdb_compile "${srcdir}/${subdir}/${srcfile1}" "${binfile}1.o" object {debug nowarnings}] != "" } {
65 untested completion.exp
69 if { [gdb_compile "${binfile}0.o ${binfile}1.o" "${binfile}" executable {debug nowarnings}] != "" } {
70 untested completion.exp
74 if [get_compiler_info] {
81 gdb_reinitialize_dir $srcdir/$subdir
84 if ![runto_main] then {
85 perror "tests suppressed"
88 set oldtimeout1 $timeout
91 set test "complete 'hfgfh'"
93 gdb_test_multiple "" "$test" {
96 gdb_test_multiple "" $test {
97 -re "Undefined command: \"hfgfh\"\\. Try \"help\"\\..*$gdb_prompt $" {
106 set test "complete 'show output'"
107 send_gdb "show output\t"
108 gdb_test_multiple "" "$test" {
109 -re "^show output-radix $" {
111 gdb_test_multiple "" "$test" {
112 -re "Default output radix for printing of values is 10\\..*$gdb_prompt $" {
119 set test "complete 'show output-'"
120 send_gdb "show output-\t"
121 gdb_test_multiple "" "$test" {
122 -re "^show output-radix $" {
124 gdb_test_multiple "" "$test" {
125 -re "Default output radix for printing of values is 10\\..*$gdb_prompt $" {
132 set test "complete 'p'"
134 gdb_test_multiple "" "$test" {
137 gdb_test_multiple "" "$test" {
138 -re "The history is empty\\..*$gdb_prompt $" {
145 set test "complete 'p '"
147 gdb_test_multiple "" "$test" {
150 gdb_test_multiple "" "$test" {
151 -re "The history is empty\\..*$gdb_prompt $" {
158 set test "complete 'info t foo'"
159 send_gdb "info t foo\t"
160 gdb_test_multiple "" "$test" {
161 -re "^info t foo\\\x07$" {
163 gdb_test_multiple "" "$test" {
164 -re "Ambiguous info command \"t foo\": target, tasks, terminal, threads, tp, tracepoints, tvariables, (type-printers, )?types\\..*$gdb_prompt $" {
171 set test "complete 'info t'"
173 gdb_test_multiple "" "$test" {
174 -re "^info t\\\x07$" {
176 gdb_test_multiple "" "$test" {
177 -re "Ambiguous info command \"t\": target, tasks, terminal, threads, tp, tracepoints, tvariables, (type-printers, )?types\\..*$gdb_prompt $" {
184 set test "complete 'info t '"
186 gdb_test_multiple "" "$test" {
187 -re "^info t \\\x07$" {
189 gdb_test_multiple "" "$test" {
190 -re "Ambiguous info command \"t \": target, tasks, terminal, threads, tp, tracepoints, tvariables, (type-printers, )?types\\..*$gdb_prompt $" {
197 set test "complete 'info asdfgh'"
198 send_gdb "info asdfgh\t"
199 gdb_test_multiple "" "$test" {
200 -re "^info asdfgh\\\x07$" {
202 gdb_test_multiple "" "$test" {
203 -re "Undefined info command: \"asdfgh\". Try \"help info\"\\..*$gdb_prompt $" {
210 set test "complete 'info asdfgh '"
211 send_gdb "info asdfgh \t"
212 gdb_test_multiple "" "$test" {
213 -re "^info asdfgh \\\x07$" {
215 gdb_test_multiple "" "$test" {
216 -re "Undefined info command: \"asdfgh \". Try \"help info\"\\..*$gdb_prompt $" {
223 set test "complete 'info'"
225 gdb_test_multiple "" "$test" {
228 gdb_test_multiple "" "$test" {
229 -re "\"info\" must be followed by the name of an info command\\.\r\nList of info subcommands.*$gdb_prompt $" {
236 set test "complete 'info '"
238 gdb_test_multiple "" "$test" {
239 -re "^info \\\x07$" {
241 gdb_test_multiple "" "$test" {
242 -re "\"info\" must be followed by the name of an info command\\.\r\nList of info subcommands:\r\n\r\n.*$gdb_prompt $" {
249 set test "complete (2) 'info '"
251 gdb_test_multiple "" "$test" {
252 -re "^info \\\x07$" {
254 gdb_test_multiple "" "$test" {
255 -re "address.*types.*$gdb_prompt " {
257 gdb_test_multiple "" "$test" {
258 -re "\"info\".*unambiguous\\..*$gdb_prompt $" {
267 set test "complete 'help info wat'"
268 send_gdb "help info wat\t"
269 gdb_test_multiple "" "$test" {
270 -re "^help info watchpoints $" {
272 gdb_test_multiple "" "$test" {
273 -re "Status of specified watchpoints.*\r\n.*$gdb_prompt $" {
278 -re "^help info wat\\\x07$" {
283 set test "complete 'p \"break1'"
284 send_gdb "p \"break1\t"
285 gdb_test_multiple "" "$test" {
286 -re "^p \"break1\\\x07$" {
288 gdb_test_multiple "" "$test" {}
290 -re "^p \"break1\\.c\"$" {
292 gdb_test_multiple "" "$test" {
293 -re "$gdb_prompt $" {
301 set test "complete 'p \"break1.'"
302 send_gdb "p \"break1.\t"
303 gdb_test_multiple "" "$test" {
304 -re "^p \"break1\\.\\\x07$" {
306 gdb_test_multiple "" "$test" {}
308 -re "^p \"break1\\.c\"$" {
310 gdb_test_multiple "" "$test" {
311 -re "$gdb_prompt $" {
316 -re "^p \"break1\\..*$" {
318 gdb_test_multiple "" "$test" {}
322 set test "complete 'p 'arg'"
324 gdb_test_multiple "" "$test" {
325 -re "^p 'arg\\\x07$" {
327 gdb_test_multiple "" "$test" {
328 -re "(Invalid character constant\\.|Unmatched single quote\\.).*$gdb_prompt $" {
335 set test "complete (2) 'p 'arg'"
337 gdb_test_multiple "" "$test" {
338 -re "^p 'arg\\\x07$" {
340 gdb_test_multiple "" "$test" {
341 -re "argv.*$gdb_prompt " {
343 gdb_test_multiple "" "$test" {
344 -re "(Invalid character constant\\.|Unmatched single quote\\.).*$gdb_prompt $" {
349 -re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" {
351 gdb_test_multiple "" "$test" {
352 -re "\\(gdb\\) p 'arg$" {
354 gdb_test_multiple "" "$test" {
355 -re "(Invalid character constant\\.|Unmatched single quote\\.).*$gdb_prompt $" {
366 set test "complete 'handle signal'"
367 send_gdb "handle sigq\t"
368 gdb_test_multiple "" "$test" {
369 -re "^handle sigq
\b\b\b\bSIGQUIT $" {
371 gdb_test_multiple "" "$test" {
372 -re "SIGQUIT.*Quit.*$gdb_prompt $" {
379 set test "complete 'handle keyword'"
380 send_gdb "handle nos\t"
381 gdb_test_multiple "" "$test" {
382 -re "^handle nostop $" {
384 gdb_test_multiple "" "$test" {
385 -re "$gdb_prompt $" {
392 set test "complete help aliases"
393 send_gdb "help user-define\t"
394 gdb_test_multiple "" "$test" {
395 -re "^help user-defined $" {
397 gdb_test_multiple "" "$test" {
398 -re "$gdb_prompt $" {
406 # These tests used to try completing the shorter "p b-a".
407 # Unfortunately, on some systems, there are .o files in system
408 # libraries which declare static variables named `b'. Of course,
409 # those variables aren't really in scope, as far as the compiler is
410 # concerned. But GDB deliberately tries to be more liberal: if you
411 # enter an identifier that doesn't have any binding in scope, GDB will
412 # search all the program's compilation units for a static variable of
415 # This behavior can help avoid a lot of pedantry, so it's usually a
416 # good thing. But in this test case, it causes GDB to print the value
417 # of some random variable, instead of giving us the "No symbol..."
418 # error we were expecting.
420 # For example, on S/390 linux, the file s_atan.c in libm.a declares a
421 # `b', which is a structure containing an int and a float, so GDB says
422 # ``Argument to arithmetic operation not a number or boolean'' instead
423 # of ``No symbol ...''.
425 # So, I'm hoping that there is no system with a static library variable named
426 # `no_var_by_this_name'.
428 set test "complete 'p no_var_named_this-arg'"
429 send_gdb "p no_var_named_this-arg\t"
430 gdb_test_multiple "" "$test" {
431 -re "^p no_var_named_this-arg\\\x07$" {
433 gdb_test_multiple "" "$test" {
434 -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
441 set test "complete (2) 'p no_var_named_this-arg'"
442 send_gdb "p no_var_named_this-arg\t"
443 gdb_test_multiple "" "$test" {
444 -re "^p no_var_named_this-arg\\\x07$" {
446 gdb_test_multiple "" "$test" {
447 -re "argv.*$gdb_prompt " {
449 gdb_test_multiple "" "$test" {
450 -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
455 -re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" {
461 pass "$test (eat prompt)"
464 fail "(timeout) $test (eat prompt)"
468 gdb_test_multiple "" "$test" {
469 -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
478 set test "complete (2) 'p no_var_named_this-'"
479 send_gdb "p no_var_named_this-\t"
480 gdb_test_multiple "" "$test" {
481 -re "^p no_var_named_this-\\\x07$" {
483 gdb_test_multiple "" "$test" {
484 -re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" {
490 pass "$test (eat prompt)"
493 fail "(timeout) $test (eat prompt)"
497 gdb_test_multiple "" "$test" {
498 -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
503 -re "argv.*$gdb_prompt $" {
505 gdb_test_multiple "" "$test" {
506 -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
515 set test "complete 'p values\[0\].a'"
516 send_gdb "p values\[0\].a\t"
517 gdb_test_multiple "" "$test" {
518 -re "^p values.0..a_field $" {
520 gdb_test_multiple "" "$test" {
521 -re " = 0.*$gdb_prompt $" {
528 set test "complete 'p values\[0\] . a'"
529 send_gdb "p values\[0\] . a\t"
530 gdb_test_multiple "" "$test" {
531 -re "^p values.0. . a_field $" {
533 gdb_test_multiple "" "$test" {
534 -re " = 0.*$gdb_prompt $" {
541 set test "complete 'p &values\[0\] -> a'"
542 send_gdb "p &values\[0\] -> a\t"
543 gdb_test_multiple "" "$test" {
544 -re "^p &values.0. -> a_field $" {
546 gdb_test_multiple "" "$test" {
547 -re " = .*0x\[0-9a-fA-F\]*.*$gdb_prompt $" {
554 gdb_test "complete p &values\[0\]->z" \
555 "p &values.0.->z_field" \
556 "completion of field in anonymous union"
558 gdb_test "complete ptype &values\[0\]->z" \
559 "ptype &values.0.->z_field" \
560 "ptype completion of field in anonymous union"
562 gdb_test "complete whatis &values\[0\]->z" \
563 "whatis &values.0.->z_field" \
564 "whatis completion of field in anonymous union"
566 # The following tests used to simply try to complete `${objdir}/file',
567 # and so on. The problem is that ${objdir} can be very long; the
568 # completed filename may be more than eighty characters wide. When
569 # this happens, readline tries to manage things, producing output that
570 # may make sense on the screen, but is rather hard for our script to
573 # In the case that motivated this change, the (gdb) prompt occupied
574 # the leftmost six columns, and `${objdir}/' was seventy-four
575 # characters long --- eighty in all. After printing the slash,
576 # readline emitted a space, a carriage return, and then `Makefile'
577 # (the tab character being received as input after `Make'.
579 # Basically, you have to let readline do whatever it's going to do to
580 # make the screen look right. If it happens to use a different
581 # strategy on Tuesdays to get the cursor in the right place, that's
582 # not something the testsuite should care about.
584 # So, we avoid long lines. We `cd' to ${objdir} first, and then do
585 # the completion relative to the current directory.
587 # ${srcdir} may be a relative path. We want to make sure we end up
588 # in the right directory - so make sure we know where it is.
594 # If the directory name contains a '+' we must escape it, adding a backslash.
595 # If not, the test below will fail because it will interpret the '+' as a
596 # regexp operator. We use string_to_regexp for this purpose.
598 gdb_test "cd ${fullsrcdir}" \
599 "Working directory [string_to_regexp ${fullsrcdir}].*" \
603 # GDB used to fail adding / on directories, on the first try only.
604 set uniquedir ../testsuite/gdb.base/comp-dir
605 set escapeduniquedir [string_to_regexp ${uniquedir}]
607 set uniquesub ${uniquesu}r
608 set escapeuniquesub [string_to_regexp ${uniquesub}]
609 send_gdb "dir ${uniquedir}\t"
611 -re "${escapeduniquedir}/" {
612 pass "directory completion"
613 send_gdb "${uniquesu}\t"
615 -re "${escapeduniquedir} $" {
616 fail "directory completion (old gdb bug)"
617 send_gdb "\b/${uniquesu}\t"
620 fail "directory completion (timeout)"
621 send_gdb "\ndir ${uniquedir}/${uniquesu}\t"
626 -re "${escapeuniquesub}/$" {
627 pass "directory completion 2"
630 fail "directory completion 2"
634 # Empty COMMAND sends no newline while " " sends the newline we need.
635 gdb_test " " "Source directories searched: .*" "Glob remaining of directory test"
637 gdb_test "complete file ./gdb.base/compl" \
638 "file ./gdb.base/completion\\.exp.*" \
639 "complete-command 'file ./gdb.base/compl'"
641 set test "complete 'file ./gdb.base/complet'"
642 send_gdb "file ./gdb.base/complet\t"
643 gdb_test_multiple "" "$test" {
644 -re "^file ./gdb.base/completion\\.exp $" {
646 # Ignore the exact error message.
647 gdb_test_multiple "" "complete 'file ./gdb.base/complet'" {
648 -re "\r\nA program is being debugged already\\.\[\r\n\]+Are you sure you want to change the file\\? \\(y or n\\) $" {
652 -re "$gdb_prompt $" {
659 set test "complete 'info func marke'"
660 send_gdb "info func marke\t"
661 gdb_test_multiple "" "$test" {
662 -re "^info func marke.*r$" {
664 gdb_test_multiple "" "$test" {
665 -re "marker1.*$gdb_prompt " {
667 gdb_test_multiple "" "$test" {
668 -re "All functions matching regular expression \"marker\":.*File.*break1.c:\r\nint marker1\\((void|)\\);\r\nint marker2\\(int\\).*marker3\\(char.*char.*\\).*marker4\\(long( int)?\\);.*$gdb_prompt $" {
678 set test "complete 'set follow-fork-mode'"
679 send_gdb "set follow-fork-mode \t\t"
680 gdb_test_multiple "" "$test" {
681 -re "child.*parent.*$gdb_prompt " {
683 gdb_test_multiple "" "$test" {
684 -re "Requires an argument.*child.*parent.*$gdb_prompt $" {
687 -re "Ambiguous item \"\"\\..*$gdb_prompt $" {
694 gdb_test_no_output "complete print values\[0\].x." \
695 "field completion with invalid field"
697 # If there is a non-deprecated completion, it should be returned.
698 gdb_test "complete sav" "save" "test non-deprecated completion"
699 # If there is only a deprecated completion, then it should be returned.
700 gdb_test "complete save-t" "save-tracepoints" "test deprecated completion"
703 # Restore globals modified in this test...
704 set timeout $oldtimeout1