[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.base / completion.exp

# Copyright 1998, 1999 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
# (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

# This file was written by Elena Zannoni (ezannoni@cygnus.com)

# This file is part of the gdb testsuite.

#
# tests for command completion
#
# Here are some useful test cases for completion.  
# They should be tested with both M-? and TAB.
#
#   "show output-" "radix"
#   "show output" "-radix"
#   "p" ambiguous (commands starting with p--path, print, printf, etc.)
#   "p "  ambiguous (all symbols)
#   "info t foo" no completions
#   "info t " no completions
#   "info t" ambiguous ("info target", "info terminal", etc.)
#   "info ajksdlfk" no completions
#   "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,
#	due to readline limitations)
#   "p 'a" ambiguous (all symbols starting with a)
#   "p b-a" ambiguous (all symbols starting with a)
#   "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)
#


if $tracelevel then {
        strace $tracelevel
        }


global usestubs

#
# test running programs
#
set prms_id 0
set bug_id 0

set testfile "break"
set srcfile ${testfile}.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 [get_compiler_info ${binfile}] {
    return -1;
}

gdb_exit

# Don't let a .inputrc file or an existing setting of INPUTRC mess up
# the test results.  Even if /dev/null doesn't exist on the particular
# platform, the readline library will use the default setting just by
# failing to open the file.  OTOH, opening /dev/null successfully will
# also result in the default settings being used since nothing will be
# read from this file.
global env
if [info exists env(INPUTRC)] {
    set old_inputrc $env(INPUTRC)
}
set env(INPUTRC) "/dev/null"

gdb_start
gdb_reinitialize_dir $srcdir/$subdir
gdb_load ${binfile}

if ![runto_main] then {
        perror "tests suppressed"
}

set oldtimeout1 $timeout
set timeout 30


send_gdb "hfgfh\t"
sleep 1
gdb_expect  {
        -re "^hfgfh\\\x07$"\
            { send_gdb "\n"
              gdb_expect {
                      -re "Undefined command: \"hfgfh\"\\.  Try \"help\"\\..*$gdb_prompt $"\
                                        { pass "complete 'hfgfh'"}
                      -re ".*$gdb_prompt $" { fail "complete 'hfgfh'"}
                      timeout           {fail "(timeout) complete 'hfgfh'"}
                     }
            }
        -re ".*$gdb_prompt $"       { fail "complete 'hfgfh'" }
        timeout         { fail "(timeout) complete 'hfgfh'" }
        }

#exp_internal 0

send_gdb "show output\t"
sleep 1
gdb_expect  {
        -re "^show output-radix $"\
            { send_gdb "\n"
              gdb_expect {
                      -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
                                        { pass "complete 'show output'"}
                      -re ".*$gdb_prompt $" { fail "complete 'show output'"}
                      timeout           {fail "(timeout) complete 'show output'"}
                     }
            }
        -re "^show output$"\
            { send_gdb "\n"
               gdb_expect {
                      -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
                                        { fail "complete 'show output'"}
                      -re ".*$gdb_prompt $" { fail "complete 'show output'"}
                      timeout           { fail "(timeout) complete 'show output'"}
                     }

             }

        -re ".*$gdb_prompt $"       { fail "complete 'show output'" }
        timeout         { fail "(timeout) complete 'show output'" }
        }


send_gdb "show output-\t"
sleep 1
gdb_expect  {
        -re "^show output-radix $"\
            { send_gdb "\n"
              gdb_expect {
                      -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
                                        { pass "complete 'show output-'"}
                      -re ".*$gdb_prompt $" { fail "complete 'show output-'"}
                      timeout           {fail "(timeout) complete 'show output-'"}
                     }
            }
        -re "^show output-$"\
            { send_gdb "\n"
               gdb_expect {
                      -re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
                                        { fail "complete 'show output-'"}
                      -re ".*$gdb_prompt $" { fail "complete 'show output-'"}
                      timeout           { fail "(timeout) complete 'show output-'"}
                     }

             }

        -re ".*$gdb_prompt $"       { fail "complete 'show output-'" }
        timeout         { fail "(timeout) complete 'show output-'" }
        }

send_gdb "p\t"
sleep 1
gdb_expect  {
        -re "^p\\\x07$"\
            { send_gdb "\n"
	      sleep 1
              gdb_expect {
                      -re "The history is empty\\..*$gdb_prompt $"\
                                        { pass "complete 'p'"}
                      -re ".*$gdb_prompt $" { fail "complete 'p'"}
                      timeout           {fail "(timeout) complete 'p' 2"}
                     }
            }
        -re ".*$gdb_prompt $"       { fail "complete 'p'" }
        timeout         { fail "(timeout) complete 'p' 1" }
        }

send_gdb "p \t"
sleep 3
gdb_expect  {
        -re "^p \\\x07$"\
            { send_gdb "\n"
	      sleep 1
              gdb_expect {
                      -re "The history is empty\\..*$gdb_prompt $"\
                                        { pass "complete 'p '"}
                      -re ".*$gdb_prompt $" { fail "complete 'p '"}
                      timeout           {fail "(timeout) complete 'p ' 1"}
                     }
            }
        -re ".*$gdb_prompt $"       { fail "complete 'p '" }
        timeout         { fail "(timeout) complete 'p ' 2" }
        }


send_gdb "info t foo\t"
sleep 1
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 $"\
                                        { pass "complete 'info t foo'"}
                      -re ".*$gdb_prompt $" { fail "complete 'info t foo'"}
                      timeout           {fail "(timeout) complete 'info t foo'"}
                     }
            }
        -re ".*$gdb_prompt $"       { fail "complete 'info t foo'" }
        timeout         { fail "(timeout) complete 'info t foo'" }
        }

