1# Copyright 2013-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 16load_lib mi-support.exp 17set MIFLAGS "-i=mi" 18 19gdb_exit 20if [mi_gdb_start] { 21 continue 22} 23 24# First, verify that the debugger correctly advertises support 25# for the -info-gdb-mi-command command. 26mi_gdb_test "-list-features" \ 27 "\\^done,features=\\\[.*\"info-gdb-mi-command\".*\\\]" \ 28 "-list-features includes \"info-gdb-mi-command\"" 29 30mi_gdb_test "-info-gdb-mi-command unsupported-command" \ 31 "\\^done,command=\\\{exists=\"false\"\\\}" \ 32 "-info-gdb-mi-command unsupported-command" 33 34# Same test as above, but including the leading '-' in the command name. 35mi_gdb_test "-info-gdb-mi-command -unsupported-command" \ 36 "\\^done,command=\\\{exists=\"false\"\\\}" \ 37 "-info-gdb-mi-command -unsupported-command" 38 39mi_gdb_test "-info-gdb-mi-command symbol-list-lines" \ 40 "\\^done,command=\\\{exists=\"true\"\\\}" \ 41 "-info-gdb-mi-command symbol-list-lines" 42 43# Same test as above, but including the leading '-' in the command name. 44mi_gdb_test "-info-gdb-mi-command -symbol-list-lines" \ 45 "\\^done,command=\\\{exists=\"true\"\\\}" \ 46 "-info-gdb-mi-command -symbol-list-lines" 47