X-Git-Url: http://drtracing.org/?a=blobdiff_plain;f=gdb%2Ftestsuite%2Fgdb.base%2Fcompletion.exp;h=879743160f6f9cd695f691bd52a25a5eacba3c26;hb=0fb0cc7590113e9b459dfcc48dc71c9d419d9580;hp=38bbd4b73c9fd13b4600370e7c7cc425f0aeb948;hpb=68ab8fc55fd352e681970ff4de0df62f973e964a;p=deliverable%2Fbinutils-gdb.git diff --git a/gdb/testsuite/gdb.base/completion.exp b/gdb/testsuite/gdb.base/completion.exp index 38bbd4b73c..879743160f 100644 --- a/gdb/testsuite/gdb.base/completion.exp +++ b/gdb/testsuite/gdb.base/completion.exp @@ -1,21 +1,18 @@ -# Copyright 1998, 1999, 2002, 2003 Free Software Foundation, Inc. +# Copyright 1998, 1999, 2002, 2003, 2004, 2007, 2008, 2009 +# Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or +# the Free Software Foundation; either version 3 of the License, or # (at your option) any later version. -# +# # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. -# +# # You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -# Please email any bugs, comments, and/or additions to this file to: -# bug-gdb@prep.ai.mit.edu +# along with this program. If not, see . # This file was written by Elena Zannoni (ezannoni@cygnus.com) @@ -38,11 +35,11 @@ # "info ajksdlfk " no completions # "info" " " # "info " ambiguous (all info commands) -# "p \"break" unambiguous (completes to filename "break.c") -# "p \"break." unambiguous (should complete to "break.c" but does not, +# "p \"break1" unambiguous (completes to filename "break1.c") +# "p \"break1." unambiguous (should complete to "break1.c" but does not, # due to readline limitations) -# "p 'a" ambiguous (all symbols starting with a) -# "p b-a" ambiguous (all symbols starting with a) +# "p 'arg" ambiguous (all symbols starting with arg) +# "p b-arg" ambiguous (all symbols starting with arg) # "p b-" ambiguous (all symbols) # "file Make" "file" (word break hard to screw up here) # "file ../gdb.stabs/we" "ird" (needs to not break word at slash) @@ -64,9 +61,22 @@ set bug_id 0 set testfile "break" set srcfile ${testfile}.c +set srcfile1 ${testfile}1.c set binfile ${objdir}/${subdir}/${testfile} -if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-w}] != "" } { - gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail." + +if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}0.o" object {debug nowarnings}] != "" } { + untested completion.exp + return -1 +} + +if { [gdb_compile "${srcdir}/${subdir}/${srcfile1}" "${binfile}1.o" object {debug nowarnings}] != "" } { + untested completion.exp + return -1 +} + +if { [gdb_compile "${binfile}0.o ${binfile}1.o" "${binfile}" executable {debug nowarnings}] != "" } { + untested completion.exp + return -1 } if [get_compiler_info ${binfile}] { @@ -213,7 +223,7 @@ gdb_expect { -re "^info t foo\\\x07$"\ { send_gdb "\n" gdb_expect { - -re "Ambiguous info command \"t foo\": target, terminal, threads, tp, tracepoints, types\\..*$gdb_prompt $"\ + -re "Ambiguous info command \"t foo\": target, tasks, terminal, threads, tp, tracepoints, types\\..*$gdb_prompt $"\ { pass "complete 'info t foo'"} -re ".*$gdb_prompt $" { fail "complete 'info t foo'"} timeout {fail "(timeout) complete 'info t foo'"} @@ -229,7 +239,7 @@ gdb_expect { -re "^info t\\\x07$"\ { send_gdb "\n" gdb_expect { - -re "Ambiguous info command \"t\": target, terminal, threads, tp, tracepoints, types\\.. + -re "Ambiguous info command \"t\": target, tasks, terminal, threads, tp, tracepoints, types\\.. *$gdb_prompt $"\ { pass "complete 'info t'"} -re ".*$gdb_prompt $" { fail "complete 'info t'"} @@ -247,7 +257,7 @@ gdb_expect { -re "^info t \\\x07$"\ { send_gdb "\n" gdb_expect { - -re "Ambiguous info command \"t \": target, terminal, threads, tp, tracepoints, types\\.. + -re "Ambiguous info command \"t \": target, tasks, terminal, threads, tp, tracepoints, types\\.. *$gdb_prompt $"\ { pass "complete 'info t '"} -re ".*$gdb_prompt $" { fail "complete 'info t '"} @@ -300,7 +310,7 @@ gdb_expect { -re "^info $"\ { send_gdb "\n" gdb_expect { - -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 $"\ + -re "\"info\" must be followed by the name of an info command\\.\r\nList of info subcommands.*$gdb_prompt $"\ { pass "complete 'info'"} -re ".*$gdb_prompt $" { fail "complete 'info'"} timeout {fail "(timeout) complete 'info'"} @@ -316,7 +326,7 @@ gdb_expect { -re "^info \\\x07$"\ { send_gdb "\n" gdb_expect { - -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 $"\ + -re "\"info\" must be followed by the name of an info command\\.\r\nList of info subcommands:\r\n\r\n.*$gdb_prompt $"\ { pass "complete 'info '"} -re ".*$gdb_prompt $" { fail "complete 'info '"} timeout {fail "(timeout) complete 'info '"} @@ -351,120 +361,137 @@ gdb_expect { } -send_gdb "p \"break\t" +send_gdb "help info wat\t" +gdb_expect { + -re "^help info watchpoints $"\ + { send_gdb "\n" + gdb_expect { + -re "Synonym for .*\r\n.*$gdb_prompt $"\ + { pass "complete help info wat" } + -re ".*$gdb_prompt $" { fail "complete help info wat"} + timeout {fail "(timeout) complete help info wat"} + } + } + -re "^help info wat\\\x07$" { fail "complete (2) help info wat" } + -re ".*$gdb_prompt $" { fail "complete (3) help info wat" } + timeout { fail "(timeout) complete (3) help info wat" } + } + + +send_gdb "p \"break1\t" sleep 1 gdb_expect { - -re "^p \"break\\\x07$"\ + -re "^p \"break1\\\x07$"\ { send_gdb "\n" gdb_expect { - -re ".*$gdb_prompt $" { fail "complete 'p \"break'"} - timeout {fail "(timeout) complete 'p \"break'"} + -re ".*$gdb_prompt $" { fail "complete 'p \"break1'"} + timeout {fail "(timeout) complete 'p \"break1'"} } } - -re "^p \"break\\.c\"$"\ + -re "^p \"break1\\.c\"$"\ { send_gdb "\n" gdb_expect { - -re ".*$gdb_prompt $" { pass "complete 'p \"break'"} - timeout {fail "(timeout) complete 'p \"break'"} + -re ".*$gdb_prompt $" { pass "complete 'p \"break1'"} + timeout {fail "(timeout) complete 'p \"break1'"} } } - -re "^p \"break.*$" + -re "^p \"break1.*$" { send_gdb "\n" gdb_expect { - -re ".*$gdb_prompt $" { fail "complete 'p \"break'"} - timeout {fail "(timeout) complete 'p \"break'"} + -re ".*$gdb_prompt $" { fail "complete 'p \"break1'"} + timeout {fail "(timeout) complete 'p \"break1'"} } } - -re ".*$gdb_prompt $" { fail "complete 'p \"break'" } - timeout { fail "(timeout) complete 'p \"break'" } + -re ".*$gdb_prompt $" { fail "complete 'p \"break1'" } + timeout { fail "(timeout) complete 'p \"break1'" } } setup_xfail "*-*-*" -send_gdb "p \"break.\t" +send_gdb "p \"break1.\t" sleep 1 gdb_expect { - -re "^p \"break\\.\\\x07$"\ + -re "^p \"break1\\.\\\x07$"\ { send_gdb "\n" gdb_expect { - -re ".*$gdb_prompt $" { fail "complete 'p \"break.'"} - timeout {fail "(timeout) complete 'p \"break.'"} + -re ".*$gdb_prompt $" { fail "complete 'p \"break1.'"} + timeout {fail "(timeout) complete 'p \"break1.'"} } } - -re "^p \"break\\.c\"$"\ + -re "^p \"break1\\.c\"$"\ { send_gdb "\n" gdb_expect { - -re ".*$gdb_prompt $" { pass "complete 'p \"break.'"} - timeout {fail "(timeout) complete 'p \"break.'"} + -re ".*$gdb_prompt $" { pass "complete 'p \"break1.'"} + timeout {fail "(timeout) complete 'p \"break1.'"} } } - -re "^p \"break\\..*$" + -re "^p \"break1\\..*$" { send_gdb "\n" gdb_expect { - -re ".*$gdb_prompt $" { fail "complete 'p \"break.'"} - timeout {fail "(timeout) complete 'p \"break.'"} + -re ".*$gdb_prompt $" { fail "complete 'p \"break1.'"} + timeout {fail "(timeout) complete 'p \"break1.'"} } } - -re ".*$gdb_prompt $" { fail "complete 'p \"break.'" } - timeout { fail "(timeout) complete 'p \"break.'" } + -re ".*$gdb_prompt $" { fail "complete 'p \"break1.'" } + timeout { fail "(timeout) complete 'p \"break1.'" } } -send_gdb "p 'a\t" +send_gdb "p 'arg\t" sleep 1 gdb_expect { - -re "^p 'a\\\x07$"\ + -re "^p 'arg\\\x07$"\ { send_gdb "\n" gdb_expect { -re "(Invalid character constant\\.|Unmatched single quote\\.).*$gdb_prompt $"\ - { pass "complete 'p \'a'"} - -re ".*$gdb_prompt $" { fail "complete 'p \'a'"} - timeout {fail "(timeout) complete 'p \'a'"} + { pass "complete 'p \'arg'"} + -re ".*$gdb_prompt $" { fail "complete 'p \'arg'"} + timeout {fail "(timeout) complete 'p \'arg'"} } } - -re ".*$gdb_prompt $" { fail "complete 'p \'a'" } - timeout { fail "(timeout) complete 'p \'a'" } + -re ".*$gdb_prompt $" { fail "complete 'p \'arg'" } + timeout { fail "(timeout) complete 'p \'arg'" } } -send_gdb "p 'a\t" +send_gdb "p 'arg\t" sleep 1 gdb_expect { - -re "^p 'a\\\x07$" { + -re "^p 'arg\\\x07$" { send_gdb "\t" gdb_expect { - -re ".*argv.*$gdb_prompt p .a$" { + -re ".*argv.*$gdb_prompt p 'arg$" { send_gdb "\n" gdb_expect { -re "(Invalid character constant\\.|Unmatched single quote\\.).*$gdb_prompt $" { - pass "complete (2) 'p \'a'" + pass "complete (2) 'p \'arg'" } - -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" } - timeout { fail "(timeout) complete (2) 'p \'a'" } + -re ".*$gdb_prompt $" { fail "complete (2) 'p \'arg'" } + timeout { fail "(timeout) complete (2) 'p \'arg'" } } } -re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" { send_gdb "n" gdb_expect { - -re "\\(gdb\\) p 'a$" { + -re "\\(gdb\\) p 'arg$" { send_gdb "\n" gdb_expect { -re "(Invalid character constant\\.|Unmatched single quote\\.).*$gdb_prompt $" { - pass "complete (2) 'p \'a'" + pass "complete (2) 'p \'arg'" } -re ".*$gdb_prompt $" { - fail "complete (2) 'p \'a'" + fail "complete (2) 'p \'arg'" } - timeout { fail "(timeout) complete (2) 'p \'a'" } + timeout { fail "(timeout) complete (2) 'p \'arg'" } } } - -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" } - timeout { fail "(timeout) complete (2) 'p \'a'" } + -re ".*$gdb_prompt $" { fail "complete (2) 'p \'arg'" } + timeout { fail "(timeout) complete (2) 'p \'arg'" } } } - -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" } - timeout { fail "(timeout) complete (2) 'p \'a'" } + -re ".*$gdb_prompt $" { fail "complete (2) 'p \'arg'" } + timeout { fail "(timeout) complete (2) 'p \'arg'" } } } - -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" } - timeout { fail "(timeout) complete (2) 'p \'a'" } + -re ".*$gdb_prompt $" { fail "complete (2) 'p \'arg'" } + timeout { fail "(timeout) complete (2) 'p \'arg'" } } @@ -489,84 +516,84 @@ gdb_expect { # # So, I'm hoping that there is no system with a static library variable named # `no_var_by_this_name'. -send_gdb "p no_var_named_this-a\t" +send_gdb "p no_var_named_this-arg\t" sleep 1 gdb_expect { - -re "^p no_var_named_this-a\\\x07$" { + -re "^p no_var_named_this-arg\\\x07$" { send_gdb "\n" gdb_expect { -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" { - pass "complete 'p no_var_named_this-a'" + pass "complete 'p no_var_named_this-arg'" } -re ".*$gdb_prompt $" { - fail "complete 'p no_var_named_this-a'" + fail "complete 'p no_var_named_this-arg'" } timeout { - fail "(timeout) complete 'p no_var_named_this-a'" + fail "(timeout) complete 'p no_var_named_this-arg'" } } } -re ".*$gdb_prompt $" { - fail "complete 'p no_var_named_this-a'" + fail "complete 'p no_var_named_this-arg'" } timeout { - fail "(timeout) complete 'p no_var_named_this-a'" + fail "(timeout) complete 'p no_var_named_this-arg'" } } -send_gdb "p no_var_named_this-a\t" +send_gdb "p no_var_named_this-arg\t" sleep 1 gdb_expect { - -re "^p no_var_named_this-a\\\x07$" { + -re "^p no_var_named_this-arg\\\x07$" { send_gdb "\t" gdb_expect { - -re ".*argv.*$gdb_prompt p no_var_named_this-a$" { + -re ".*argv.*$gdb_prompt p no_var_named_this-arg$" { send_gdb "\n" gdb_expect { -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" { - pass "complete (2) 'p no_var_named_this-a'" + pass "complete (2) 'p no_var_named_this-arg'" } -re ".*$gdb_prompt $" { - fail "complete (2) 'p no_var_named_this-a'" + fail "complete (2) 'p no_var_named_this-arg'" } timeout { - fail "(timeout) complete (2) 'p no_var_named_this-a'" + fail "(timeout) complete (2) 'p no_var_named_this-arg'" } } } -re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.|Display all $decimal possibilities.) \\(y or n\\)$" { send_gdb "n" gdb_expect { - -re "\\(gdb\\) p no_var_named_this-a$" { + -re "\\(gdb\\) p no_var_named_this-arg$" { send_gdb "\n" gdb_expect { -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" { - pass "complete (2) 'p no_var_named_this-a'" + pass "complete (2) 'p no_var_named_this-arg'" } -re ".*$gdb_prompt $" { - fail "complete (2) 'p no_var_named_this-a'" + fail "complete (2) 'p no_var_named_this-arg'" } timeout { - fail "(timeout) complete (2) 'p no_var_named_this-a'" + fail "(timeout) complete (2) 'p no_var_named_this-arg'" } } } -re ".*$gdb_prompt $" { - fail "complete (2) 'p no_var_named_this-a'" + fail "complete (2) 'p no_var_named_this-arg'" } timeout { - fail "(timeout) complete (2) 'p no_var_named_this-a'" + fail "(timeout) complete (2) 'p no_var_named_this-arg'" } } } -re ".*$gdb_prompt $" { - fail "complete (2) 'p no_var_named_this-a'" + fail "complete (2) 'p no_var_named_this-arg'" } - timeout { fail "(timeout) complete (2) 'p no_var_named_this-a'" } + timeout { fail "(timeout) complete (2) 'p no_var_named_this-arg'" } } } - -re ".*$gdb_prompt $" { fail "complete (2) 'p no_var_named_this-a'" } - timeout { fail "(timeout) complete (2) 'p no_var_named_this-a'" } + -re ".*$gdb_prompt $" { fail "complete (2) 'p no_var_named_this-arg'" } + timeout { fail "(timeout) complete (2) 'p no_var_named_this-arg'" } } send_gdb "p no_var_named_this-\t" @@ -600,6 +627,20 @@ gdb_expect { } } } + -re ".*argv.*$gdb_prompt p no_var_named_this-$" { + send_gdb "\n" + gdb_expect { + -re "No symbol \"no_var_named_this\" in current context\\..*$gdb_prompt $" { + pass "complete (2) 'p no_var_named_this-'" + } + -re ".*$gdb_prompt $" { + fail "complete (2) 'p no_var_named_this-'" + } + timeout { + fail "(timeout) complete (2) 'p no_var_named_this-'" + } + } + } -re ".*$gdb_prompt $" { fail "complete (2) 'p no_var_named_this-'" } @@ -610,8 +651,54 @@ gdb_expect { timeout { fail "(timeout) complete (2) 'p no_var_named_this-'" } } +send_gdb "p values\[0\].a\t" +sleep 3 +gdb_expect { + -re "^p values.0..a_field $"\ + { send_gdb "\n" + sleep 1 + gdb_expect { + -re "^.* = 0.*$gdb_prompt $"\ + { pass "complete 'p values\[0\].a'"} + -re ".*$gdb_prompt $" { fail "complete 'p values\[0\].a'"} + timeout {fail "(timeout) complete 'p values\[0\].a'"} + } + } + -re ".*$gdb_prompt $" { fail "complete 'p values\[0\].a'" } + timeout { fail "(timeout) complete 'p values\[0\].a' 2" } + } -# The following tests used to simply try to complete `${objdir}/Make', +send_gdb "p values\[0\] . a\t" +gdb_expect { + -re "^p values.0. . a_field $"\ + { send_gdb "\n" + gdb_expect { + -re "^.* = 0.*$gdb_prompt $"\ + { pass "complete 'p values\[0\] . a'"} + -re ".*$gdb_prompt $" { fail "complete 'p values\[0\] . a'"} + timeout {fail "(timeout) complete 'p values\[0\] . a'"} + } + } + -re ".*$gdb_prompt $" { fail "complete 'p values\[0\] . a'" } + timeout { fail "(timeout) complete 'p values\[0\] . a' 2" } + } + +send_gdb "p &values\[0\] -> a\t" +gdb_expect { + -re "^p &values.0. -> a_field $"\ + { send_gdb "\n" + gdb_expect { + -re "^.* = .*0x\[0-9a-fA-F\]*.*$gdb_prompt $"\ + { pass "complete 'p &values\[0\] -> a'"} + -re ".*$gdb_prompt $" { fail "complete 'p &values\[0\] -> a'"} + timeout {fail "(timeout) complete 'p &values\[0\] -> a'"} + } + } + -re ".*$gdb_prompt $" { fail "complete 'p &values\[0\] -> a'" } + timeout { fail "(timeout) complete 'p &values\[0\] -> a' 2" } + } + +# The following tests used to simply try to complete `${objdir}/file', # and so on. The problem is that ${objdir} can be very long; the # completed filename may be more than eighty characters wide. When # this happens, readline tries to manage things, producing output that @@ -619,7 +706,7 @@ gdb_expect { # recognize. # # In the case that motivated this change, the (gdb) prompt occupied -# the leftmost six columns, and `${objdump}/' was seventy-four +# the leftmost six columns, and `${objdir}/' was seventy-four # characters long --- eighty in all. After printing the slash, # readline emitted a space, a carriage return, and then `Makefile' # (the tab character being received as input after `Make'. @@ -631,36 +718,6 @@ gdb_expect { # # So, we avoid long lines. We `cd' to ${objdir} first, and then do # the completion relative to the current directory. -# -# Note that if we are building in the source tree, then there will be -# more than one completion for ./Make, so we need to handle that also. -# A better long term solution might be to create a temporary directory, -# populate it with a set of known names, and use that directory to -# test completions. - -gdb_test "cd ${objdir}" "Working directory ${objdir}.*" "cd to \${objdir}" -send_gdb "file ./Make\t" -sleep 1 -gdb_expect { - -re "^file ./Make(\\\x07|)file.*$"\ - { send_gdb "\n" - gdb_expect { - -re "\r\nA program is being debugged already\\. Kill it\\? \\(y or n\\) $"\ - { send_gdb "n\n" - gdb_expect { - -re "\r\nProgram not killed\\.\r\n$gdb_prompt $"\ - { pass "complete 'file ./Make'"} - -re ".*$gdb_prompt $" { fail "complete 'file ./Make'"} - timeout {fail "(timeout) complete 'file ./Make'"} - } - } - -re ".*$gdb_prompt $" { fail "complete 'file ./Make'"} - timeout {fail "(timeout) complete 'file ./Make'"} - } - } - -re ".*$gdb_prompt $" { fail "complete 'file ./Make'" } - timeout { fail "(timeout) complete 'file ./Make'" } - } # ${srcdir} may be a relative path. We want to make sure we end up # in the right directory - so make sure we know where it is. @@ -677,34 +734,37 @@ gdb_test "cd ${fullsrcdir}" \ "Working directory [string_to_regexp ${fullsrcdir}].*" \ "cd to \${srcdir}" -send_gdb "file ./gdb.base/compl\t" +send_gdb "complete file ./gdb.base/compl\n" +sleep 1 +gdb_expect { + -re "file ./gdb.base/completion\\.exp.*$gdb_prompt $" + { pass "complete-command 'file ./gdb.base/compl'"} + -re ".*$gdb_prompt $" { fail "complete-command 'file ./gdb.base/compl'" } + timeout { fail "(timeout) complete-command 'file ./gdb.base/compl'" } +} + +send_gdb "file ./gdb.base/complet\t" sleep 1 gdb_expect { -re "^file ./gdb.base/completion\\.exp $"\ { send_gdb "\n" - gdb_expect { - -re "\r\nA program is being debugged already\\. Kill it\\? \\(y or n\\) $" -\ - { send_gdb "n\n" - gdb_expect { - -re "\r\nProgram not killed\\.\r\n$gdb_prompt $"\ - { pass "complete 'file ./gdb.base/compl'"} - -re ".*$gdb_prompt $" { fail "complete 'file ./gdb.base/compl'"} - timeout {fail "(timeout) complete 'file ./gdb.base/compl'"} - } - } - -re ".*$gdb_prompt $" { fail "complete 'file ./gdb.base/compl'"} - timeout {fail "(timeout) complete 'file ./gdb.base/compl'"} - } + # Ignore the exact error message. + gdb_test_multiple "" "complete 'file ./gdb.base/complet'" { + -re "\r\nA program is being debugged already\\.\[\r\n\]+Are you sure you want to change the file\\? \\(y or n\\) $" { + send_gdb "n\n" + exp_continue + } + -re ".*$gdb_prompt $" { pass "complete 'file ./gdb.base/complet'" } + } } - -re ".*$gdb_prompt $" { fail "complete 'file ./gdb.base/compl'" } - timeout { fail "(timeout) complete 'file ./gdb.base/compl'" } + -re ".*$gdb_prompt $" { fail "complete 'file ./gdb.base/complet'" } + timeout { fail "(timeout) complete 'file ./gdb.base/complet'" } } -send_gdb "info func mark\t" +send_gdb "info func marke\t" sleep 1 gdb_expect { - -re "^info func mark.*er$"\ + -re "^info func marke.*r$"\ { send_gdb "\t\t" sleep 3 @@ -712,28 +772,28 @@ gdb_expect { -re "marker1.*$gdb_prompt info func marker$"\ { send_gdb "\n" gdb_expect { - -re "All functions matching regular expression \"marker\":.*File.*break.c:\r\nint marker1\\((void|)\\);\r\nint marker2\\(int\\).*marker3\\(char.*char.*\\).*marker4\\(long int\\);.*$gdb_prompt $"\ - { pass "complete 'info func mar'"} - -re ".*$gdb_prompt $" { fail "complete 'info func mar'"} - timeout {fail "(timeout) complete 'info func mar'"} + -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 $"\ + { pass "complete 'info func marke'"} + -re ".*$gdb_prompt $" { fail "complete 'info func marke'"} + timeout {fail "(timeout) complete 'info func marke'"} } } - -re ".*$gdb_prompt $" { fail "complete 'info func mar'"} - timeout {fail "(timeout) complete 'info func mar'"} + -re ".*$gdb_prompt $" { fail "complete 'info func marke'"} + timeout {fail "(timeout) complete 'info func marke'"} } } - -re ".*$gdb_prompt $" { fail "complete 'info func mar'" } - timeout { fail "(timeout) complete 'info func mar'" } + -re ".*$gdb_prompt $" { fail "complete 'info func marke'" } + timeout { fail "(timeout) complete 'info func marke'" } } send_gdb "set follow-fork-mode \t\t" sleep 1 gdb_expect { - -re "ask.*child.*parent.*$gdb_prompt set follow-fork-mode $"\ + -re "child.*parent.*$gdb_prompt set follow-fork-mode $"\ { send_gdb "\n" gdb_expect { - -re "Requires an argument.*ask.*child.*parent.*$gdb_prompt $"\ + -re "Requires an argument.*child.*parent.*$gdb_prompt $"\ { pass "complete 'set follow-fork-mode'"} -re "Ambiguous item \"\"\\..*$gdb_prompt $"\ { pass "complete 'set follow-fork-mode'"} @@ -745,6 +805,24 @@ gdb_expect { timeout { fail "(timeout) complete 'set follow-fork-mode'" } } +send_gdb "p values\[0\].nonex.\t" +gdb_expect { + -re "Type struct some_struct has no component named nonex.\r\n$gdb_prompt $"\ + { pass "Completing non-existing component" } + -re ".*$gdb_prompt $" { fail "Completing non-existing component" } + timeout { fail "(timeout) Completing non-existing component" } + eof { fail "(eof) Completing non-existing component #2" } + } +# Double memory freeing gets found only on the second run: +send_gdb "p values\[0\].nonex.\t" +gdb_expect { + -re "Type struct some_struct has no component named nonex.\r\n$gdb_prompt $"\ + { pass "Completing non-existing component #2" } + -re ".*$gdb_prompt $" { fail "Completing non-existing component #2" } + timeout { fail "(timeout) Completing non-existing component #2" } + eof { fail "(eof) Completing non-existing component #2" } + } + # Restore globals modified in this test... if [info exists old_inputrc] { set env(INPUTRC) $old_inputrc