Home | History | Annotate | Line # | Download | only in gdb.linespec 
      1 # Copyright 2012-2024 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 3 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, see <http://www.gnu.org/licenses/>.
     15 
     16 # Tests for explicit linespecs
     17 
     18 require allow_cplus_tests
     19 
     20 standard_testfile .cc
     21 set exefile $testfile
     22 
     23 if {[prepare_for_testing "failed to prepare" $exefile $srcfile \
     24 	 {c++ debug nowarnings}]} {
     25     return -1
     26 }
     27 
     28 # Wrap this whole test in a namespace to avoid contaminating other tests.
     29 namespace eval $testfile {
     30     # Test the given (explicit) LINESPEC which should cause gdb to break
     31     # at LOCATION.
     32     proc test_breakpoint {linespec location} {
     33 
     34 	# Delete all breakpoints, watchpoints, tracepoints, and catchpoints,
     35 	# set a new breakpoint at LINESPEC, and attempt to run to it.
     36 	delete_breakpoints
     37 	gdb_breakpoint $linespec
     38 	gdb_continue_to_breakpoint $linespec $location
     39     }
     40 
     41     # Add the given LINESPEC to the array named in THEARRAY.  GDB is expected
     42     # to stop at LOCATION.
     43     proc add {thearray linespec location} {
     44 	upvar $thearray ar
     45 
     46 	lappend ar(linespecs) $linespec
     47 	lappend ar(locations) $location
     48     }
     49 
     50     # Some locations used in this test
     51     variable lineno
     52     variable location
     53     set lineno(normal) [gdb_get_line_number "myfunction location" $srcfile]
     54     set lineno(entry) [gdb_get_line_number "entry location" $srcfile]
     55     set lineno(top) [gdb_get_line_number "top location" $srcfile]
     56     set lineno(operator) [gdb_get_line_number "operator location" $srcfile]
     57     foreach v [array names lineno] {
     58 	set location($v) ".*[string_to_regexp "$srcfile:$lineno($v)"].*"
     59     }
     60 
     61     # A list of explicit linespecs and the corresponding location
     62     variable linespecs
     63     set linespecs(linespecs) {}
     64     set linespecs(location) {}
     65 
     66     add linespecs "-source $srcfile -function myclass::myfunction" \
     67 	$location(normal)
     68     add linespecs "-source $srcfile -function myclass::myfunction -label top" \
     69 	$location(top)
     70 
     71     # This isn't implemented yet; -line is silently ignored.
     72     add linespecs \
     73 	"-source $srcfile -function myclass::myfunction -label top -line 3" \
     74 	$location(top)
     75     add linespecs "-source $srcfile -line $lineno(top)" $location(top)
     76     add linespecs "-function myclass::myfunction" $location(normal)
     77     add linespecs "-function myclass::myfunction -label top" $location(top)
     78 
     79     # These are also not yet supported; -line is silently ignored.
     80     add linespecs "-function myclass::myfunction -line 3" $location(normal)
     81     add linespecs "-function myclass::myfunction -label top -line 3" \
     82 	$location(top)
     83     add linespecs "-line 25" $location(normal)
     84     add linespecs "-function myclass::operator," $location(operator)
     85     add linespecs "-function 'myclass::operator,'" $location(operator)
     86     add linespecs "-function \"myclass::operator,\"" $location(operator)
     87 
     88     # Fire up gdb.
     89     if {![runto_main]} {
     90 	namespace delete $testfile
     91 	return -1
     92     }
     93 
     94     # Test explicit linespecs, with and without conditions.
     95     foreach linespec $linespecs(linespecs) loc_pattern $linespecs(locations) {
     96 	# Test the linespec
     97 	test_breakpoint $linespec $loc_pattern
     98     }
     99 
    100     # Special (orphaned) dprintf cases.
    101     gdb_test "dprintf -function myclass::operator,,\"hello\"" \
    102 	"Dprintf .*$srcfile, line $lineno(operator)\\."
    103     gdb_test "dprintf -function 'myclass::operator,',\"hello\"" \
    104 	"Dprintf .*$srcfile, line $lineno(operator)\\."
    105     gdb_test "dprintf -function \"myclass::operator,\",\"hello\"" \
    106 	"Dprintf .*$srcfile, line $lineno(operator)\\."
    107 }
    108 
    109 namespace delete $testfile
    110