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

# Copyright (C) 1998 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:
# [email protected]

# This file was written by Elena Zannoni ([email protected])

# 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 \"a" no completions (string constant)
#   "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
        }


if { ![istarget "hppa*-hp-hpux*"] } {
    #skip all these tests for now (FIXME)
    continue
}

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
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 \"a\t"
sleep 1
gdb_expect  {
        -re "^p \"a\\\x07$"\
            { send_gdb "\n"
              gdb_expect {
                      -re "Unterminated string in expression\\..*$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 "\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 "a64l.*atol.*$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 "a64l.*atol.*$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/self\t"
sleep 1
gdb_expect  {
        -re "^file ${srcdir}/gdb.base/.*'selftest\\.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/self'"}
                                -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/self'"}
                                timeout           {fail "(timeout) complete 'file gdb.base/self'"}
                               }
                      }
                      -re ".*$gdb_prompt $" { fail "complete 'file gdb.base/self'"}
                      timeout           {fail "(timeout) complete 'file gdb.base/self'"}
                     }
            }
        -re ".*$gdb_prompt $"       { fail "complete 'file gdb.base/self'" }
        timeout         { fail "(timeout) complete 'file gdb.base/self'" }
        }


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\":\r\n\r\nFile.*break.c:\r\nint marker1\\(.*\\);\r\nint marker2\\(int\\).*marker3\\(char.*char.*\\).*marker4\\(long\\);\r\n$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.*parent.*child.*ask.*$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'" }
        }

set timeout $oldtimeout1
return 0
Commit	Line	Data
c906108c SS	1	# Copyright (C) 1998 Free Software Foundation, Inc.
	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	# [email protected]
	19
	20	# This file was written by Elena Zannoni ([email protected])
	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)
	41	# "p \"a" no completions (string constant)
	42	# "p 'a" ambiguous (all symbols starting with a)
	43	# "p b-a" ambiguous (all symbols starting with a)
	44	# "p b-" ambiguous (all symbols)
	45	# "file Make" "file" (word break hard to screw up here)
	46	# "file ../gdb.stabs/we" "ird" (needs to not break word at slash)
	47	#
	48
	49
	50	if $tracelevel then {
	51	strace $tracelevel
	52	}
	53
	54
085dd6e6 JM	55	if { ![istarget "hppa-hp-hpux"] } {
	56	#skip all these tests for now (FIXME)
	57	continue
	58	}
c906108c SS	59
	60	global usestubs
	61
	62	#
	63	# test running programs
	64	#
	65	set prms_id 0
	66	set bug_id 0
	67
	68	set testfile "break"
	69	set srcfile ${testfile}.c
	70	set binfile ${objdir}/${subdir}/${testfile}
	71	if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-w}] != "" } {
	72	gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
	73	}
	74
085dd6e6 JM	75	if [get_compiler_info ${binfile}] {
	76	return -1;
	77	}
	78
c906108c SS	79	gdb_exit
	80	gdb_start
	81	gdb_reinitialize_dir $srcdir/$subdir
	82	gdb_load ${binfile}
	83
	84	if ![runto_main] then {
	85	perror "tests suppressed"
	86	}
	87
	88	set oldtimeout1 $timeout