send_gdb "info t\t"
sleep 1
gdb_expect  {
        -re "^info t\\\x07$"\
            { send_gdb "\n"
              gdb_expect {
                      -re "Ambiguous info command \"t\": target, terminal, threads, tp, tracepoints, types\\..
*$gdb_prompt $"\
                                        { pass "complete 'info t'"}
                      -re ".*$gdb_prompt $" { fail "complete 'info t'"}
                      timeout           {fail "(timeout) complete 'info t'"}
                     }
            }
        -re ".*$gdb_prompt $"       { fail "complete 'info t'" }
        timeout         { fail "(timeout) complete 'info t'" }
        }


send_gdb "info t \t"
sleep 1
gdb_expect  {
        -re "^info t \\\x07$"\
            { send_gdb "\n"
              gdb_expect {
                      -re "Ambiguous info command \"t \": target, terminal, threads, tp, tracepoints, types\\..
*$gdb_prompt $"\
                                        { pass "complete 'info t '"}
                      -re ".*$gdb_prompt $" { fail "complete 'info t '"}
                      timeout           {fail "(timeout) complete 'info t '"}
                     }
            }
        -re ".*$gdb_prompt $"       { fail "complete 'info t '" }
        timeout         { fail "(timeout) complete 'info t '" }
        }


send_gdb "info asdfgh\t"
sleep 1
gdb_expect  {
        -re "^info asdfgh\\\x07$"\
            { send_gdb "\n"
              gdb_expect {
                      -re "Undefined info command: \"asdfgh\".  Try \"help info\"\\..
*$gdb_prompt $"\
                                        { pass "complete 'info asdfgh'"}
                      -re ".*$gdb_prompt $" { fail "complete 'info asdfgh'"}
                      timeout           {fail "(timeout) complete 'info asdfgh'"}
                     }
            }
        -re ".*$gdb_prompt $"       { fail "complete 'info asdfgh'" }
        timeout         { fail "(timeout) complete 'info asdfgh'" }
        }


send_gdb "info asdfgh \t"
sleep 1
gdb_expect  {
        -re "^info asdfgh \\\x07$"\
            { send_gdb "\n"
              gdb_expect {
                      -re "Undefined info command: \"asdfgh \".  Try \"help info\"\\..
*$gdb_prompt $"\
                                        { pass "complete 'info asdfgh '"}
                      -re ".*$gdb_prompt $" { fail "complete 'info asdfgh '"}
                      timeout           {fail "(timeout) complete 'info asdfgh '"}
                     }
            }
        -re ".*$gdb_prompt $"       { fail "complete 'info asdfgh '" }
        timeout         { fail "(timeout) complete 'info asdfgh '" }
        }

send_gdb "info\t"
sleep 1
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 $"\
                                        { pass "complete 'info'"}
                      -re ".*$gdb_prompt $" { fail "complete 'info'"}
                      timeout           {fail "(timeout) complete 'info'"}
                     }
            }
        -re ".*$gdb_prompt $"       { fail "complete 'info'" }
        timeout         { fail "(timeout) complete 'info'" }
        }

send_gdb "info \t"
sleep 1
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 $"\
                                        { pass "complete 'info '"}
                      -re ".*$gdb_prompt $" { fail "complete 'info '"}
                      timeout           {fail "(timeout) complete 'info '"}
                     }
            }
        -re ".*$gdb_prompt $"       { fail "complete 'info '" }
        timeout         { fail "(timeout) complete 'info '" }
        }


send_gdb "info \t"
sleep 1
gdb_expect  {
        -re "^info \\\x07$"\
            { send_gdb "\t"
              gdb_expect {
                      -re "address.*types.*$gdb_prompt info $"\
                          { send_gdb "\n"
                            gdb_expect {
                                     -re "\"info\".*unambiguous\\..*$gdb_prompt $"\
                                        { pass "complete (2) 'info '"}
                                     -re ".*$gdb_prompt $" { fail "complete (2) 'info '"}
                                     timeout           {fail "(timeout) complete (2) 'info '"}
                                    }
                           }
                      -re ".*$gdb_prompt $" { fail "complete (2) 'info '"}
                      timeout           {fail "(timeout) complete (2) 'info '"}
                     }
            }
        -re ".*$gdb_prompt $"       { fail "complete (2) 'info '" }
        timeout         { fail "(timeout) complete (2) 'info '" }
        }


send_gdb "p \"break\t"
sleep 1
gdb_expect  {
        -re "^p \"break\\\x07$"\
            { send_gdb "\n"
              gdb_expect {
                      -re ".*$gdb_prompt $" { fail "complete 'p \"break'"}
                      timeout           {fail "(timeout) complete 'p \"break'"}
                     }
            }
	-re "^p \"break\\.c\"$"\
	    {	send_gdb "\n"
		gdb_expect {
		    -re ".*$gdb_prompt $" { pass "complete 'p \"break'"}
		    timeout           {fail "(timeout) complete 'p \"break'"}
		}
	    }
	-re "^p \"break.*$"
	    {	send_gdb "\n"
		gdb_expect {
		    -re ".*$gdb_prompt $" { fail "complete 'p \"break'"}
		    timeout           {fail "(timeout) complete 'p \"break'"}
		}
	    }
        -re ".*$gdb_prompt $"       { fail "complete 'p \"break'" }
        timeout         { fail "(timeout) complete 'p \"break'" }
        }

