1 # Copyright 1998, 1999, 2002 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 \"break" unambiguous (completes to filename "break.c")
42 # "p \"break." unambiguous (should complete to "break.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 binfile ${objdir}/${subdir}/${testfile}
68 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-w}] != "" } {
69 gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
72 if [get_compiler_info ${binfile}] {
78 # Don't let a .inputrc file or an existing setting of INPUTRC mess up
79 # the test results. Even if /dev/null doesn't exist on the particular
80 # platform, the readline library will use the default setting just by
81 # failing to open the file. OTOH, opening /dev/null successfully will
82 # also result in the default settings being used since nothing will be
83 # read from this file.
85 if [info exists env(INPUTRC)] {
86 set old_inputrc $env(INPUTRC)
88 set env(INPUTRC) "/dev/null"
91 gdb_reinitialize_dir $srcdir/$subdir
94 if ![runto_main] then {
95 perror "tests suppressed"
98 set oldtimeout1 $timeout
108 -re "Undefined command: \"hfgfh\"\\. Try \"help\"\\..*$gdb_prompt $"\
109 { pass "complete 'hfgfh'"}
110 -re ".*$gdb_prompt $" { fail "complete 'hfgfh'"}
111 timeout {fail "(timeout) complete 'hfgfh'"}
114 -re ".*$gdb_prompt $" { fail "complete 'hfgfh'" }
115 timeout { fail "(timeout) complete 'hfgfh'" }
120 send_gdb "show output\t"
123 -re "^show output-radix $"\
126 -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
127 { pass "complete 'show output'"}
128 -re ".*$gdb_prompt $" { fail "complete 'show output'"}
129 timeout {fail "(timeout) complete 'show output'"}
135 -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
136 { fail "complete 'show output'"}
137 -re ".*$gdb_prompt $" { fail "complete 'show output'"}
138 timeout { fail "(timeout) complete 'show output'"}
143 -re ".*$gdb_prompt $" { fail "complete 'show output'" }
144 timeout { fail "(timeout) complete 'show output'" }
148 send_gdb "show output-\t"
151 -re "^show output-radix $"\
154 -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
155 { pass "complete 'show output-'"}
156 -re ".*$gdb_prompt $" { fail "complete 'show output-'"}
157 timeout {fail "(timeout) complete 'show output-'"}
160 -re "^show output-$"\
163 -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
164 { fail "complete 'show output-'"}
165 -re ".*$gdb_prompt $" { fail "complete 'show output-'"}
166 timeout { fail "(timeout) complete 'show output-'"}
171 -re ".*$gdb_prompt $" { fail "complete 'show output-'" }
172 timeout { fail "(timeout) complete 'show output-'" }
182 -re "The history is empty\\..*$gdb_prompt $"\
183 { pass "complete 'p'"}
184 -re ".*$gdb_prompt $" { fail "complete 'p'"}
185 timeout {fail "(timeout) complete 'p' 2"}
188 -re ".*$gdb_prompt $" { fail "complete 'p'" }
189 timeout { fail "(timeout) complete 'p' 1" }
199 -re "The history is empty\\..*$gdb_prompt $"\
200 { pass "complete 'p '"}
201 -re ".*$gdb_prompt $" { fail "complete 'p '"}
202 timeout {fail "(timeout) complete 'p ' 1"}
205 -re ".*$gdb_prompt $" { fail "complete 'p '" }
206 timeout { fail "(timeout) complete 'p ' 2" }
210 send_gdb "info t foo\t"
213 -re "^info t foo\\\x07$"\
216 -re "Ambiguous info command \"t foo\": target, terminal, threads, tp, tracepoints, types\\..*$gdb_prompt $"\
217 { pass "complete 'info t foo'"}
218 -re ".*$gdb_prompt $" { fail "complete 'info t foo'"}
219 timeout {fail "(timeout) complete 'info t foo'"}
222 -re ".*$gdb_prompt $" { fail "complete 'info t foo'" }
223 timeout { fail "(timeout) complete 'info t foo'" }
229 -re "^info t\\\x07$"\
232 -re "Ambiguous info command \"t\": target, terminal, threads, tp, tracepoints, types\\..
234 { pass "complete 'info t'"}
235 -re ".*$gdb_prompt $" { fail "complete 'info t'"}
236 timeout {fail "(timeout) complete 'info t'"}
239 -re ".*$gdb_prompt $" { fail "complete 'info t'" }
240 timeout { fail "(timeout) complete 'info t'" }
247 -re "^info t \\\x07$"\
250 -re "Ambiguous info command \"t \": target, terminal, threads, tp, tracepoints, types\\..
252 { pass "complete 'info t '"}
253 -re ".*$gdb_prompt $" { fail "complete 'info t '"}
254 timeout {fail "(timeout) complete 'info t '"}
257 -re ".*$gdb_prompt $" { fail "complete 'info t '" }
258 timeout { fail "(timeout) complete 'info t '" }
262 send_gdb "info asdfgh\t"
265 -re "^info asdfgh\\\x07$"\
268 -re "Undefined info command: \"asdfgh\". Try \"help info\"\\..
270 { pass "complete 'info asdfgh'"}
271 -re ".*$gdb_prompt $" { fail "complete 'info asdfgh'"}
272 timeout {fail "(timeout) complete 'info asdfgh'"}
275 -re ".*$gdb_prompt $" { fail "complete 'info asdfgh'" }
276 timeout { fail "(timeout) complete 'info asdfgh'" }
280 send_gdb "info asdfgh \t"
283 -re "^info asdfgh \\\x07$"\
286 -re "Undefined info command: \"asdfgh \". Try \"help info\"\\..
288 { pass "complete 'info asdfgh '"}
289 -re ".*$gdb_prompt $" { fail "complete 'info asdfgh '"}
290 timeout {fail "(timeout) complete 'info asdfgh '"}
293 -re ".*$gdb_prompt $" { fail "complete 'info asdfgh '" }
294 timeout { fail "(timeout) complete 'info asdfgh '" }
303 -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 $"\
304 { pass "complete 'info'"}
305 -re ".*$gdb_prompt $" { fail "complete 'info'"}
306 timeout {fail "(timeout) complete 'info'"}
309 -re ".*$gdb_prompt $" { fail "complete 'info'" }
310 timeout { fail "(timeout) complete 'info'" }
319 -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 $"\
320 { pass "complete 'info '"}
321 -re ".*$gdb_prompt $" { fail "complete 'info '"}
322 timeout {fail "(timeout) complete 'info '"}
325 -re ".*$gdb_prompt $" { fail "complete 'info '" }
326 timeout { fail "(timeout) complete 'info '" }
336 -re "address.*types.*$gdb_prompt info $"\
339 -re "\"info\".*unambiguous\\..*$gdb_prompt $"\
340 { pass "complete (2) 'info '"}
341 -re ".*$gdb_prompt $" { fail "complete (2) 'info '"}
342 timeout {fail "(timeout) complete (2) 'info '"}
345 -re ".*$gdb_prompt $" { fail "complete (2) 'info '"}
346 timeout {fail "(timeout) complete (2) 'info '"}
349 -re ".*$gdb_prompt $" { fail "complete (2) 'info '" }
350 timeout { fail "(timeout) complete (2) 'info '" }
354 send_gdb "p \"break\t"
357 -re "^p \"break\\\x07$"\
360 -re ".*$gdb_prompt $" { fail "complete 'p \"break'"}
361 timeout {fail "(timeout) complete 'p \"break'"}
364 -re "^p \"break\\.c\"$"\
367 -re ".*$gdb_prompt $" { pass "complete 'p \"break'"}
368 timeout {fail "(timeout) complete 'p \"break'"}
374 -re ".*$gdb_prompt $" { fail "complete 'p \"break'"}
375 timeout {fail "(timeout) complete 'p \"break'"}
378 -re ".*$gdb_prompt $" { fail "complete 'p \"break'" }
379 timeout { fail "(timeout) complete 'p \"break'" }
383 send_gdb "p \"break.\t"
386 -re "^p \"break\\.\\\x07$"\
389 -re ".*$gdb_prompt $" { fail "complete 'p \"break.'"}
390 timeout {fail "(timeout) complete 'p \"break.'"}
393 -re "^p \"break\\.c\"$"\
396 -re ".*$gdb_prompt $" { pass "complete 'p \"break.'"}
397 timeout {fail "(timeout) complete 'p \"break.'"}
400 -re "^p \"break\\..*$"
403 -re ".*$gdb_prompt $" { fail "complete 'p \"break.'"}
404 timeout {fail "(timeout) complete 'p \"break.'"}
407 -re ".*$gdb_prompt $" { fail "complete 'p \"break.'" }
408 timeout { fail "(timeout) complete 'p \"break.'" }
417 -re "Invalid character constant\\..*$gdb_prompt $"\
418 { pass "complete 'p \'a'"}
419 -re ".*$gdb_prompt $" { fail "complete 'p \'a'"}
420 timeout {fail "(timeout) complete 'p \'a'"}
423 -re ".*$gdb_prompt $" { fail "complete 'p \'a'" }
424 timeout { fail "(timeout) complete 'p \'a'" }
433 -re ".*argv.*$gdb_prompt p .a$" {
436 -re "Invalid character constant\\..*$gdb_prompt $" {
437 pass "complete (2) 'p \'a'"
439 -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
440 timeout { fail "(timeout) complete (2) 'p \'a'" }
443 -re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" {
446 -re "\\(gdb\\) p 'a$" {
449 -re "Invalid character constant\\..*$gdb_prompt $" {
450 pass "complete (2) 'p \'a'"
452 -re ".*$gdb_prompt $" {
453 fail "complete (2) 'p \'a'"
455 timeout { fail "(timeout) complete (2) 'p \'a'" }
458 -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
459 timeout { fail "(timeout) complete (2) 'p \'a'" }
462 -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
463 timeout { fail "(timeout) complete (2) 'p \'a'" }
466 -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
467 timeout { fail "(timeout) complete (2) 'p \'a'" }
471 # These tests used to try completing the shorter "p b-a".
472 # Unfortunately, on some systems, there are .o files in system
473 # libraries which declare static variables named `b'. Of course,
474 # those variables aren't really in scope, as far as the compiler is
475 # concerned. But GDB deliberately tries to be more liberal: if you
476 # enter an identifier that doesn't have any binding in scope, GDB will
477 # search all the program's compilation units for a static variable of
480 # This behavior can help avoid a lot of pedantry, so it's usually a
481 # good thing. But in this test case, it causes GDB to print the value
482 # of some random variable, instead of giving us the "No symbol..."
483 # error we were expecting.
485 # For example, on S/390 linux, the file s_atan.c in libm.a declares a
486 # `b', which is a structure containing an int and a float, so GDB says
487 # ``Argument to arithmetic operation not a number or boolean'' instead
488 # of ``No symbol ...''.
490 # So, I'm hoping that there is no system with a static library variable named
491 # `no_var_by_this_name'.
492 send_gdb "p no_var_named_this-a\t"
495 -re "^p no_var_named_this-a\\\x07$" {
498 -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
499 pass "complete 'p no_var_named_this-a'"
501 -re ".*$gdb_prompt $" {
502 fail "complete 'p no_var_named_this-a'"
505 fail "(timeout) complete 'p no_var_named_this-a'"
509 -re ".*$gdb_prompt $" {
510 fail "complete 'p no_var_named_this-a'"
513 fail "(timeout) complete 'p no_var_named_this-a'"
517 send_gdb "p no_var_named_this-a\t"
520 -re "^p no_var_named_this-a\\\x07$" {
523 -re ".*argv.*$gdb_prompt p no_var_named_this-a$" {
526 -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
527 pass "complete (2) 'p no_var_named_this-a'"
529 -re ".*$gdb_prompt $" {
530 fail "complete (2) 'p no_var_named_this-a'"
533 fail "(timeout) complete (2) 'p no_var_named_this-a'"
537 -re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" {
540 -re "\\(gdb\\) p no_var_named_this-a$" {
543 -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
544 pass "complete (2) 'p no_var_named_this-a'"
546 -re ".*$gdb_prompt $" {
547 fail "complete (2) 'p no_var_named_this-a'"
550 fail "(timeout) complete (2) 'p no_var_named_this-a'"
554 -re ".*$gdb_prompt $" {
555 fail "complete (2) 'p no_var_named_this-a'"
558 fail "(timeout) complete (2) 'p no_var_named_this-a'"
562 -re ".*$gdb_prompt $" {
563 fail "complete (2) 'p no_var_named_this-a'"
565 timeout { fail "(timeout) complete (2) 'p no_var_named_this-a'" }
568 -re ".*$gdb_prompt $" { fail "complete (2) 'p no_var_named_this-a'" }
569 timeout { fail "(timeout) complete (2) 'p no_var_named_this-a'" }
572 send_gdb "p no_var_named_this-\t"
575 -re "^p no_var_named_this-\\\x07$" {
578 -re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" {
581 -re "\\(gdb\\) p no_var_named_this-$" {
584 -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" {
585 pass "complete (2) 'p no_var_named_this-'"
587 -re ".*$gdb_prompt $" {
588 fail "complete (2) 'p no_var_named_this-'"
591 fail "(timeout) complete (2) 'p no_var_named_this-'"
595 -re ".*$gdb_prompt $" {
596 fail "complete (2) 'p no_var_named_this-'"
599 fail "(timeout) complete (2) 'p no_var_named_this-'"
603 -re ".*$gdb_prompt $" {
604 fail "complete (2) 'p no_var_named_this-'"
606 timeout { fail "(timeout) complete (2) 'p no_var_named_this-'" }
609 -re ".*$gdb_prompt $" { fail "complete (2) 'p no_var_named_this-'" }
610 timeout { fail "(timeout) complete (2) 'p no_var_named_this-'" }
614 # The following tests used to simply try to complete `${objdir}/Make',
615 # and so on. The problem is that ${objdir} can be very long; the
616 # completed filename may be more than eighty characters wide. When
617 # this happens, readline tries to manage things, producing output that
618 # may make sense on the screen, but is rather hard for our script to
621 # In the case that motivated this change, the (gdb) prompt occupied
622 # the leftmost six columns, and `${objdump}/' was seventy-four
623 # characters long --- eighty in all. After printing the slash,
624 # readline emitted a space, a carriage return, and then `Makefile'
625 # (the tab character being received as input after `Make'.
627 # Basically, you have to let readline do whatever it's going to do to
628 # make the screen look right. If it happens to use a different
629 # strategy on Tuesdays to get the cursor in the right place, that's
630 # not something the testsuite should care about.
632 # So, we avoid long lines. We `cd' to ${objdir} first, and then do
633 # the completion relative to the current directory.
635 # Note that if we are building in the source tree, then there will be
636 # more than one completion for ./Make, so we need to handle that also.
637 # A better long term solution might be to create a temporary directory,
638 # populate it with a set of known names, and use that directory to
641 gdb_test "cd ${objdir}" "Working directory ${objdir}.*" "cd to \${objdir}"
642 send_gdb "file ./Make\t"
645 -re "^file ./Make(\\\x07|)file.*$"\
648 -re "\r\nA program is being debugged already\\. Kill it\\? \\(y or n\\) $"\
651 -re "\r\nProgram not killed\\.\r\n$gdb_prompt $"\
652 { pass "complete 'file ./Make'"}
653 -re ".*$gdb_prompt $" { fail "complete 'file ./Make'"}
654 timeout {fail "(timeout) complete 'file ./Make'"}
657 -re ".*$gdb_prompt $" { fail "complete 'file ./Make'"}
658 timeout {fail "(timeout) complete 'file ./Make'"}
661 -re ".*$gdb_prompt $" { fail "complete 'file ./Make'" }
662 timeout { fail "(timeout) complete 'file ./Make'" }
665 # ${srcdir} may be a relative path. We want to make sure we end up
666 # in the right directory - so make sure we know where it is.
672 gdb_test "cd ${fullsrcdir}" "Working directory ${fullsrcdir}.*" "cd to \${srcdir}"
673 send_gdb "file ./gdb.base/compl\t"
676 -re "^file ./gdb.base/completion\\.exp $"\
679 -re "\r\nA program is being debugged already\\. Kill it\\? \\(y or n\\) $"
683 -re "\r\nProgram not killed\\.\r\n$gdb_prompt $"\
684 { pass "complete 'file ./gdb.base/compl'"}
685 -re ".*$gdb_prompt $" { fail "complete 'file ./gdb.base/compl'"}
686 timeout {fail "(timeout) complete 'file ./gdb.base/compl'"}
689 -re ".*$gdb_prompt $" { fail "complete 'file ./gdb.base/compl'"}
690 timeout {fail "(timeout) complete 'file ./gdb.base/compl'"}
693 -re ".*$gdb_prompt $" { fail "complete 'file ./gdb.base/compl'" }
694 timeout { fail "(timeout) complete 'file ./gdb.base/compl'" }
697 send_gdb "info func mark\t"
700 -re "^info func mark.*er$"\
705 -re "marker1.*$gdb_prompt info func marker$"\
708 -re "All functions matching regular expression \"marker\":.*File.*break.c:\r\nint marker1\\(\\);\r\nint marker2\\(int\\).*marker3\\(char.*char.*\\).*marker4\\(long int\\);.*$gdb_prompt $"\
709 { pass "complete 'info func mar'"}
710 -re ".*$gdb_prompt $" { fail "complete 'info func mar'"}
711 timeout {fail "(timeout) complete 'info func mar'"}
714 -re ".*$gdb_prompt $" { fail "complete 'info func mar'"}
715 timeout {fail "(timeout) complete 'info func mar'"}
718 -re ".*$gdb_prompt $" { fail "complete 'info func mar'" }
719 timeout { fail "(timeout) complete 'info func mar'" }
723 send_gdb "set follow-fork-mode \t\t"
726 -re "ask.*child.*parent.*$gdb_prompt set follow-fork-mode $"\
729 -re "Requires an argument.*ask.*child.*parent.*$gdb_prompt $"\
730 { pass "complete 'set follow-fork-mode'"}
731 -re "Ambiguous item \"\"\\..*$gdb_prompt $"\
732 { pass "complete 'set follow-fork-mode'"}
733 -re ".*$gdb_prompt $" { fail "complete 'set follow-fork-mode'"}
734 timeout {fail "(timeout) complete 'set follow-fork-mode'"}
737 -re ".*$gdb_prompt $" { fail "complete 'set follow-fork-mode'" }
738 timeout { fail "(timeout) complete 'set follow-fork-mode'" }
741 # Restore globals modified in this test...
742 if [info exists old_inputrc] {
743 set env(INPUTRC) $old_inputrc
747 set timeout $oldtimeout1