085dd6e6	89	set timeout 30
c906108c SS	90
	91
	92	send_gdb "hfgfh\t"
	93	sleep 1
	94	gdb_expect {
	95	-re "^hfgfh\\\x07$"\
	96	{ send_gdb "\n"
	97	gdb_expect {
	98	-re "Undefined command: \"hfgfh\"\\. Try \"help\"\\..*$gdb_prompt $"\
	99	{ pass "complete 'hfgfh'"}
	100	-re ".*$gdb_prompt $" { fail "complete 'hfgfh'"}
	101	timeout {fail "(timeout) complete 'hfgfh'"}
	102	}
	103	}
	104	-re ".*$gdb_prompt $" { fail "complete 'hfgfh'" }
	105	timeout { fail "(timeout) complete 'hfgfh'" }
	106	}
	107
	108	#exp_internal 0
	109
	110	send_gdb "show output\t"
	111	sleep 1
	112	gdb_expect {
	113	-re "^show output-radix $"\
	114	{ send_gdb "\n"
	115	gdb_expect {
	116	-re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
	117	{ pass "complete 'show output'"}
	118	-re ".*$gdb_prompt $" { fail "complete 'show output'"}
	119	timeout {fail "(timeout) complete 'show output'"}
	120	}
	121	}
	122	-re "^show output$"\
	123	{ send_gdb "\n"
	124	gdb_expect {
	125	-re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
	126	{ fail "complete 'show output'"}
	127	-re ".*$gdb_prompt $" { fail "complete 'show output'"}
	128	timeout { fail "(timeout) complete 'show output'"}
	129	}
	130
	131	}
	132
	133	-re ".*$gdb_prompt $" { fail "complete 'show output'" }
	134	timeout { fail "(timeout) complete 'show output'" }
	135	}
	136
	137
	138	send_gdb "show output-\t"
	139	sleep 1
	140	gdb_expect {
	141	-re "^show output-radix $"\
	142	{ send_gdb "\n"
	143	gdb_expect {
	144	-re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
	145	{ pass "complete 'show output-'"}
	146	-re ".*$gdb_prompt $" { fail "complete 'show output-'"}
	147	timeout {fail "(timeout) complete 'show output-'"}
	148	}
	149	}
	150	-re "^show output-$"\
	151	{ send_gdb "\n"
	152	gdb_expect {
	153	-re "Default output radix for printing of values is 10\\..*$gdb_prompt $"\
154	{ fail "complete 'show output-'"}
155	-re ".*$gdb_prompt $" { fail "complete 'show output-'"}
156	timeout { fail "(timeout) complete 'show output-'"}
157	}
158
159	}
160
161	-re ".*$gdb_prompt $" { fail "complete 'show output-'" }
162	timeout { fail "(timeout) complete 'show output-'" }
163	}
164
165	send_gdb "p\t"
166	sleep 1
167	gdb_expect {
168	-re "^p\\\x07$"\
169	{ send_gdb "\n"
085dd6e6	170	sleep 1
c906108c SS	171	gdb_expect {
	172	-re "The history is empty\\..*$gdb_prompt $"\
	173	{ pass "complete 'p'"}
	174	-re ".*$gdb_prompt $" { fail "complete 'p'"}
085dd6e6	175	timeout {fail "(timeout) complete 'p' 2"}
c906108c SS	176	}
	177	}
	178	-re ".*$gdb_prompt $" { fail "complete 'p'" }
085dd6e6	179	timeout { fail "(timeout) complete 'p' 1" }
c906108c SS	180	}
	181
	182	send_gdb "p \t"
