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