setup_xfail "*-*-*"
send_gdb "p \"break.\t"
sleep 1
gdb_expect  {
        -re "^p \"break\\.\\\x07$"\
            { send_gdb "\n"
              gdb_expect {
                      -re ".*$gdb_prompt $" { fail "complete 'p \"break.'"}
                      timeout           {fail "(timeout) complete 'p \"break.'"}
                     }
            }
	-re "^p \"break\\.c\"$"\
	    {	send_gdb "\n"
		gdb_expect {
		    -re ".*$gdb_prompt $" { pass "complete 'p \"break.'"}
		    timeout           {fail "(timeout) complete 'p \"break.'"}
		}
	    }
	-re "^p \"break\\..*$"
	    {	send_gdb "\n"
		gdb_expect {
		    -re ".*$gdb_prompt $" { fail "complete 'p \"break.'"}
		    timeout           {fail "(timeout) complete 'p \"break.'"}
		}
	    }
        -re ".*$gdb_prompt $"       { fail "complete 'p \"break.'" }
        timeout         { fail "(timeout) complete 'p \"break.'" }
        }

send_gdb "p 'a\t"
sleep 1
gdb_expect  {
        -re "^p 'a\\\x07$"\
            { send_gdb "\n"
              gdb_expect {
                      -re "Invalid character constant\\..*$gdb_prompt $"\
                                        { pass "complete 'p \'a'"}
                      -re ".*$gdb_prompt $" { fail "complete 'p \'a'"}
                      timeout           {fail "(timeout) complete 'p \'a'"}
                     }
            }
        -re ".*$gdb_prompt $"       { fail "complete 'p \'a'" }
        timeout         { fail "(timeout) complete 'p \'a'" }
        }

send_gdb "p 'a\t"
sleep 1
gdb_expect {
    -re "^p 'a\\\x07$" {
	send_gdb "\t"
	gdb_expect {
	    -re ".*argv.*$gdb_prompt p .a$" {
		send_gdb "\n"
		gdb_expect {
		    -re "Invalid character constant\\..*$gdb_prompt $" {
			pass "complete (2) 'p \'a'"
		    }
		    -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
		    timeout { fail "(timeout) complete (2) 'p \'a'" }
		}
	    }
	    -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$" {
			send_gdb "\n"
			gdb_expect {
			    -re "Invalid character constant\\..*$gdb_prompt $" {
				pass "complete (2) 'p \'a'"
			    }
			    -re ".*$gdb_prompt $" { 
				fail "complete (2) 'p \'a'"
			    }
			    timeout { fail "(timeout) complete (2) 'p \'a'" }
			}
		    }
		    -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
		    timeout { fail "(timeout) complete (2) 'p \'a'" }
		}
	    }
	    -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
	    timeout { fail "(timeout) complete (2) 'p \'a'" }
	}
    }
    -re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
    timeout { fail "(timeout) complete (2) 'p \'a'" }
}


send_gdb "p b-a\t"
sleep 1
gdb_expect  {
        -re "^p b-a\\\x07$"\
            { send_gdb "\n"
              gdb_expect {
                      -re "No symbol \"b\" in current context\\..*$gdb_prompt $"\
                                        { pass "complete 'p b-a'"}
                      -re ".*$gdb_prompt $" { fail "complete 'p b-a'"}
                      timeout           {fail "(timeout) complete 'p b-a'"}
                     }
            }
        -re ".*$gdb_prompt $"       { fail "complete 'p b-a'" }
        timeout         { fail "(timeout) complete 'p b-a'" }
        }

send_gdb "p b-a\t"
sleep 1
gdb_expect {
    -re "^p b-a\\\x07$" {
	send_gdb "\t"
	gdb_expect {
	    -re ".*argv.*$gdb_prompt p b-a$" {
		send_gdb "\n"
		gdb_expect {
		    -re "No symbol \"b\" in current context\\..*$gdb_prompt $" {
			pass "complete (2) 'p b-a'"
		    }
		    -re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
		    timeout { fail "(timeout) complete (2) 'p b-a'" }
		}
	    }
	    -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 b-a$" {
			send_gdb "\n"
			gdb_expect {
			    -re "No symbol \"b\" in current context\\..*$gdb_prompt $" {
				pass "complete (2) 'p b-a'"
			    }
			    -re ".*$gdb_prompt $" {
				fail "complete (2) 'p b-a'"
			    }
			    timeout { fail "(timeout) complete (2) 'p b-a'" }
			}
		    }
		    -re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
		    timeout { fail "(timeout) complete (2) 'p b-a'" }
		}
	    }
	    -re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
	    timeout { fail "(timeout) complete (2) 'p b-a'" }
        }
    }
    -re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
    timeout { fail "(timeout) complete (2) 'p b-a'" }
}

