old-cross-binutils/gdb/testsuite/gdb.linespec/explicit.exp

# Copyright 2012-2015 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 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, see <http://www.gnu.org/licenses/>.

# Tests for explicit locations

standard_testfile explicit.c explicit2.c 3explicit.c
set exefile $testfile

if {[prepare_for_testing $testfile $exefile \
	 [list $srcfile $srcfile2 $srcfile3] {debug nowarnings}]} {
    return -1
}

# Wrap the entire test in a namespace to avoid contaminating other tests.
namespace eval $testfile {

    # Test the given (explicit) LINESPEC which should cause gdb to break
    # at LOCATION.
    proc test_breakpoint {linespec location} {

	set testname "set breakpoint at \"$linespec\""
	# Delete all breakpoints, set a new breakpoint at LINESPEC,
	# and attempt to run to it.
	delete_breakpoints
	if {[gdb_breakpoint $linespec]} {
	    pass $testname
	    send_log "\nexpecting locpattern \"$location\"\n"
	    gdb_continue_to_breakpoint $linespec $location
	} else {
	    fail $testname
	}
    }

    # Add the given LINESPEC to the array named in THEARRAY.  GDB is expected
    # to stop at LOCATION.
    proc add {thearray linespec location} {
	upvar $thearray ar

	lappend ar(linespecs) $linespec
	lappend ar(locations) $location
    }

    # A list of all explicit linespec arguments.
    variable all_arguments
    set all_arguments {"source" "function" "label" "line"}

    # Some locations used in this test
    variable lineno
    variable location
    set lineno(normal) [gdb_get_line_number "myfunction location" $srcfile]
    set lineno(top) [gdb_get_line_number "top location" $srcfile]
    foreach v [array names lineno] {
	set location($v) ".*[string_to_regexp "$srcfile:$lineno($v)"].*"
    }

    # A list of explicit locations and the corresponding location.
    variable linespecs
    set linespecs(linespecs) {}
    set linespecs(location) {}

    add linespecs "-source $srcfile -function myfunction" $location(normal)
    add linespecs "-source $srcfile -function myfunction -label top" \
	$location(top)

    # This isn't implemented yet; -line is silently ignored.
    add linespecs "-source $srcfile -function myfunction -label top -line 3" \
	$location(top)
    add linespecs "-source $srcfile -line $lineno(top)" $location(top)
    add linespecs "-function myfunction" $location(normal)
    add linespecs "-function myfunction -label top" $location(top)

    # These are also not yet supported; -line is silently ignored.
    add linespecs "-function myfunction -line 3" $location(normal)
    add linespecs "-function myfunction -label top -line 3" $location(top)
    add linespecs "-line 3" $location(normal)

    # Test that static tracepoints on marker ID are not interpreted
    # as an erroneous explicit option.
    gdb_test "strace -m gdbfoobarbaz" "You can't do that.*"

    # Fire up gdb.
    if {![runto_main]} {
	return -1
    }

    # Turn off queries
    gdb_test_no_output "set confirm off"

    # Simple error tests (many more are tested in ls-err.exp)
    foreach arg $all_arguments {
	# Test missing argument
	gdb_test "break -$arg" \
	    [string_to_regexp "missing argument for \"-$arg\""]

	# Test abbreviations
	set short [string range $arg 0 3]
	gdb_test "break -$short" \
	    [string_to_regexp "missing argument for \"-$short\""]
    }

    # Test invalid arguments
    foreach arg {"-foo" "-foo bar" "-function myfunction -foo" \
		     "-function -myfunction -foo bar"} {
	gdb_test "break $arg" \
	    [string_to_regexp "invalid explicit location argument, \"-foo\""]
    }

    # Test explicit locations, with and without conditions.
    # For these tests, it is easiest to turn of pending breakpoint.
    gdb_test_no_output "set breakpoint pending off" \
	"turn off pending breakpoints"

    foreach linespec $linespecs(linespecs) loc_pattern $linespecs(locations) {

	# Test the linespec
	test_breakpoint $linespec $loc_pattern

	# Test with a valid condition
	delete_breakpoints
	set tst "set breakpoint at \"$linespec\" with valid condition"
	if {[gdb_breakpoint "$linespec if arg == 0"]} {
	    pass $tst

	    gdb_test "info break" ".*stop only if arg == 0.*" \
		"info break of conditional breakpoint at \"$linespec\""
	} else {
	    fail $tst
	}

	# Test with invalid condition
	gdb_test "break $linespec if foofoofoo == 1" \
	    ".*No symbol \"foofoofoo\" in current context.*" \
	    "set breakpoint at \"$linespec\" with invalid condition"

	# Test with thread
	delete_breakpoints
	gdb_test "break $linespec thread 123" "Unknown thread 123."
    }

