1# Copyright (C) 2010-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 16if {[is_remote target]} { 17 # RuntimeError: Could not find event thread 18 kfail "python/12966" "Run to breakpoint 1" 19 return -1 20} 21 22if { ![support_displaced_stepping] } { 23 unsupported "displaced stepping" 24 return -1 25} 26 27load_lib gdb-python.exp 28 29standard_testfile 30set pyfile ${srcdir}/${subdir}/py-events.py 31 32if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { 33 return -1 34} 35clean_restart $testfile 36 37if { [skip_python_tests] } { continue } 38 39gdb_test_no_output "python exec (open ('${pyfile}').read ())" "" 40 41gdb_test "test-events" "Event testers registered." 42gdb_test_no_output "set non-stop on" 43 44gdb_breakpoint "main" 45gdb_breakpoint "thread2" 46gdb_breakpoint "thread3" 47 48gdb_run_cmd 49set test "Run to breakpoint 1" 50gdb_test_multiple "" $test { 51 -re "event type: stop\r\nstop reason: breakpoint\r\nfirst breakpoint number: 1\r\nbreakpoint number: 1\r\nthread num: 1\r\n.*$gdb_prompt $" { 52 pass $test 53 } 54 -re "The target does not support running in non-stop mode" { 55 unsupported "non-stop mode is unsupported" 56 return 57 } 58} 59 60gdb_test "next" "event type: stop\r\nstop reason: breakpoint\r\nfirst breakpoint number: 2\r\nbreakpoint number: 2\r\nthread num: 2.*" "reached breakpoint 2" 61 62gdb_test "thread 2" {\[Switching to thread 2 .*} 63 64gdb_test "next" "event type: stop\r\nstop reason: breakpoint\r\nfirst breakpoint number: 3\r\nbreakpoint number: 3\r\nthread num: 3.*" "reached breakpoint 3" 65 66gdb_test "thread 3" {\[Switching to thread 3 .*} 67 68set test "continue thread 1" 69gdb_test_multiple "continue&" $test { 70 -re "event type: continue\r\nthread num: 3\r\n$gdb_prompt " { 71 # This expect string must not expect the end-of-buffer '$'. 72 pass $test 73 } 74} 75 76set test "thread 3 was signaled" 77gdb_test_multiple "" $test { 78 -re "event type: stop\r\nstop reason: signal\r\nstop signal: SIGUSR1\r\nthread num: 3\r\nevent type: stop\r\n" { 79 pass $test 80 } 81} 82