# 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 . # Test hand-calling go functions. load_lib "go.exp" if { [skip_go_tests] } { continue } standard_testfile .go if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug go}] } { return -1 } set bp_location1 [gdb_get_line_number "set breakpoint 1 here"] if { [go_runto_main] < 0 } { untested $testfile return -1 } if { [gdb_breakpoint ${srcfile}:${bp_location1}] } { pass "setting breakpoint 1" } gdb_test "cont" "Breakpoint .*:${bp_location1}.*" "Going to first breakpoint" gdb_test "print add (1, 2)" " = 3" gdb_test "print main.add (1, 2)" " = 3"