1 # Copyright 1998, 1999, 2002, 2003, 2004, 2007 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 \"break1" unambiguous (completes to filename "break1.c")
42 # "p \"break1." unambiguous (should complete to "break1.c" but does not,
43 # due to readline limitations)
44 # "p 'a" ambiguous (all symbols starting with a)
45 # "p b-a" ambiguous (all symbols starting with a)
46 # "p b-" ambiguous (all symbols)
47 # "file Make" "file" (word break hard to screw up here)
48 # "file ../gdb.stabs/we" "ird" (needs to not break word at slash)
60 # test running programs
66 set srcfile ${testfile}.c
67 set srcfile1 ${testfile}1.c
68 set binfile ${objdir}/${subdir}/${testfile}
70 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}0.o" object {debug nowarnings}] != "" } {
71 untested completion.exp
75 if { [gdb_compile "${srcdir}/${subdir}/${srcfile1}" "${binfile}1.o" object {debug nowarnings}] != "" } {
76 untested completion.exp
80 if { [gdb_compile "${binfile}0.o ${binfile}1.o" "${binfile}" executable {debug nowarnings}] != "" } {
81 untested completion.exp
85 if [get_compiler_info ${binfile}] {
91 # Don't let a .inputrc file or an existing setting of INPUTRC mess up
92 # the test results. Even if /dev/null doesn't exist on the particular
93 # platform, the readline library will use the default setting just by
94 # failing to open the file. OTOH, opening /dev/null successfully will
95 # also result in the default settings being used since nothing will be
96 # read from this file.
98 if [info exists env(INPUTRC)] {
99 set old_inputrc $env(INPUTRC)
101 set env(INPUTRC) "/dev/null"
104 gdb_reinitialize_dir $srcdir/$subdir
107 if ![runto_main] then {
108 perror "tests suppressed"
111 set oldtimeout1 $timeout
121 -re "Undefined command: \"hfgfh\"\\. Try \"help\"\\..*$gdb_prompt $"\
122 { pass "complete 'hfgfh'"}
123 -re ".*$gdb_prompt $" { fail "complete 'hfgfh'"}
124 timeout {fail "(timeout) complete 'hfgfh'"}
127 -re ".*$gdb_prompt $" { fail "complete 'hfgfh'" }
128 timeout { fail "(timeout) complete 'hfgfh'" }
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'"}
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'" }
161 send_gdb "show output-\t"
164 -re "^show output-radix $"\
167 -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
168 { pass "complete 'show output-'"}
169 -re ".*$gdb_prompt $" { fail "complete 'show output-'"}
170 timeout {fail "(timeout) complete 'show output-'"}
173 -re "^show output-$"\
176 -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
177 { fail "complete 'show output-'"}
178 -re ".*$gdb_prompt $" { fail "complete 'show output-'"}
179 timeout { fail "(timeout) complete 'show output-'"}
184 -re ".*$gdb_prompt $" { fail "complete 'show output-'" }
185 timeout { fail "(timeout) complete 'show output-'" }
195 -re "The history is empty\\..*$gdb_prompt $"\
196 { pass "complete 'p'"}
197 -re ".*$gdb_prompt $" { fail "complete 'p'"}
198 timeout {fail "(timeout) complete 'p' 2"}
201 -re ".*$gdb_prompt $" { fail "complete 'p'" }
202 timeout { fail "(timeout) complete 'p' 1" }
212 -re "The history is empty\\..*$gdb_prompt $"\
213 { pass "complete 'p '"}
214 -re ".*$gdb_prompt $" { fail "complete 'p '"}
215 timeout {fail "(timeout) complete 'p ' 1"}
218 -re ".*$gdb_prompt $" { fail "complete 'p '" }
219 timeout { fail "(timeout) complete 'p ' 2" }
223 send_gdb "info t foo\t"
226 -re "^info t foo\\\x07$"\
229 -re "Ambiguous info command \"t foo\": target, terminal, threads, tp, tracepoints, types\\..*$gdb_prompt $"\
230 { pass "complete 'info t foo'"}
231 -re ".*$gdb_prompt $" { fail "complete 'info t foo'"}
232 timeout {fail "(timeout) complete 'info t foo'"}
235 -re ".*$gdb_prompt $" { fail "complete 'info t foo'" }
236 timeout { fail "(timeout) complete 'info t foo'" }
242 -re "^info t\\\x07$"\
245 -re "Ambiguous info command \"t\": target, terminal, threads, tp, tracepoints, types\\..
247 { pass "complete 'info t'"}
248 -re ".*$gdb_prompt $" { fail "complete 'info t'"}
249 timeout {fail "(timeout) complete 'info t'"}
252 -re ".*$gdb_prompt $" { fail "complete 'info t'" }
253 timeout { fail "(timeout) complete 'info t'" }
260 -re "^info t \\\x07$"\
263 -re "Ambiguous info command \"t \": target, terminal, threads, tp, tracepoints, types\\..
265 { pass "complete 'info t '"}
266 -re ".*$gdb_prompt $" { fail "complete 'info t '"}
267 timeout {fail "(timeout) complete 'info t '"}
270 -re ".*$gdb_prompt $" { fail "complete 'info t '" }
271 timeout { fail "(timeout) complete 'info t '" }
275 send_gdb "info asdfgh\t"
278 -re "^info asdfgh\\\x07$"\
281 -re "Undefined info command: \"asdfgh\". Try \"help info\"\\..
283 { pass "complete 'info asdfgh'"}
284 -re ".*$gdb_prompt $" { fail "complete 'info asdfgh'"}
285 timeout {fail "(timeout) complete 'info asdfgh'"}
288 -re ".*$gdb_prompt $" { fail "complete 'info asdfgh'" }
289 timeout { fail "(timeout) complete 'info asdfgh'" }
293 send_gdb "info asdfgh \t"
296 -re "^info asdfgh \\\x07$"\
299 -re "Undefined info command: \"asdfgh \". Try \"help info\"\\..
301 { pass "complete 'info asdfgh '"}
302 -re ".*$gdb_prompt $" { fail "complete 'info asdfgh '"}
303 timeout {fail "(timeout) complete 'info asdfgh '"}
306 -re ".*$gdb_prompt $" { fail "complete 'info asdfgh '" }
307 timeout { fail "(timeout) complete 'info asdfgh '" }
316 -re "\"info\" must be followed by the name of an info command\\.\r\nList of info subcommands.*$gdb_prompt $"\
317 { pass "complete 'info'"}
318 -re ".*$gdb_prompt $" { fail "complete 'info'"}
319 timeout {fail "(timeout) complete 'info'"}
322 -re ".*$gdb_prompt $" { fail "complete 'info'" }
323 timeout { fail "(timeout) complete 'info'" }
332 -re "\"info\" must be followed by the name of an info command\\.\r\nList of info subcommands:\r\n\r\n.*$gdb_prompt $"\
333 { pass "complete 'info '"}
334 -re ".*$gdb_prompt $" { fail "complete 'info '"}
335 timeout {fail "(timeout) complete 'info '"}
338 -re ".*$gdb_prompt $" { fail "complete 'info '" }
339 timeout { fail "(timeout) complete 'info '" }
349 -re "address.*types.*$gdb_prompt info $"\
352 -re "\"info\".*unambiguous\\..*$gdb_prompt $"\
353 { pass "complete (2) 'info '"}
354 -re ".*$gdb_prompt $" { fail "complete (2) 'info '"}
355 timeout {fail "(timeout) complete (2) 'info '"}
358 -re ".*$gdb_prompt $" { fail "complete (2) 'info '"}
359 timeout {fail "(timeout) complete (2) 'info '"}
362 -re ".*$gdb_prompt $" { fail "complete (2) 'info '" }
363 timeout { fail "(timeout) complete (2) 'info '" }
367 send_gdb "p \"break1\t"
370 -re "^p \"break1\\\x07$"\
373 -re ".*$gdb_prompt $" { fail "complete 'p \"break1'"}
374 timeout {fail "(timeout) complete 'p \"break1'"}
377 -re "^p \"break1\\.c\"$"\
380 -re ".*$gdb_prompt $" { pass "complete 'p \"break1'"}
381 timeout {fail "(timeout) complete 'p \"break1'"}
387 -re ".*$gdb_prompt $" { fail "complete 'p \"break1'"}
388 timeout {fail "(timeout) complete 'p \"break1'"}
391 -re ".*$gdb_prompt $" { fail "complete 'p \"break1'" }
392 timeout { fail "(timeout) complete 'p \"break1'" }
396 send_gdb "p \"break1.\t"
399 -re "^p \"break1\\.\\\x07$"\
402 -re ".*$gdb_prompt $" { fail "complete 'p \"break1.'"}
403 timeout {fail "(timeout) complete 'p \"break1.'"}
406 -re "^p \"break1\\.c\"$"\
409 -re ".*$gdb_prompt $" { pass "complete 'p \"break1.'"}
410 timeout {fail "(timeout) complete 'p \"break1.'"}
413 -re "^p \"break1\\..*$"
416 -re ".*$gdb_prompt $" { fail "complete 'p \"break1.'"}
417 timeout {fail "(timeout) complete 'p \"break1.'"}
420 -re ".*$gdb_prompt $" { fail "complete 'p \"break1.'" }
421 timeout { fail "(timeout) complete 'p \"break1.'" }
430 -re "(Invalid character constant\\.|Unmatched single quote\\.).*$gdb_prompt $"\
431 { pass "complete 'p \'a'"}
432 -re ".*$gdb_prompt $" { fail "complete 'p \'a'"}
433 timeout {fail "(timeout) complete 'p \'a'"}
436 -re ".*$gdb_prompt $" { fail "complete 'p \'a'" }
437 timeout { fail "(timeout) complete 'p \'a'" }
446 -re ".*argv.*$gdb_prompt p .a$" {
449 -re "(Invalid character constant\\.|Unmatched single quote\\.).*$gdb_prompt $" {
450 pass "complete (2) 'p \'a'"
452 -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
453 timeout { fail "(timeout) complete (2) 'p \'a'" }
456 -re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" {
459 -re "\\(gdb\\) p 'a$" {
462 -re "(Invalid character constant\\.|Unmatched single quote\\.).*$gdb_prompt $" {
463 pass "complete (2) 'p \'a'"
465 -re ".*$gdb_prompt $" {
466 fail "complete (2) 'p \'a'"
468 timeout { fail "(timeout) complete (2) 'p \'a'" }
471 -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
472 timeout { fail "(timeout) complete (2) 'p \'a'" }
475 -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
476 timeout { fail "(timeout) complete (2) 'p \'a'" }
479 -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
480 timeout { fail "(timeout) complete (2) 'p \'a'" }
484 # These tests used to try completing the shorter "p b-a".
485 # Unfortunately, on some systems, there are .o files in system
486 # libraries which declare static variables named `b'. Of course,
487 # those variables aren't really in scope, as far as the compiler is
488 # concerned. But GDB deliberately tries to be more liberal: if you
489 # enter an identifier that doesn't have any binding in scope, GDB will
490 # search all the program's compilation units for a static variable of
493 # This behavior can help avoid a lot of pedantry, so it's usually a
494 # good thing. But in this test case, it causes GDB to print the value
495 # of some random variable, instead of giving us the "No symbol..."
496 # error we were expecting.
498 # For example, on S/390 linux, the file s_atan.c in libm.a declares a
499 # `b', which is a structure containing an int and a float, so GDB says
500 # ``Argument to arithmetic operation not a number or boolean'' instead
501 # of ``No symbol ...''.
503 # So, I'm hoping that there is no system with a static library variable named
504 # `no_var_by_this_name'.
505 send_gdb "p no_var_named_this-a\t"
508 -re "^p no_var_named_this-a\\\x07$" {
511 -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
512 pass "complete 'p no_var_named_this-a'"
514 -re ".*$gdb_prompt $" {
515 fail "complete 'p no_var_named_this-a'"
518 fail "(timeout) complete 'p no_var_named_this-a'"
522 -re ".*$gdb_prompt $" {
523 fail "complete 'p no_var_named_this-a'"
526 fail "(timeout) complete 'p no_var_named_this-a'"
530 send_gdb "p no_var_named_this-a\t"
533 -re "^p no_var_named_this-a\\\x07$" {
536 -re ".*argv.*$gdb_prompt p no_var_named_this-a$" {
539 -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
540 pass "complete (2) 'p no_var_named_this-a'"
542 -re ".*$gdb_prompt $" {
543 fail "complete (2) 'p no_var_named_this-a'"
546 fail "(timeout) complete (2) 'p no_var_named_this-a'"
550 -re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" {
553 -re "\\(gdb\\) p no_var_named_this-a$" {
556 -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
557 pass "complete (2) 'p no_var_named_this-a'"
559 -re ".*$gdb_prompt $" {
560 fail "complete (2) 'p no_var_named_this-a'"
563 fail "(timeout) complete (2) 'p no_var_named_this-a'"
567 -re ".*$gdb_prompt $" {
568 fail "complete (2) 'p no_var_named_this-a'"
571 fail "(timeout) complete (2) 'p no_var_named_this-a'"
575 -re ".*$gdb_prompt $" {
576 fail "complete (2) 'p no_var_named_this-a'"
578 timeout { fail "(timeout) complete (2) 'p no_var_named_this-a'" }
581 -re ".*$gdb_prompt $" { fail "complete (2) 'p no_var_named_this-a'" }
582 timeout { fail "(timeout) complete (2) 'p no_var_named_this-a'" }
585 send_gdb "p no_var_named_this-\t"
588 -re "^p no_var_named_this-\\\x07$" {
591 -re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" {
594 -re "\\(gdb\\) p no_var_named_this-$" {
597 -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
598 pass "complete (2) 'p no_var_named_this-'"
600 -re ".*$gdb_prompt $" {
601 fail "complete (2) 'p no_var_named_this-'"
604 fail "(timeout) complete (2) 'p no_var_named_this-'"
608 -re ".*$gdb_prompt $" {
609 fail "complete (2) 'p no_var_named_this-'"
612 fail "(timeout) complete (2) 'p no_var_named_this-'"
616 -re ".*$gdb_prompt $" {
617 fail "complete (2) 'p no_var_named_this-'"
619 timeout { fail "(timeout) complete (2) 'p no_var_named_this-'" }
622 -re ".*$gdb_prompt $" { fail "complete (2) 'p no_var_named_this-'" }
623 timeout { fail "(timeout) complete (2) 'p no_var_named_this-'" }
627 # The following tests used to simply try to complete `${objdir}/file',
628 # and so on. The problem is that ${objdir} can be very long; the
629 # completed filename may be more than eighty characters wide. When
630 # this happens, readline tries to manage things, producing output that
631 # may make sense on the screen, but is rather hard for our script to
634 # In the case that motivated this change, the (gdb) prompt occupied
635 # the leftmost six columns, and `${objdir}/' was seventy-four
636 # characters long --- eighty in all. After printing the slash,
637 # readline emitted a space, a carriage return, and then `Makefile'
638 # (the tab character being received as input after `Make'.
640 # Basically, you have to let readline do whatever it's going to do to
641 # make the screen look right. If it happens to use a different
642 # strategy on Tuesdays to get the cursor in the right place, that's
643 # not something the testsuite should care about.
645 # So, we avoid long lines. We `cd' to ${objdir} first, and then do
646 # the completion relative to the current directory.
648 # ${srcdir} may be a relative path. We want to make sure we end up
649 # in the right directory - so make sure we know where it is.
655 # If the directory name contains a '+' we must escape it, adding a backslash.
656 # If not, the test below will fail because it will interpret the '+' as a
657 # regexp operator. We use string_to_regexp for this purpose.
659 gdb_test "cd ${fullsrcdir}" \
660 "Working directory [string_to_regexp ${fullsrcdir}].*" \
663 send_gdb "complete file ./gdb.base/compl\n"
666 -re "file ./gdb.base/completion\\.exp.*$gdb_prompt $"
667 { pass "complete-command 'file ./gdb.base/compl'"}
668 -re ".*$gdb_prompt $" { fail "complete-command 'file ./gdb.base/compl'" }
669 timeout { fail "(timeout) complete-command 'file ./gdb.base/compl'" }
672 send_gdb "file ./gdb.base/complet\t"
675 -re "^file ./gdb.base/completion\\.exp $"\
677 # Ignore the exact error message.
678 gdb_test_multiple "" "complete 'file ./gdb.base/complet'" {
679 -re "\r\nA program is being debugged already\\.\[\r\n\]+Are you sure you want to change the file\\? \\(y or n\\) $" {
683 -re ".*$gdb_prompt $" { pass "complete 'file ./gdb.base/complet'" }
686 -re ".*$gdb_prompt $" { fail "complete 'file ./gdb.base/complet'" }
687 timeout { fail "(timeout) complete 'file ./gdb.base/complet'" }
690 send_gdb "info func marke\t"
693 -re "^info func marke.*r$"\
698 -re "marker1.*$gdb_prompt info func marker$"\
701 -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 $"\
702 { pass "complete 'info func marke'"}
703 -re ".*$gdb_prompt $" { fail "complete 'info func marke'"}
704 timeout {fail "(timeout) complete 'info func marke'"}
707 -re ".*$gdb_prompt $" { fail "complete 'info func marke'"}
708 timeout {fail "(timeout) complete 'info func marke'"}
711 -re ".*$gdb_prompt $" { fail "complete 'info func marke'" }
712 timeout { fail "(timeout) complete 'info func marke'" }
716 send_gdb "set follow-fork-mode \t\t"
719 -re "child.*parent.*$gdb_prompt set follow-fork-mode $"\
722 -re "Requires an argument.*child.*parent.*$gdb_prompt $"\
723 { pass "complete 'set follow-fork-mode'"}
724 -re "Ambiguous item \"\"\\..*$gdb_prompt $"\
725 { pass "complete 'set follow-fork-mode'"}
726 -re ".*$gdb_prompt $" { fail "complete 'set follow-fork-mode'"}
727 timeout {fail "(timeout) complete 'set follow-fork-mode'"}
730 -re ".*$gdb_prompt $" { fail "complete 'set follow-fork-mode'" }
731 timeout { fail "(timeout) complete 'set follow-fork-mode'" }
734 # Restore globals modified in this test...
735 if [info exists old_inputrc] {
736 set env(INPUTRC) $old_inputrc
740 set timeout $oldtimeout1