send_gdb "p b-\t"
sleep 1
gdb_expect  {
    -re "^p b-\\\x07$" {
	send_gdb "\t"
	gdb_expect {
	    -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 b-$" {
			send_gdb "\n"
			gdb_expect {
			    -re "No symbol \"b\" in current context\\..*$gdb_prompt $" {
				pass "complete (2) 'p b-'"
			    }
			    -re ".*$gdb_prompt $" {
				fail "complete (2) 'p b-'"
			    }
			    timeout { fail "(timeout) complete (2) 'p b-'" }
			}
		    }
		    -re ".*$gdb_prompt $" { fail "complete (2) 'p b-'" }
		    timeout { fail "(timeout) complete (2) 'p b-'" }
		}
	    }
	    -re ".*$gdb_prompt $" { fail "complete (2) 'p b-'" }
	    timeout { fail "(timeout) complete (2) 'p b-'" }
	}
    }
    -re ".*$gdb_prompt $" { fail "complete (2) 'p b-'" }
    timeout { fail "(timeout) complete (2) 'p b-'" }
}

send_gdb "file ${objdir}/Make\t"
sleep 1
gdb_expect  {
        -re "file ${objdir}/Makefile.*$"\
            { 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'" }
        }


send_gdb "file ${srcdir}/gdb.base/compl\t"
sleep 1
gdb_expect  {
        -re "^file ${srcdir}/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'"}
                     }
            }
        -re ".*$gdb_prompt $"       { fail "complete 'file gdb.base/compl'" }
        timeout         { fail "(timeout) complete 'file gdb.base/compl'" }
        }

send_gdb "info func mark\t"
sleep 1
gdb_expect  {
        -re "^info func mark.*er$"\
            {
	      send_gdb "\t\t"
              sleep 3
              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\\(\\);\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 ".*$gdb_prompt $" { fail "complete 'info func mar'"}
                      timeout           {fail "(timeout) complete 'info func mar'"}
                     }
            }
        -re ".*$gdb_prompt $"       { fail "complete 'info func mar'" }
        timeout         { fail "(timeout) complete 'info func mar'" }
        }


send_gdb "set follow-fork-mode \t\t"
sleep 1
gdb_expect  {
        -re "ask.*child.*parent.*$gdb_prompt set follow-fork-mode $"\
            { send_gdb "\n"
              gdb_expect {
                      -re "Requires an argument.*ask.*child.*parent.*$gdb_prompt $"\
                                        { pass "complete 'set follow-fork-mode'"}
                      -re "Ambiguous item \"\"\\..*$gdb_prompt $"\
                                        { pass "complete 'set follow-fork-mode'"}
                      -re ".*$gdb_prompt $" { fail "complete 'set follow-fork-mode'"}
                      timeout           {fail "(timeout) complete 'set follow-fork-mode'"}
                     }
            }
        -re ".*$gdb_prompt $"       { fail "complete 'set follow-fork-mode'" }
        timeout         { fail "(timeout) complete 'set follow-fork-mode'" }
        }

# Restore globals modified in this test...
if [info exists old_inputrc] {
    set env(INPUTRC) $old_inputrc
} else {
    unset env(INPUTRC)
}
set timeout $oldtimeout1

return 0
Commit	Line	Data
b6ba6518	1	# Copyright 1998, 1999 Free Software Foundation, Inc.
c906108c SS	2
	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.
	7	#
	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.
	12	#
	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.
	16
	17	# Please email any bugs, comments, and/or additions to this file to:
	18	# bug-gdb@prep.ai.mit.edu
	19
	20	# This file was written by Elena Zannoni (ezannoni@cygnus.com)
	21
	22	# This file is part of the gdb testsuite.
	23
	24	#
	25	# tests for command completion
	26	#
	27	# Here are some useful test cases for completion.
	28	# They should be tested with both M-? and TAB.
	29	#
	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
	39	# "info" " "
	40	# "info " ambiguous (all info commands)
9b284272 DJ	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)
c906108c SS	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)
	49	#
	50
	51
	52	if $tracelevel then {
	53	strace $tracelevel
	54	}
	55
	56
c906108c SS	57	global usestubs
	58
	59	#
	60	# test running programs
	61	#
	62	set prms_id 0
	63	set bug_id 0
	64
	65	set testfile "break"
	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."
	70	}
	71
085dd6e6 JM	72	if [get_compiler_info ${binfile}] {
	73	return -1;
	74	}
	75
c906108c	76	gdb_exit
5ea2a32c KB	77
	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.
	84	global env
	85	if [info exists env(INPUTRC)] {
	86	set old_inputrc $env(INPUTRC)
	87	}
	88	set env(INPUTRC) "/dev/null"
	89
c906108c SS	90	gdb_start
	91	gdb_reinitialize_dir $srcdir/$subdir
	92	gdb_load ${binfile}
	93
	94	if ![runto_main] then {
	95	perror "tests suppressed"
	96	}
	97
	98	set oldtimeout1 $timeout