085dd6e6	183	sleep 3
c906108c SS	184	gdb_expect {
	185	-re "^p \\\x07$"\
	186	{ send_gdb "\n"
085dd6e6	187	sleep 1
c906108c SS	188	gdb_expect {
	189	-re "The history is empty\\..*$gdb_prompt $"\
	190	{ pass "complete 'p '"}
	191	-re ".*$gdb_prompt $" { fail "complete 'p '"}
085dd6e6	192	timeout {fail "(timeout) complete 'p ' 1"}
c906108c SS	193	}
	194	}
	195	-re ".*$gdb_prompt $" { fail "complete 'p '" }
085dd6e6	196	timeout { fail "(timeout) complete 'p ' 2" }
c906108c SS	197	}
	198
	199
	200	send_gdb "info t foo\t"
	201	sleep 1
	202	gdb_expect {
	203	-re "^info t foo\\\x07$"\
	204	{ send_gdb "\n"
	205	gdb_expect {
	206	-re "Ambiguous info command \"t foo\": target, terminal, threads, tp, tracepoints, types\\..*$gdb_prompt $"\
	207	{ pass "complete 'info t foo'"}
	208	-re ".*$gdb_prompt $" { fail "complete 'info t foo'"}
	209	timeout {fail "(timeout) complete 'info t foo'"}
	210	}
	211	}
	212	-re ".*$gdb_prompt $" { fail "complete 'info t foo'" }
	213	timeout { fail "(timeout) complete 'info t foo'" }
	214	}
	215
	216	send_gdb "info t\t"
	217	sleep 1
	218	gdb_expect {
	219	-re "^info t\\\x07$"\
	220	{ send_gdb "\n"
	221	gdb_expect {
	222	-re "Ambiguous info command \"t\": target, terminal, threads, tp, tracepoints, types\\..
	223	*$gdb_prompt $"\
	224	{ pass "complete 'info t'"}
	225	-re ".*$gdb_prompt $" { fail "complete 'info t'"}
	226	timeout {fail "(timeout) complete 'info t'"}
	227	}
	228	}
	229	-re ".*$gdb_prompt $" { fail "complete 'info t'" }
	230	timeout { fail "(timeout) complete 'info t'" }
	231	}
	232
	233
	234	send_gdb "info t \t"
	235	sleep 1
	236	gdb_expect {
	237	-re "^info t \\\x07$"\
	238	{ send_gdb "\n"
	239	gdb_expect {
	240	-re "Ambiguous info command \"t \": target, terminal, threads, tp, tracepoints, types\\..
	241	*$gdb_prompt $"\
	242	{ pass "complete 'info t '"}
	243	-re ".*$gdb_prompt $" { fail "complete 'info t '"}
	244	timeout {fail "(timeout) complete 'info t '"}
	245	}
	246	}
	247	-re ".*$gdb_prompt $" { fail "complete 'info t '" }
	248	timeout { fail "(timeout) complete 'info t '" }
	249	}
	250
	251
	252	send_gdb "info asdfgh\t"
	253	sleep 1
	254	gdb_expect {
	255	-re "^info asdfgh\\\x07$"\
	256	{ send_gdb "\n"
	257	gdb_expect {
	258	-re "Undefined info command: \"asdfgh\". Try \"help info\"\\..
	259	*$gdb_prompt $"\
	260	{ pass "complete 'info asdfgh'"}
261	-re ".*$gdb_prompt $" { fail "complete 'info asdfgh'"}
262	timeout {fail "(timeout) complete 'info asdfgh'"}
263	}
264	}
265	-re ".*$gdb_prompt $" { fail "complete 'info asdfgh'" }
266	timeout { fail "(timeout) complete 'info asdfgh'" }
267	}
268
269
270	send_gdb "info asdfgh \t"
271	sleep 1
272	gdb_expect {
273	-re "^info asdfgh \\\x07$"\
274	{ send_gdb "\n"
275	gdb_expect {
276	-re "Undefined info command: \"asdfgh \". Try \"help info\"\\..
277	*$gdb_prompt $"\
278	{ pass "complete 'info asdfgh '"}
279	-re ".*$gdb_prompt $" { fail "complete 'info asdfgh '"}
280	timeout {fail "(timeout) complete 'info asdfgh '"}
281	}
282	}
283	-re ".*$gdb_prompt $" { fail "complete 'info asdfgh '" }
284	timeout { fail "(timeout) complete 'info asdfgh '" }
285	}
286
287	send_gdb "info\t"
288	sleep 1
289	gdb_expect {
290	-re "^info $"\
291	{ send_gdb "\n"
292	gdb_expect {
085dd6e6	293	-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	294	{ pass "complete 'info'"}
	295	-re ".*$gdb_prompt $" { fail "complete 'info'"}
	296	timeout {fail "(timeout) complete 'info'"}
	297	}
	298	}
	299	-re ".*$gdb_prompt $" { fail "complete 'info'" }
	300	timeout { fail "(timeout) complete 'info'" }
	301	}
	302
	303	send_gdb "info \t"
	304	sleep 1
	305	gdb_expect {
	306	-re "^info \\\x07$"\
	307	{ send_gdb "\n"
	308	gdb_expect {
085dd6e6	309	-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	310	{ pass "complete 'info '"}
	311	-re ".*$gdb_prompt $" { fail "complete 'info '"}
	312	timeout {fail "(timeout) complete 'info '"}
	313	}
	314	}
	315	-re ".*$gdb_prompt $" { fail "complete 'info '" }
	316	timeout { fail "(timeout) complete 'info '" }
	317	}
	318
	319
	320	send_gdb "info \t"
	321	sleep 1
	322	gdb_expect {
085dd6e6	323	-re "^info \\\x07$"\
c906108c SS	324	{ send_gdb "\t"
	325	gdb_expect {
	326	-re "address.types.$gdb_prompt info $"\
	327	{ send_gdb "\n"
	328	gdb_expect {
	329	-re "\"info\".unambiguous\\..$gdb_prompt $"\
	330	{ pass "complete (2) 'info '"}
	331	-re ".*$gdb_prompt $" { fail "complete (2) 'info '"}
	332	timeout {fail "(timeout) complete (2) 'info '"}
	333	}
	334	}
	335	-re ".*$gdb_prompt $" { fail "complete (2) 'info '"}
	336	timeout {fail "(timeout) complete (2) 'info '"}
	337	}
	338	}
	339	-re ".*$gdb_prompt $" { fail "complete (2) 'info '" }
	340	timeout { fail "(timeout) complete (2) 'info '" }
	341	}
	342
	343
	344	send_gdb "p \"a\t"
	345	sleep 1
	346	gdb_expect {
	347	-re "^p \"a\\\x07$"\
	348	{ send_gdb "\n"
	349	gdb_expect {
	350	-re "Unterminated string in expression\\..*$gdb_prompt $"\
	351	{ pass "complete 'p a'"}
	352	-re ".*$gdb_prompt $" { fail "complete 'p a'"}
	353	timeout {fail "(timeout) complete 'p a'"}
	354	}
	355	}
	356	-re ".*$gdb_prompt $" { fail "complete 'p \"a'" }
	357	timeout { fail "(timeout) complete 'p \"a'" }
	358	}
	359
	360	send_gdb "p 'a\t"
	361	sleep 1
	362	gdb_expect {
	363	-re "^p 'a\\\x07$"\
	364	{ send_gdb "\n"
	365	gdb_expect {
	366	-re "Invalid character constant\\..*$gdb_prompt $"\
	367	{ pass "complete 'p \'a'"}
	368	-re ".*$gdb_prompt $" { fail "complete 'p \'a'"}
	369	timeout {fail "(timeout) complete 'p \'a'"}
	370	}
	371	}
	372	-re ".*$gdb_prompt $" { fail "complete 'p \'a'" }
	373	timeout { fail "(timeout) complete 'p \'a'" }
	374	}
	375
	376	send_gdb "p 'a\t"
	377	sleep 1
