diff --git a/gdb/testsuite/gdb.cp/namespace.exp b/gdb/testsuite/gdb.cp/namespace.exp index ccbd97f..cf5a858 100644 --- a/gdb/testsuite/gdb.cp/namespace.exp +++ b/gdb/testsuite/gdb.cp/namespace.exp @@ -138,6 +138,11 @@ gdb_test "print AAA::xyzq('x')" \ gdb_test "break AAA::xyzq" \ "Breakpoint.*at $hex: file.*namespace.cc, line 47\\." +# Break on a function in the global namespace. + +gdb_test "break ::ensureOtherRefs" \ + "Breakpoint.*at $hex: file.*$srcfile1, line $decimal\\." + # Call a function in a nested namespace gdb_test "print 'BBB::CCC::xyzq'('x')" \ @@ -153,6 +158,11 @@ gdb_test "print BBB::CCC::xyzq('x')" \ gdb_test "break BBB::CCC::xyzq" \ "Breakpoint.*at $hex: file.*namespace.cc, line 63\\." +# Break on the same function, starting with the global namespace. + +gdb_test "break ::BBB::CCC::xyzq" \ + ".*Breakpoint.*at $hex: file.*$srcfile, line 63\\." + # Print address of a function in a class in a namespace gdb_test "print 'BBB::Class::xyzq'" \ diff --git a/gdb/testsuite/gdb.linespec/ls-dollar.cc b/gdb/testsuite/gdb.linespec/ls-dollar.cc new file mode 100644 index 0000000..72e792b --- /dev/null +++ b/gdb/testsuite/gdb.linespec/ls-dollar.cc @@ -0,0 +1,26 @@ +/* This testcase is part of GDB, the GNU debugger. + + Copyright 2012 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 . */ + +static int $dollar_var = 0; + +int $dollar_func (void) { return $dollar_var; } /* dollar_func */ + +int +main (void) +{ + return $dollar_func (); +} diff --git a/gdb/testsuite/gdb.linespec/ls-dollar.exp b/gdb/testsuite/gdb.linespec/ls-dollar.exp new file mode 100644 index 0000000..e82dc08 --- /dev/null +++ b/gdb/testsuite/gdb.linespec/ls-dollar.exp @@ -0,0 +1,38 @@ +# Copyright 2012 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 . + +# Tests for dollar signs in linespecs + +set base "ls-dollar" +set srcfile "$base.cc" +set testfile "$base.exp" +set exefile $base + +if {[skip_cplus_tests]} { + unsupported linespec.exp + return +} + +if {[prepare_for_testing $testfile $exefile $srcfile \ + {debug nowarnings c++}]} { + return -1 +} + +gdb_test_no_output "set listsize 1" + +gdb_test "list \$dollar_var" \ + ".*static int [string_to_regexp {$dollar_var}] = 0;" +gdb_test "break \$dollar_func" \ + "Breakpoint $decimal at $hex: file .*$srcfile, line [gdb_get_line_number {dollar_func}]\\\." diff --git a/gdb/testsuite/gdb.linespec/ls-errs.c b/gdb/testsuite/gdb.linespec/ls-errs.c new file mode 100644 index 0000000..bb4c096 --- /dev/null +++ b/gdb/testsuite/gdb.linespec/ls-errs.c @@ -0,0 +1,29 @@ +/* This testcase is part of GDB, the GNU debugger. + + Copyright 2012 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 . */ + +int myfunction (void) { return 0; } + +int +main (void) +{ + int a; + + a = myfunction (); + + here: + return a; +} diff --git a/gdb/testsuite/gdb.linespec/ls-errs.exp b/gdb/testsuite/gdb.linespec/ls-errs.exp new file mode 100644 index 0000000..beccc91 --- /dev/null +++ b/gdb/testsuite/gdb.linespec/ls-errs.exp @@ -0,0 +1,188 @@ +# Copyright 2012 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 . + +# Tests for linespec error conditions + +set base ls-errs +set srcfile "$base.c" +set testfile "$base.exp" +set exefile $base + +if {[skip_cplus_tests]} { + unsupported linespec.exp + return +} + +if {[prepare_for_testing $testfile $exefile $srcfile \ + {debug nowarnings}]} { + return -1 +} + +# Turn off the pending breakpoint queries. +gdb_test_no_output "set breakpoint pending off" + +# We intentionally do not use gdb_breakpoint for these tests. + +# Add the (invalid) LINESPEC to the test array named in ARRAY_NAME. +# Use the index into ::error_messages MSG_ID and ARGS to create +# an error message which is the expect result of attempting to +# break on the given LINESPEC. +proc add {array_name linespec msg_id args} { + global error_messages + upvar $array_name tests + + lappend tests(linespecs) $linespec + set tests("$linespec") [string_to_regexp \ + [eval format \$error_messages($msg_id) $args]] +} + +# Common error message format strings. +array set error_messages { + invalid_file "No source file named %s." + invalid_function "Function \"%s\" not defined." + invalid_var_or_func "Undefined convenience variable or function \"%s\" not defined." + invalid_function_f "Function \"%s\" not defined in \"%s\"." + invalid_var_or_func_f \ + "Undefined convenience variable or function \"%s\" not defined in \"%s\"." + invalid_label "No label \"%s\" defined in function \"%s\"." + invalid_offset "No line %d in the current file." + invalid_offset_f "No line %d in file \"%s\"." + unexpected "malformed linespec error: unexpected %s" + unexpected_opt "malformed linespec error: unexpected %s, \"%s\"" + unmatched_quote "unmatched quote" +} + +# Some commonly used whitespace tests around ':'. +set spaces [list ":" ": " " :" " : " "\t: " " :\t" "\t:\t" " \t:\t " \ + "\t \t:\t \t \t"] + +# A list of invalid offsets. +set invalid_offsets [list -100 +500 1000] + +# THE_TESTS will hold all of our test information. Array index +# "linespecs" will contain the complete list of all linespecs +# to be tested. An array index of \"$linespec\" will contain +# the expected result. +set the_tests(linespecs) {} + +# Try some simple, invalid linespecs involving spaces. +foreach x $spaces { + add the_tests $x unexpected "colon" +} + +# Test invalid filespecs starting with offset. This is done +# first so that default offsets are tested. +foreach x $invalid_offsets { + set offset $x + + # Relative offsets are relative to line 16. Adjust + # expected offset from error message accordingly. + if {[string index $x 0] == "+" || + [string index $x 0] == "-"} { + incr offset 16 + } + add the_tests $x invalid_offset $offset +} + +# Test offsets with trailing tokens w/ and w/o spaces. +foreach x $spaces { + add the_tests "3$x" unexpected "colon" + add the_tests "+10$x" unexpected "colon" + add the_tests "-10$x" unexpected "colon" +} + +foreach x {1 +1 +100 -10} { + add the_tests "3 $x" unexpected_opt "number" $x + add the_tests "+10 $x" unexpected_opt "number" $x + add the_tests "-10 $x" unexpected_opt "number" $x +} + +add the_tests "3 foo" unexpected_opt "string" "foo" +add the_tests "+10 foo" unexpected_opt "string" "foo" +add the_tests "-10 foo" unexpected_opt "string" "foo" + +# Test invalid linespecs starting with filename. +foreach x [list "this_file_doesn't_exist.c" \ + "this file has spaces.c" \ + "\"file::colons.c\"" \ + "'file::colons.c'" \ + "\"this \"file\" has quotes.c\"" \ + "'this \"file\" has quotes.c'" \ + "'this 'file' has quotes.c'" \ + "\"this 'file' has quotes.c\""] { + # Remove any quoting from FILENAME for the error message. + add the_tests "$x:3" invalid_file [string trim $x \"'] +} + +# Test unmatched quotes. +foreach x {"\"src-file.c'" "'src-file.c"} { + add the_tests "$x:3" unmatched_quote +} + +add the_tests $srcfile invalid_function $srcfile +foreach x {"foo" " foo" " foo "} { + # Trim any leading/trailing whitespace for error messages. + add the_tests "$srcfile:$x" invalid_function_f [string trim $x] $srcfile + add the_tests "$srcfile:main:$x" invalid_label [string trim $x] "main" +} + +foreach x $spaces { + add the_tests "$srcfile$x" unexpected "end of input" + add the_tests "$srcfile:main$x" unexpected "end of input" +} + +add the_tests "${srcfile}::" invalid_function "${srcfile}::" +add the_tests "$srcfile:3 1" unexpected_opt "number" "1" +add the_tests "$srcfile:3 +100" unexpected_opt "number" "+100" +add the_tests "$srcfile:3 -100" unexpected_opt "number" "-100" +add the_tests "$srcfile:3 foo" unexpected_opt "string" "foo" + +foreach x $invalid_offsets { + add the_tests "$srcfile:$x" invalid_offset_f $x $srcfile +} + +# Test invalid filespecs starting with function. +foreach x {"foobar" "foo::bar" "foo.bar" "foo ." "foo bar" "foo 1" \ + "foo 0" "foo +10" "foo -10" "foo +100" "foo -100"} { + add the_tests $x invalid_function $x +} + +foreach x $spaces { + add the_tests "main${x}there" invalid_label "there" "main" + add the_tests "main:here${x}" unexpected "end of input" +} + +add the_tests "main 3" invalid_function "main 3" +add the_tests "main +100" invalid_function "main +100" +add the_tests "main -100" invalid_function "main -100" +add the_tests "main foo" invalid_function "main foo" + +foreach x {"3" "+100" "-100" "foo"} { + add the_tests "main:here $x" invalid_label "here $x" "main" +} + +foreach x {"if" "task" "thread"} { + add the_tests $x unexpected_opt "keyword" $x +} + +# Test undefined convenience variables. +set x {$zippo} +add the_tests $x invalid_var_or_func $x +add the_tests "$srcfile:$x" invalid_var_or_func_f $x $srcfile + +# Run the tests +foreach linespec $the_tests(linespecs) { + gdb_test "break $linespec" $the_tests("$linespec") +}