1# Copyright 2017-2019 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# Test that -list-thread-groups --available works. 17 18load_lib mi-support.exp 19set MIFLAGS "-i=mi" 20 21standard_testfile 22 23# Support for XML is needed to run this test. 24if [gdb_skip_xml_test] then { 25 unsupported "list-thread-groups-available.exp" 26 return -1 27} 28 29if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { 30 untested "failed to compile" 31 return -1 32} 33 34if [mi_gdb_start] { 35 continue 36} 37 38if ![can_spawn_for_attach] { 39 continue 40} 41 42set string_re {(?:[^\\"]|\\.)*} 43 44set id_re "id=\"$decimal\"" 45set type_re "type=\"process\"" 46set description_re "description=\"$string_re\"" 47set user_re "user=\"$string_re\"" 48 49# The CORES_RE regexp allows a process to be running on zero or more 50# cores. The former can happen if a process exits while GDB is 51# reading information out of /proc. 52set cores_re "cores=\\\[(\"$decimal\"(,\"$decimal\")*)?\\\]" 53 54# List all available processes. 55set process_entry_re "{${id_re},${type_re}(,$description_re)?(,$user_re)?(,$cores_re)?}" 56 57mi_gdb_test \ 58 "-list-thread-groups --available" \ 59 "\\^done,groups=\\\[${process_entry_re}(,$process_entry_re)*\\\]" \ 60 "list available thread groups" 61 62# List specific processes, make sure there are two entries. 63set spawn_id_1 [remote_spawn target $binfile] 64set pid_1 [spawn_id_get_pid $spawn_id_1] 65set id_re_1 "id=\"$pid_1\"" 66 67set spawn_id_2 [remote_spawn target $binfile] 68set pid_2 [spawn_id_get_pid $spawn_id_2] 69set id_re_2 "id=\"$pid_2\"" 70 71# Unlike the earlier CORES_RE this list must contain at least one 72# core. Given that we know these processes will not exit while GDB is 73# reading their information from /proc we can expect at least one core 74# for each process. 75set cores_re "cores=\\\[\"$decimal\"(,\"$decimal\")*\\\]" 76 77set process_entry_re_1 "{${id_re_1},${type_re}(,$description_re)?(,$user_re)?(,$cores_re)?}" 78set process_entry_re_2 "{${id_re_2},${type_re}(,$description_re)?(,$user_re)?(,$cores_re)?}" 79 80set process_list_re "(${process_entry_re_1},${process_entry_re_2}|${process_entry_re_2},${process_entry_re_1})" 81 82mi_gdb_test \ 83 "-list-thread-groups --available i${pid_1} i${pid_2}" \ 84 "\\^done,groups=\\\[${process_list_re}\\\]" \ 85 "list available thread groups with filter" 86 87kill_wait_spawned_process $spawn_id_1 88kill_wait_spawned_process $spawn_id_2 89