085dd6e6	99	set timeout 30
c906108c SS	100
	101
	102	send_gdb "hfgfh\t"
	103	sleep 1
	104	gdb_expect {
	105	-re "^hfgfh\\\x07$"\
	106	{ send_gdb "\n"
	107	gdb_expect {
	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'"}
	112	}
	113	}
	114	-re ".*$gdb_prompt $" { fail "complete 'hfgfh'" }
	115	timeout { fail "(timeout) complete 'hfgfh'" }
	116	}
	117
	118	#exp_internal 0
	119
	120	send_gdb "show output\t"
	121	sleep 1
	122	gdb_expect {
	123	-re "^show output-radix $"\
	124	{ send_gdb "\n"
	125	gdb_expect {
	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'"}
	130	}
	131	}
	132	-re "^show output$"\
	133	{ send_gdb "\n"
	134	gdb_expect {
	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'"}
	139	}
	140
	141	}
	142
	143	-re ".*$gdb_prompt $" { fail "complete 'show output'" }
	144	timeout { fail "(timeout) complete 'show output'" }
	145	}
	146
	147
	148	send_gdb "show output-\t"
	149	sleep 1
	150	gdb_expect {
	151	-re "^show output-radix $"\
	152	{ send_gdb "\n"
	153	gdb_expect {
	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-'"}
	158	}
	159	}
	160	-re "^show output-$"\
	161	{ send_gdb "\n"
	162	gdb_expect {
	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-'"}
167	}
168
169	}
170
171	-re ".*$gdb_prompt $" { fail "complete 'show output-'" }
172	timeout { fail "(timeout) complete 'show output-'" }
173	}
174
175	send_gdb "p\t"
176	sleep 1
177	gdb_expect {
178	-re "^p\\\x07$"\
179	{ send_gdb "\n"
085dd6e6	180	sleep 1
c906108c SS	181	gdb_expect {
	182	-re "The history is empty\\..*$gdb_prompt $"\
	183	{ pass "complete 'p'"}
	184	-re ".*$gdb_prompt $" { fail "complete 'p'"}
085dd6e6	185	timeout {fail "(timeout) complete 'p' 2"}
c906108c SS	186	}
	187	}
	188	-re ".*$gdb_prompt $" { fail "complete 'p'" }
085dd6e6	189	timeout { fail "(timeout) complete 'p' 1" }
c906108c SS	190	}
	191
	192	send_gdb "p \t"
085dd6e6	193	sleep 3
c906108c SS	194	gdb_expect {
	195	-re "^p \\\x07$"\
	196	{ send_gdb "\n"
085dd6e6	197	sleep 1
c906108c SS	198	gdb_expect {
	199	-re "The history is empty\\..*$gdb_prompt $"\
	200	{ pass "complete 'p '"}
	201	-re ".*$gdb_prompt $" { fail "complete 'p '"}
085dd6e6	202	timeout {fail "(timeout) complete 'p ' 1"}
c906108c SS	203	}
	204	}
	205	-re ".*$gdb_prompt $" { fail "complete 'p '" }
085dd6e6	206	timeout { fail "(timeout) complete 'p ' 2" }
c906108c SS	207	}
	208
	209
	210	send_gdb "info t foo\t"
	211	sleep 1
	212	gdb_expect {
	213	-re "^info t foo\\\x07$"\
	214	{ send_gdb "\n"
	215	gdb_expect {
	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'"}
	220	}
	221	}
	222	-re ".*$gdb_prompt $" { fail "complete 'info t foo'" }
	223	timeout { fail "(timeout) complete 'info t foo'" }
	224	}
	225
	226	send_gdb "info t\t"
	227	sleep 1
	228	gdb_expect {
	229	-re "^info t\\\x07$"\
	230	{ send_gdb "\n"
	231	gdb_expect {
	232	-re "Ambiguous info command \"t\": target, terminal, threads, tp, tracepoints, types\\..
	233	*$gdb_prompt $"\
	234	{ pass "complete 'info t'"}
	235	-re ".*$gdb_prompt $" { fail "complete 'info t'"}
	236	timeout {fail "(timeout) complete 'info t'"}
	237	}
	238	}
	239	-re ".*$gdb_prompt $" { fail "complete 'info t'" }
	240	timeout { fail "(timeout) complete 'info t'" }
	241	}
	242
	243
	244	send_gdb "info t \t"
	245	sleep 1
	246	gdb_expect {
	247	-re "^info t \\\x07$"\
	248	{ send_gdb "\n"
	249	gdb_expect {
	250	-re "Ambiguous info command \"t \": target, terminal, threads, tp, tracepoints, types\\..
	251	*$gdb_prompt $"\
	252	{ pass "complete 'info t '"}
	253	-re ".*$gdb_prompt $" { fail "complete 'info t '"}
	254	timeout {fail "(timeout) complete 'info t '"}
	255	}
	256	}
	257	-re ".*$gdb_prompt $" { fail "complete 'info t '" }
	258	timeout { fail "(timeout) complete 'info t '" }
	259	}
	260
	261
	262	send_gdb "info asdfgh\t"
	263	sleep 1
	264	gdb_expect {
	265	-re "^info asdfgh\\\x07$"\
	266	{ send_gdb "\n"
	267	gdb_expect {
	268	-re "Undefined info command: \"asdfgh\". Try \"help info\"\\..
	269	*$gdb_prompt $"\
	270	{ pass "complete 'info asdfgh'"}
271	-re ".*$gdb_prompt $" { fail "complete 'info asdfgh'"}
272	timeout {fail "(timeout) complete 'info asdfgh'"}
273	}
274	}
275	-re ".*$gdb_prompt $" { fail "complete 'info asdfgh'" }
276	timeout { fail "(timeout) complete 'info asdfgh'" }
277	}
278
279
280	send_gdb "info asdfgh \t"
281	sleep 1
282	gdb_expect {
283	-re "^info asdfgh \\\x07$"\
284	{ send_gdb "\n"
285	gdb_expect {
286	-re "Undefined info command: \"asdfgh \". Try \"help info\"\\..
287	*$gdb_prompt $"\
288	{ pass "complete 'info asdfgh '"}
289	-re ".*$gdb_prompt $" { fail "complete 'info asdfgh '"}
290	timeout {fail "(timeout) complete 'info asdfgh '"}
291	}
292	}
293	-re ".*$gdb_prompt $" { fail "complete 'info asdfgh '" }
294	timeout { fail "(timeout) complete 'info asdfgh '" }
295	}
296
297	send_gdb "info\t"
298	sleep 1
299	gdb_expect {
300	-re "^info $"\
301	{ send_gdb "\n"
302	gdb_expect {
085dd6e6	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 $"\
c906108c SS	304	{ pass "complete 'info'"}
	305	-re ".*$gdb_prompt $" { fail "complete 'info'"}
	306	timeout {fail "(timeout) complete 'info'"}
	307	}
	308	}
	309	-re ".*$gdb_prompt $" { fail "complete 'info'" }
	310	timeout { fail "(timeout) complete 'info'" }
	311	}
	312
	313	send_gdb "info \t"
	314	sleep 1
	315	gdb_expect {
	316	-re "^info \\\x07$"\
	317	{ send_gdb "\n"
	318	gdb_expect {
085dd6e6	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 $"\
c906108c SS	320	{ pass "complete 'info '"}
	321	-re ".*$gdb_prompt $" { fail "complete 'info '"}
	322	timeout {fail "(timeout) complete 'info '"}
	323	}
	324	}
	325	-re ".*$gdb_prompt $" { fail "complete 'info '" }
	326	timeout { fail "(timeout) complete 'info '" }
	327	}
	328
	329
	330	send_gdb "info \t"
	331	sleep 1
	332	gdb_expect {
085dd6e6	333	-re "^info \\\x07$"\
c906108c SS	334	{ send_gdb "\t"
	335	gdb_expect {
	336	-re "address.types.$gdb_prompt info $"\
	337	{ send_gdb "\n"
	338	gdb_expect {
	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 '"}
	343	}
	344	}
	345	-re ".*$gdb_prompt $" { fail "complete (2) 'info '"}
	346	timeout {fail "(timeout) complete (2) 'info '"}
	347	}
	348	}
	349	-re ".*$gdb_prompt $" { fail "complete (2) 'info '" }
	350	timeout { fail "(timeout) complete (2) 'info '" }
	351	}
	352
	353