085dd6e6 JM	378	gdb_expect {
	379	-re "^p 'a\\\x07$" {
	380	send_gdb "\t"
	381	gdb_expect {
	382	-re "a64l.atol.$gdb_prompt p .a$" {
	383	send_gdb "\n"
	384	gdb_expect {
	385	-re "Invalid character constant\\..*$gdb_prompt $" {
	386	pass "complete (2) 'p \'a'"
	387	}
	388	-re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
	389	timeout { fail "(timeout) complete (2) 'p \'a'" }
	390	}
	391	}
	392	-re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.\|Display all $decimal possibilities.) \\(y or n\\)$" {
	393	send_gdb "n"
	394	gdb_expect {
	395	-re "\\(gdb\\) p 'a$" {
	396	send_gdb "\n"
	397	gdb_expect {
	398	-re "Invalid character constant\\..*$gdb_prompt $" {
	399	pass "complete (2) 'p \'a'"
	400	}
	401	-re ".*$gdb_prompt $" {
	402	fail "complete (2) 'p \'a'"
	403	}
	404	timeout { fail "(timeout) complete (2) 'p \'a'" }
	405	}
	406	}
	407	-re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
	408	timeout { fail "(timeout) complete (2) 'p \'a'" }
	409	}
	410	}
	411	-re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
	412	timeout { fail "(timeout) complete (2) 'p \'a'" }
	413	}
	414	}
	415	-re ".*$gdb_prompt $" { fail "complete (2) 'p \'a'" }
	416	timeout { fail "(timeout) complete (2) 'p \'a'" }
	417	}
c906108c SS	418
	419
	420	send_gdb "p b-a\t"
	421	sleep 1
	422	gdb_expect {
	423	-re "^p b-a\\\x07$"\
	424	{ send_gdb "\n"
	425	gdb_expect {
	426	-re "No symbol \"b\" in current context\\..*$gdb_prompt $"\
	427	{ pass "complete 'p b-a'"}
	428	-re ".*$gdb_prompt $" { fail "complete 'p b-a'"}
	429	timeout {fail "(timeout) complete 'p b-a'"}
	430	}
	431	}
	432	-re ".*$gdb_prompt $" { fail "complete 'p b-a'" }
	433	timeout { fail "(timeout) complete 'p b-a'" }
	434	}
	435
	436	send_gdb "p b-a\t"
	437	sleep 1
