1# Copyright 2007-2016 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# This file is part of the gdb testsuite 17 18# This tests setting a break in an ambiguous c++ method with 19# current_language set to c. 20 21if { [skip_cplus_tests] } { continue } 22 23standard_testfile .cc 24 25if {[prepare_for_testing $testfile.exp $testfile $srcfile {debug c++}]} { 26 untested method2.exp 27 return -1 28} 29 30if {![runto_main]} { 31 perror "couldn't run to breakpoint" 32 continue 33} 34 35proc test_break { lang } { 36 global gdb_prompt 37 38 gdb_test "set lang $lang" \ 39 "" \ 40 "setting language $lang" 41 42 # Menu items should be alphabetical 43 set ovlds [lsort {"" "int" "A*"}] 44 set items {"cancel" "all"} 45 foreach ovld $ovlds { 46 lappend items "A::method($ovld)" 47 } 48 set menu_items {} 49 set idx 0 50 foreach item $items { 51 lappend menu_items ".$idx. .*[string_to_regexp $item]" 52 incr idx 53 } 54 set expect [join $menu_items {.*[\r\n]*}] 55 gdb_test_multiple "break A::method" "breaking in method ($lang)" { 56 -re $expect { 57 gdb_test "0" \ 58 "canceled" \ 59 "breaking in method ($lang)" 60 } 61 } 62} 63 64# We want in this test to double-check the contents of the multiple-choice 65# menu that's printed when a breakpoint location is ambiguous. So we need 66# to set multiple-symbols to "ask" first. 67gdb_test_no_output "set multiple-symbols ask" 68 69test_break "c" 70test_break "c++" 71 72gdb_continue_to_end "continue to end" 73