9b284272	354	send_gdb "p \"break\t"
c906108c SS	355	sleep 1
c906108c SS	356	gdb_expect {
9b284272	357	-re "^p \"break\\\x07$"\
c906108c SS	358	{ send_gdb "\n"
c906108c SS	359	gdb_expect {
9b284272 DJ	360	-re ".*$gdb_prompt $" { fail "complete 'p \"break'"}
9b284272 DJ	361	timeout {fail "(timeout) complete 'p \"break'"}
c906108c SS	362	}
c906108c SS	363	}
9b284272 DJ	364	-re "^p \"break\\.c\"$"\
	365	{ send_gdb "\n"
	366	gdb_expect {
	367	-re ".*$gdb_prompt $" { pass "complete 'p \"break'"}
	368	timeout {fail "(timeout) complete 'p \"break'"}
	369	}
	370	}
	371	-re "^p \"break.*$"
	372	{ send_gdb "\n"
	373	gdb_expect {
	374	-re ".*$gdb_prompt $" { fail "complete 'p \"break'"}
	375	timeout {fail "(timeout) complete 'p \"break'"}
	376	}
	377	}
	378	-re ".*$gdb_prompt $" { fail "complete 'p \"break'" }
	379	timeout { fail "(timeout) complete 'p \"break'" }
	380	}
	381
	382	setup_xfail "--*"
	383	send_gdb "p \"break.\t"
	384	sleep 1
	385	gdb_expect {
	386	-re "^p \"break\\.\\\x07$"\
	387	{ send_gdb "\n"
	388	gdb_expect {
	389	-re ".*$gdb_prompt $" { fail "complete 'p \"break.'"}
	390	timeout {fail "(timeout) complete 'p \"break.'"}
	391	}
	392	}
	393	-re "^p \"break\\.c\"$"\
	394	{ send_gdb "\n"
	395	gdb_expect {
	396	-re ".*$gdb_prompt $" { pass "complete 'p \"break.'"}
	397	timeout {fail "(timeout) complete 'p \"break.'"}
	398	}
	399	}
	400	-re "^p \"break\\..*$"
	401	{ send_gdb "\n"
	402	gdb_expect {
	403	-re ".*$gdb_prompt $" { fail "complete 'p \"break.'"}
	404	timeout {fail "(timeout) complete 'p \"break.'"}
	405	}
	406	}
	407	-re ".*$gdb_prompt $" { fail "complete 'p \"break.'" }
	408	timeout { fail "(timeout) complete 'p \"break.'" }
c906108c SS	409	}
	410
	411	send_gdb "p 'a\t"
	412	sleep 1
	413	gdb_expect {
	414	-re "^p 'a\\\x07$"\
	415	{ send_gdb "\n"
	416	gdb_expect {
	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'"}
	421	}
	422	}
	423	-re ".*$gdb_prompt $" { fail "complete 'p \'a'" }
	424	timeout { fail "(timeout) complete 'p \'a'" }
	425	}
	426
	427	send_gdb "p 'a\t"
	428	sleep 1
