1# Copyright 2002-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 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	  ".*=thread-selected,id=\"$thread\".*\r\n\\^done" \
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