    # Test the explicit location completer
    foreach abbrev {"fun" "so" "lab" "li"}  full {"function" "source" "label" "line"} {
	set tst "complete 'break -$abbrev'"
	send_gdb "break -${abbrev}\t"
	gdb_test_multiple "" $tst {
	    "break -$full " {
		send_gdb "\n"
		gdb_test_multiple "" $tst {
		    -re "missing argument for \"-$full\".*$gdb_prompt " {
			pass $tst
		    }
		}
	    }
	}
	set tst "complete -$full with no value"
	send_gdb "break -$full \t"
	gdb_test_multiple "" $tst {
	    -re ".*break -$full " {
		send_gdb "\n"
		gdb_test_multiple "" $tst {
		    -re ".*Source filename requires function, label, or line offset\..*$gdb_prompt " {
			if {[string equal $full "source"]} {
			    pass $tst
			} else {
			    faill $tst
			}
		    }
		    -re "missing argument for \"-$full\".*$gdb_prompt " {
			pass $tst
		    }
		}
	    }
	}
    }

    set tst "complete unique function name"
    send_gdb "break -function mai\t"
    gdb_test_multiple "" $tst {
	"break -function mai\\\x07n" {
	    send_gdb "\n"
	    gdb_test "" ".*Breakpoint \[0-9\]+.*" $tst
	    gdb_test_no_output "delete \$bpnum" "delete $tst breakpoint"
	}
    }

    set tst "complete non-unique function name"
    send_gdb "break -function myfunc\t"
    gdb_test_multiple "" $tst {
	"break -function myfunc\\\x07tion" {
	    send_gdb "\t\t"
	    gdb_test_multiple "" $tst {
		-re "\\\x07\r\nmyfunction\[ \t\]+myfunction2\[ \t\]+myfunction3\[ \t\]+myfunction4\[ \t\]+\r\n$gdb_prompt " {
		    gdb_test "2" ".*Breakpoint \[0-9\]+.*" $tst
		    gdb_test_no_output "delete \$bpnum" "delete $tst breakpoint"
		}
	    }
	}
    }

    set tst "complete non-existant function name"
    send_gdb "break -function foo\t"
    gdb_test_multiple "" $tst {
	"break -function foo\\\x07" {
	    send_gdb "\t\t"
	    gdb_test_multiple "" $tst {
		-re "\\\x07\\\x07" {
		    send_gdb "\n"
		    gdb_test "" {Function "foo" not defined.} $tst
		}
	    }
	}
    }

    set tst "complete unique file name"
    send_gdb "break -source 3ex\t"
    gdb_test_multiple "" $tst {
	"break -source 3explicit.c " {
	    send_gdb "\n"
	    gdb_test "" \
		{Source filename requires function, label, or line offset.} $tst
	}
    }

    set tst "complete non-unique file name"
    send_gdb "break -source exp\t"
    gdb_test_multiple "" $tst {
	"break -source exp\\\x07licit" {
	    send_gdb "\t\t"
	    gdb_test_multiple "" $tst {
		-re "\\\x07\r\nexplicit.c\[ \t\]+explicit2.c\[ \t\]+\r\n$gdb_prompt" {
		    send_gdb "\n"
		    gdb_test "" \
			{Source filename requires function, label, or line offset.} \
			$tst
		}
	    }
	}

	"break -source exp\\\x07l" {
	    # This pattern may occur when glibc debuginfo is installed.
	    send_gdb "\t\t"
	    gdb_test_multiple "" $tst {
		-re "\\\x07\r\nexplicit.c\[ \t\]+explicit2.c\[ \t\]+expl.*\r\n$gdb_prompt" {
		    send_gdb "\n"
		    gdb_test "" \
			{Source filename requires function, label, or line offset.} \
			$tst
		}
	    }
	}
    }

    set tst "complete non-existant file name"
    send_gdb "break -source foo\t"
    gdb_test_multiple "" $tst {
	"break -source foo" {
	    send_gdb "\t\t"
	    gdb_test_multiple "" $tst {
		"\\\x07\\\x07" {
		    send_gdb "\n"
		    gdb_test "" \
			{Source filename requires function, label, or line offset.} \
			$tst
		}
	    }
	}
    }

