1# Copyright (C) 2008-2020 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. It tests PR 19743. 17 18load_lib mi-support.exp 19set MIFLAGS "-i=mi2" 20 21gdb_exit 22if [mi_gdb_start] { 23 continue 24} 25 26standard_testfile 27set pyfile ${testfile}-gdb.py 28 29if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { 30 untested "failed to compile" 31 return -1 32} 33 34if { [mi_skip_python_tests] } { continue } 35 36set remote_python_file [gdb_remote_download host ${srcdir}/${subdir}/${pyfile}] 37 38mi_delete_breakpoints 39mi_gdb_reinitialize_dir $srcdir/$subdir 40mi_gdb_test "set auto-load safe-path ${remote_python_file}" \ 41 {.*\^done} \ 42 "set safe-path" 43 44if [is_remote host] { 45 set filename ${testfile} 46 remote_download host ${binfile} ${filename} 47} else { 48 set filename ${binfile} 49} 50 51mi_gdb_test "-file-exec-and-symbols ${filename}" ".*\\^done" "file-exec-and-symbols operation" 52mi_run_to_main 53 54 55# register the python event handlers with test-events command 56mi_gdb_test "test-events" \ 57 ".*~\"Event testers registered.*\\^done" \ 58 "register events" 59 60 61set lineno [gdb_get_line_number "i++;"] 62 63# set a breakpoint into the for loop 64mi_gdb_test "break ${srcfile}:$lineno" \ 65 ".*Breakpoint $decimal at 0x\[0-9a-fA-F\]+: file .*${srcfile}.*\\\.*\\^done" \ 66 "set the breakpoint" 67 68 69# resume the program 70mi_execute_to "exec-continue" "breakpoint-hit" "main" "" ".*$srcfile" "$lineno" { "" "disp=\"keep\"" } "continue" 71 72 73# test the python event handlers execution. The following checks are performed: 74# - python continue handler is executed 75# - the continue handler prints "info breakpoints" output in console format 76# - breakpoint is hit and python stop handler is executed 77# - the stop handler prints "info breakpoints" output in console format 78 79mi_gdb_test "python print (stop_handler_str)" \ 80".*stop_handler.*Num.*Type.*Disp.*Enb.*Address.*$decimal.*breakpoint.*keep.*y.* 0x\[0-9a-fA-F\]+.*${srcfile}.*" \ 81"python stop handler ran" 82 83mi_gdb_test "python print (cont_handler_str)" \ 84".*continue_handler.*Num.*Type.*Disp.*Enb.*Address.*$decimal.*breakpoint.*keep.*y.* 0x\[0-9a-fA-F\]+.*${srcfile}.*" \ 85"python continue handler ran" 86 87mi_gdb_exit 88