085dd6e6 JM	429	gdb_expect {
	430	-re "^p 'a\\\x07$" {
	431	send_gdb "\t"
	432	gdb_expect {
0521c418	433	-re ".argv.$gdb_prompt p .a$" {
085dd6e6 JM	434	send_gdb "\n"
	435	gdb_expect {
	436	-re "Invalid character constant\\..*$gdb_prompt $" {
	437	pass "complete (2) 'p \'a'"
	438	}
	439	-re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
	440	timeout { fail "(timeout) complete (2) 'p \'a'" }
	441	}
	442	}
	443	-re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.\|Display all $decimal possibilities.) \\(y or n\\)$" {
	444	send_gdb "n"
	445	gdb_expect {
	446	-re "\\(gdb\\) p 'a$" {
	447	send_gdb "\n"
	448	gdb_expect {
	449	-re "Invalid character constant\\..*$gdb_prompt $" {
	450	pass "complete (2) 'p \'a'"
	451	}
	452	-re ".*$gdb_prompt $" {
	453	fail "complete (2) 'p \'a'"
	454	}
	455	timeout { fail "(timeout) complete (2) 'p \'a'" }
	456	}
	457	}
	458	-re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
	459	timeout { fail "(timeout) complete (2) 'p \'a'" }
	460	}
	461	}
	462	-re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
	463	timeout { fail "(timeout) complete (2) 'p \'a'" }
	464	}
	465	}
	466	-re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
	467	timeout { fail "(timeout) complete (2) 'p \'a'" }
	468	}
c906108c SS	469
	470
	471	send_gdb "p b-a\t"
	472	sleep 1
	473	gdb_expect {
	474	-re "^p b-a\\\x07$"\
	475	{ send_gdb "\n"
	476	gdb_expect {
	477	-re "No symbol \"b\" in current context\\..*$gdb_prompt $"\
	478	{ pass "complete 'p b-a'"}
	479	-re ".*$gdb_prompt $" { fail "complete 'p b-a'"}
	480	timeout {fail "(timeout) complete 'p b-a'"}
	481	}
	482	}
	483	-re ".*$gdb_prompt $" { fail "complete 'p b-a'" }
	484	timeout { fail "(timeout) complete 'p b-a'" }
	485	}
	486
	487	send_gdb "p b-a\t"
	488	sleep 1
085dd6e6 JM	489	gdb_expect {
	490	-re "^p b-a\\\x07$" {
	491	send_gdb "\t"
	492	gdb_expect {
0521c418	493	-re ".argv.$gdb_prompt p b-a$" {
085dd6e6 JM	494	send_gdb "\n"
	495	gdb_expect {
	496	-re "No symbol \"b\" in current context\\..*$gdb_prompt $" {
	497	pass "complete (2) 'p b-a'"
	498	}
	499	-re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
	500	timeout { fail "(timeout) complete (2) 'p b-a'" }
	501	}
	502	}
	503	-re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.\|Display all $decimal possibilities.) \\(y or n\\)$" {
	504	send_gdb "n"
	505	gdb_expect {
	506	-re "\\(gdb\\) p b-a$" {
	507	send_gdb "\n"
	508	gdb_expect {
	509	-re "No symbol \"b\" in current context\\..*$gdb_prompt $" {
	510	pass "complete (2) 'p b-a'"
	511	}
	512	-re ".*$gdb_prompt $" {
	513	fail "complete (2) 'p b-a'"
	514	}
	515	timeout { fail "(timeout) complete (2) 'p b-a'" }
	516	}
	517	}
	518	-re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
	519	timeout { fail "(timeout) complete (2) 'p b-a'" }
	520	}
	521	}
	522	-re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
	523	timeout { fail "(timeout) complete (2) 'p b-a'" }
c906108c	524	}
085dd6e6 JM	525	}
	526	-re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
	527	timeout { fail "(timeout) complete (2) 'p b-a'" }
	528	}
c906108c SS	529
	530	send_gdb "p b-\t"
	531	sleep 1
	532	gdb_expect {
085dd6e6 JM	533	-re "^p b-\\\x07$" {
	534	send_gdb "\t"
	535	gdb_expect {
	536	-re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.\|Display all $decimal possibilities.) \\(y or n\\)$" {
	537	send_gdb "n"
	538	gdb_expect {
	539	-re "\\(gdb\\) p b-$" {
	540	send_gdb "\n"
	541	gdb_expect {
	542	-re "No symbol \"b\" in current context\\..*$gdb_prompt $" {
	543	pass "complete (2) 'p b-'"
	544	}
	545	-re ".*$gdb_prompt $" {
	546	fail "complete (2) 'p b-'"
	547	}
	548	timeout { fail "(timeout) complete (2) 'p b-'" }
	549	}
	550	}
	551	-re ".*$gdb_prompt $" { fail "complete (2) 'p b-'" }
	552	timeout { fail "(timeout) complete (2) 'p b-'" }
	553	}
	554	}
	555	-re ".*$gdb_prompt $" { fail "complete (2) 'p b-'" }
	556	timeout { fail "(timeout) complete (2) 'p b-'" }
	557	}
	558	}
	559	-re ".*$gdb_prompt $" { fail "complete (2) 'p b-'" }
	560	timeout { fail "(timeout) complete (2) 'p b-'" }
	561	}