    set tst "complete filename and unique function name"
    send_gdb "break -source explicit.c -function ma\t"
    gdb_test_multiple "" $tst {
	"break -source explicit.c -function main " {
	    send_gdb "\n"
	    gdb_test "" ".*Breakpoint .*" $tst
	    gdb_test_no_output "delete \$bpnum" "delete $tst breakpoint"
	}
    }

    set tst "complete filename and non-unique function name"
    send_gdb "break -so 3explicit.c -func myfunc\t"
    gdb_test_multiple "" $tst {
	"break -so 3explicit.c -func myfunc\\\x07tion" {
	    send_gdb "\t\t"
	    gdb_test_multiple "" $tst {
		-re "\\\x07\r\nmyfunction3\[ \t\]+myfunction4\[ \t\]+\r\n$gdb_prompt " {
		    gdb_test "3" ".*Breakpoint \[0-9\]+.*" $tst
		    gdb_test_no_output "delete \$bpnum" "delete $tst breakpoint"
		}
	    }
	}
    }

    set tst "complete filename and non-existant function name"
    send_gdb "break -sou 3explicit.c -fun foo\t"
    gdb_test_multiple "" $tst {
	"break -sou 3explicit.c -fun foo\\\x07" {
	    send_gdb "\t\t"
	    gdb_test_multiple "" $tst {
		"\\\x07\\\x07" {
		    send_gdb "\n"
		    gdb_test "" \
			{Function "foo" not defined in "3explicit.c".} $tst
		}
	    }
	}
    }

    set tst "complete filename and function reversed"
    send_gdb "break -func myfunction4 -source 3ex\t"
    gdb_test_multiple "" $tst {
	"break -func myfunction4 -source 3explicit.c " {
	    send_gdb "\n"
	    gdb_test "" "Breakpoint \[0-9\]+.*" $tst
	    gdb_test_no_output "delete \$bpnum" "delete $tst breakpoint"
	}
    }

    # NOTE: We don't bother testing more elaborate combinations of options,
    # such as "-func main -sour 3ex\t" (main is defined in explicit.c).  The
    # completer cannot handle these yet.

    # Test pending explicit breakpoints
    gdb_exit
    gdb_start

    set tst "pending invalid conditional explicit breakpoint"
    if {![gdb_breakpoint "-func myfunction if foofoofoo == 1" \
	      allow-pending]} {
	fail "set $tst"
    } else {
	gdb_test "info break" ".*PENDING.*myfunction if foofoofoo == 1.*" $tst
    }

    gdb_exit
    gdb_start

    set tst "pending valid conditional explicit breakpoint"
    if {![gdb_breakpoint "-func myfunction if arg == 0" \
	      allow-pending]} {
	fail "set $tst"
    } else {
	gdb_test "info break" ".*PENDING.*myfunction if arg == 0" $tst

	gdb_load [standard_output_file $exefile]
	gdb_test "info break" \
	    ".*in myfunction at .*$srcfile:.*stop only if arg == 0.*" \
	    "$tst resolved"
    }

    # Test interaction of condition command and explicit linespec conditons.
    gdb_exit
    gdb_start
    gdb_load [standard_output_file $exefile]

    set tst "condition_command overrides explicit linespec condition"
    if {![runto main]} {
	fail $tst
    } else {
	if {![gdb_breakpoint "-func myfunction if arg == 1"]} {
	    fail "set breakpoint with condition 'arg == 1'"
	} else {
	    gdb_test_no_output "cond 2 arg == 0" \
		"set new breakpoint condition for explicit linespec"

	    gdb_continue_to_breakpoint $tst $location(normal)
	}
    }

    gdb_test "cond 2" [string_to_regexp "Breakpoint 2 now unconditional."] \
	"clear condition for explicit breakpoint"
    set tst "info break of cleared condition of explicit breakpoint"
    gdb_test_multiple "info break" $tst {
	-re ".*in myfunction at .*$srcfile:.*stop only if arg == 0.*" {
	    fail $tst
	}
	-re ".*in myfunction at .*$srcfile:.*$gdb_prompt $" {
	    pass $tst
	}
    }

    # Test explicit "ranges."  Make sure that using explicit
    # locations doesn't alter the expected outcome.
    gdb_test "list main" ".*" "list main 1"
    set list_result [capture_command_output "list -,+" ""]
    gdb_test "list main" ".*" "list main 2"
    gdb_test "list -line -,-line +" [string_to_regexp $list_result]

    # Ditto for the reverse (except that no output is expected).
    gdb_test "list myfunction" ".*" "list myfunction 1"
    gdb_test_no_output "list +,-"
    gdb_test "list myfunction" ".*" "list myfunction 2"
    gdb_test_no_output "list -line +, -line -"
}

namespace delete $testfile