085dd6e6 JM	438	gdb_expect {
	439	-re "^p b-a\\\x07$" {
	440	send_gdb "\t"
	441	gdb_expect {
	442	-re "a64l.atol.$gdb_prompt p b-a$" {
	443	send_gdb "\n"
	444	gdb_expect {
	445	-re "No symbol \"b\" in current context\\..*$gdb_prompt $" {
	446	pass "complete (2) 'p b-a'"
	447	}
	448	-re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
	449	timeout { fail "(timeout) complete (2) 'p b-a'" }
	450	}
	451	}
	452	-re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.\|Display all $decimal possibilities.) \\(y or n\\)$" {
	453	send_gdb "n"
	454	gdb_expect {
	455	-re "\\(gdb\\) p b-a$" {
	456	send_gdb "\n"
	457	gdb_expect {
	458	-re "No symbol \"b\" in current context\\..*$gdb_prompt $" {
	459	pass "complete (2) 'p b-a'"
	460	}
	461	-re ".*$gdb_prompt $" {
	462	fail "complete (2) 'p b-a'"
	463	}
	464	timeout { fail "(timeout) complete (2) 'p b-a'" }
	465	}
	466	}
	467	-re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
	468	timeout { fail "(timeout) complete (2) 'p b-a'" }
	469	}
	470	}
	471	-re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
	472	timeout { fail "(timeout) complete (2) 'p b-a'" }
c906108c	473	}
085dd6e6 JM	474	}
	475	-re ".*$gdb_prompt $" { fail "complete (2) 'p b-a'" }
	476	timeout { fail "(timeout) complete (2) 'p b-a'" }
	477	}
c906108c SS	478
	479	send_gdb "p b-\t"
	480	sleep 1
	481	gdb_expect {
085dd6e6 JM	482	-re "^p b-\\\x07$" {
	483	send_gdb "\t"
	484	gdb_expect {
	485	-re "(There are $decimal possibilities\\. Do you really\r\nwish to see them all.\|Display all $decimal possibilities.) \\(y or n\\)$" {
	486	send_gdb "n"
	487	gdb_expect {
	488	-re "\\(gdb\\) p b-$" {
	489	send_gdb "\n"
	490	gdb_expect {
	491	-re "No symbol \"b\" in current context\\..*$gdb_prompt $" {
	492	pass "complete (2) 'p b-'"
	493	}
	494	-re ".*$gdb_prompt $" {
	495	fail "complete (2) 'p b-'"
	496	}
	497	timeout { fail "(timeout) complete (2) 'p b-'" }
	498	}
	499	}
	500	-re ".*$gdb_prompt $" { fail "complete (2) 'p b-'" }
	501	timeout { fail "(timeout) complete (2) 'p b-'" }
	502	}
	503	}
	504	-re ".*$gdb_prompt $" { fail "complete (2) 'p b-'" }
	505	timeout { fail "(timeout) complete (2) 'p b-'" }
	506	}
	507	}
	508	-re ".*$gdb_prompt $" { fail "complete (2) 'p b-'" }
	509	timeout { fail "(timeout) complete (2) 'p b-'" }
	510	}
c906108c SS	511
	512	send_gdb "file ${objdir}/Make\t"
	513	sleep 1
	514	gdb_expect {
	515	-re "file ${objdir}/Makefile.*$"\
	516	{ send_gdb "\n"
	517	gdb_expect {
	518	-re "\r\nA program is being debugged already\\. Kill it\\? \\(y or n\\) $"\
	519	{ send_gdb "n\n"
	520	gdb_expect {
	521	-re "\r\nProgram not killed\\.\r\n$gdb_prompt $"\
	522	{ pass "complete 'file Make'"}
	523	-re ".*$gdb_prompt $" { fail "complete 'file Make'"}
	524	timeout {fail "(timeout) complete 'file Make'"}
	525	}
	526	}
	527	-re ".*$gdb_prompt $" { fail "complete 'file Make'"}
	528	timeout {fail "(timeout) complete 'file Make'"}
	529	}
	530	}
	531	-re ".*$gdb_prompt $" { fail "complete 'file Make'" }
	532	timeout { fail "(timeout) complete 'file Make'" }
	533	}
	534
	535
