mi-pthreads.exp revision 1.3
1# Copyright 2002-2015 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 tests MI thread commands. 17# Specifically, we are testing the MI command set and the console (in MI) 18# command set ("interpreter-exec") and that the commands that are executed 19# via these command pathways are properly executed. Console commands 20# executed via MI should use MI output wrappers, MI event handlers, etc. 21 22load_lib mi-support.exp 23set MIFLAGS "-i=mi" 24 25gdb_exit 26if {[mi_gdb_start]} { 27 continue 28} 29 30# This procedure tests the various thread commands in MI. 31proc check_mi_thread_command_set {} { 32 33 mi_runto done_making_threads 34 35 set thread_list [get_mi_thread_list "in check_mi_thread_command_set"] 36 37 mi_gdb_test "-thread-select" \ 38 {\^error,msg="-thread-select: USAGE: threadnum."} \ 39 "check_mi_thread_command_set: -thread-select" 40 41 mi_gdb_test "-thread-select 123456789" \ 42 {&.*\^error,msg="Thread ID 123456789 not known\."} \ 43 "check_mi_thread_command_set: -thread-select 123456789" 44 45 foreach thread $thread_list { 46 # line and file are optional. 47 # many of the threads are blocked in libc calls, 48 # and many people have libc's with no symbols. 49 mi_gdb_test "-thread-select $thread" \ 50 "\\^done,new-thread-id=\"$thread\",frame={.*}(,line=\"(-)?\[0-9\]+\",file=\".*\")?" \ 51 "check_mi_thread_command_set: -thread-select $thread" 52 } 53 54 foreach thread $thread_list { 55 mi_gdb_test "-interpreter-exec console \"thread $thread\"" \ 56 ".*\\^done\r\n=thread-selected,id=\"$thread\"" \ 57 "check =thread-selected: thread $thread" 58 } 59} 60 61# 62# Start here 63# 64standard_testfile pthreads.c 65 66set options [list debug] 67if {[gdb_compile_pthreads "$srcdir/$subdir/$srcfile" $binfile executable $options] != "" } { 68 return -1 69} 70 71mi_gdb_reinitialize_dir $srcdir/$subdir 72mi_gdb_load $binfile 73 74check_mi_thread_command_set 75 76mi_gdb_exit 77 78