c906108c SS	562
	563	send_gdb "file ${objdir}/Make\t"
	564	sleep 1
	565	gdb_expect {
	566	-re "file ${objdir}/Makefile.*$"\
	567	{ send_gdb "\n"
	568	gdb_expect {
	569	-re "\r\nA program is being debugged already\\. Kill it\\? \\(y or n\\) $"\
	570	{ send_gdb "n\n"
	571	gdb_expect {
	572	-re "\r\nProgram not killed\\.\r\n$gdb_prompt $"\
	573	{ pass "complete 'file Make'"}
	574	-re ".*$gdb_prompt $" { fail "complete 'file Make'"}
	575	timeout {fail "(timeout) complete 'file Make'"}
	576	}
	577	}
	578	-re ".*$gdb_prompt $" { fail "complete 'file Make'"}
	579	timeout {fail "(timeout) complete 'file Make'"}
	580	}
	581	}
	582	-re ".*$gdb_prompt $" { fail "complete 'file Make'" }
	583	timeout { fail "(timeout) complete 'file Make'" }
	584	}
	585
	586
a602d56b	587	send_gdb "file ${srcdir}/gdb.base/compl\t"
c906108c SS	588	sleep 1
c906108c SS	589	gdb_expect {
a602d56b	590	-re "^file ${srcdir}/gdb.base/completion\\.exp $"\
c906108c SS	591	{ send_gdb "\n"
	592	gdb_expect {
	593	-re "\r\nA program is being debugged already\\. Kill it\\? \\(y or n\\) $"
	594	\
	595	{ send_gdb "n\n"
	596	gdb_expect {
	597	-re "\r\nProgram not killed\\.\r\n$gdb_prompt $"\
a602d56b EZ	598	{ pass "complete 'file gdb.base/compl'"}
	599	-re ".*$gdb_prompt $" { fail "complete 'file gdb.base/compl'"}
	600	timeout {fail "(timeout) complete 'file gdb.base/compl'"}
c906108c SS	601	}
c906108c SS	602	}
a602d56b EZ	603	-re ".*$gdb_prompt $" { fail "complete 'file gdb.base/compl'"}
a602d56b EZ	604	timeout {fail "(timeout) complete 'file gdb.base/compl'"}
c906108c SS	605	}
c906108c SS	606	}
a602d56b EZ	607	-re ".*$gdb_prompt $" { fail "complete 'file gdb.base/compl'" }
a602d56b EZ	608	timeout { fail "(timeout) complete 'file gdb.base/compl'" }
c906108c SS	609	}
c906108c SS	610
c906108c SS	611	send_gdb "info func mark\t"
	612	sleep 1
	613	gdb_expect {
	614	-re "^info func mark.*er$"\
085dd6e6 JM	615	{
085dd6e6 JM	616	send_gdb "\t\t"
c906108c SS	617	sleep 3
c906108c SS	618	gdb_expect {
085dd6e6	619	-re "marker1.*$gdb_prompt info func marker$"\
c906108c SS	620	{ send_gdb "\n"
c906108c SS	621	gdb_expect {
4c8a82de	622	-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 $"\
c906108c SS	623	{ pass "complete 'info func mar'"}
	624	-re ".*$gdb_prompt $" { fail "complete 'info func mar'"}
	625	timeout {fail "(timeout) complete 'info func mar'"}
	626	}
	627	}
	628	-re ".*$gdb_prompt $" { fail "complete 'info func mar'"}
	629	timeout {fail "(timeout) complete 'info func mar'"}
	630	}
	631	}
	632	-re ".*$gdb_prompt $" { fail "complete 'info func mar'" }
	633	timeout { fail "(timeout) complete 'info func mar'" }
	634	}
	635
	636
	637	send_gdb "set follow-fork-mode \t\t"
	638	sleep 1
	639	gdb_expect {
	640	-re "ask.child.parent.*$gdb_prompt set follow-fork-mode $"\
	641	{ send_gdb "\n"
	642	gdb_expect {
a602d56b	643	-re "Requires an argument.ask.child.parent.$gdb_prompt $"\
085dd6e6	644	{ pass "complete 'set follow-fork-mode'"}
c906108c SS	645	-re "Ambiguous item \"\"\\..*$gdb_prompt $"\
	646	{ pass "complete 'set follow-fork-mode'"}
	647	-re ".*$gdb_prompt $" { fail "complete 'set follow-fork-mode'"}
	648	timeout {fail "(timeout) complete 'set follow-fork-mode'"}
	649	}
	650	}
	651	-re ".*$gdb_prompt $" { fail "complete 'set follow-fork-mode'" }
	652	timeout { fail "(timeout) complete 'set follow-fork-mode'" }
	653	}
	654
5ea2a32c KB	655	# Restore globals modified in this test...
	656	if [info exists old_inputrc] {
	657	set env(INPUTRC) $old_inputrc
	658	} else {
	659	unset env(INPUTRC)
	660	}
c906108c	661	set timeout $oldtimeout1
c906108c	662
5ea2a32c	663	return 0