a0b3c4fd	536	send_gdb "file ${srcdir}/gdb.base/self\t"
c906108c SS	537	sleep 1
c906108c SS	538	gdb_expect {
a0b3c4fd	539	-re "^file ${srcdir}/gdb.base/.*'selftest\\.exp' $"\
c906108c SS	540	{ send_gdb "\n"
	541	gdb_expect {
	542	-re "\r\nA program is being debugged already\\. Kill it\\? \\(y or n\\) $"
	543	\
	544	{ send_gdb "n\n"
	545	gdb_expect {
	546	-re "\r\nProgram not killed\\.\r\n$gdb_prompt $"\
a0b3c4fd JM	547	{ pass "complete 'file gdb.base/self'"}
	548	-re ".*$gdb_prompt $" { fail "complete 'file gdb.base/self'"}
	549	timeout {fail "(timeout) complete 'file gdb.base/self'"}
c906108c SS	550	}
c906108c SS	551	}
a0b3c4fd JM	552	-re ".*$gdb_prompt $" { fail "complete 'file gdb.base/self'"}
a0b3c4fd JM	553	timeout {fail "(timeout) complete 'file gdb.base/self'"}
c906108c SS	554	}
c906108c SS	555	}
a0b3c4fd JM	556	-re ".*$gdb_prompt $" { fail "complete 'file gdb.base/self'" }
a0b3c4fd JM	557	timeout { fail "(timeout) complete 'file gdb.base/self'" }
c906108c SS	558	}
	559
	560
	561	send_gdb "info func mark\t"
	562	sleep 1
	563	gdb_expect {
	564	-re "^info func mark.*er$"\
085dd6e6 JM	565	{
085dd6e6 JM	566	send_gdb "\t\t"
c906108c SS	567	sleep 3
c906108c SS	568	gdb_expect {
085dd6e6	569	-re "marker1.*$gdb_prompt info func marker$"\
c906108c SS	570	{ send_gdb "\n"
c906108c SS	571	gdb_expect {
085dd6e6	572	-re "All functions matching regular expression \"marker\":\r\n\r\nFile.break.c:\r\nint marker1\\(.\\);\r\nint marker2\\(int\\).marker3\\(char.char.\\).marker4\\(long\\);\r\n$gdb_prompt $"\
c906108c SS	573	{ pass "complete 'info func mar'"}
	574	-re ".*$gdb_prompt $" { fail "complete 'info func mar'"}
	575	timeout {fail "(timeout) complete 'info func mar'"}
	576	}
	577	}
	578	-re ".*$gdb_prompt $" { fail "complete 'info func mar'"}
	579	timeout {fail "(timeout) complete 'info func mar'"}
	580	}
	581	}
	582	-re ".*$gdb_prompt $" { fail "complete 'info func mar'" }
	583	timeout { fail "(timeout) complete 'info func mar'" }
	584	}
	585
	586
	587	send_gdb "set follow-fork-mode \t\t"
	588	sleep 1
	589	gdb_expect {
	590	-re "ask.child.parent.*$gdb_prompt set follow-fork-mode $"\
	591	{ send_gdb "\n"
	592	gdb_expect {
085dd6e6 JM	593	-re "Requires an argument.parent.child.ask.$gdb_prompt $"\
085dd6e6 JM	594	{ pass "complete 'set follow-fork-mode'"}
c906108c SS	595	-re "Ambiguous item \"\"\\..*$gdb_prompt $"\
	596	{ pass "complete 'set follow-fork-mode'"}
	597	-re ".*$gdb_prompt $" { fail "complete 'set follow-fork-mode'"}
	598	timeout {fail "(timeout) complete 'set follow-fork-mode'"}
	599	}
	600	}
	601	-re ".*$gdb_prompt $" { fail "complete 'set follow-fork-mode'" }
	602	timeout { fail "(timeout) complete 'set follow-fork-mode'" }
	603	}
	604
	605	set timeout $oldtimeout1
	606	return 0
	607
	608
	609
	610
	611
	612
	613
	614
	615
	616
	617
	618
	619
	620