1 # Copyright 1999-2021 Free Software Foundation, Inc.
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.
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.
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/>.
17 # Test basic Machine interface (MI) operations
19 # Verify that, using the MI, we can load a program and do
20 # other basic things that are used by all test files through mi_gdb_exit,
21 # mi_gdb_start, mi_delete_breakpoints, mi_gdb_reinitialize_dir and
22 # mi_gdb_load, so we can safely use those.
24 # The goal is not to test gdb functionality, which is done by other tests,
25 # but the command syntax and correct output response to MI operations.
28 load_lib mi-support.exp
32 if [mi_gdb_start separate-inferior-tty] {
36 standard_testfile basics.c
37 # This file was audited to ensure that the explicit references to
38 # objdir in it are safe for parallel testing. Please be sure to
39 # maintain this property in any additions.
40 set escapedobjdir [string_to_regexp ${objdir}]
41 set testsubdir [standard_output_file ""]
42 set envirodir [string_to_regexp $testsubdir]
44 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
45 untested "failed to compile"
49 # In this file we want to test if the operations needed by the following
50 # procedures work, so it makes no sense using them here.
52 # mi_delete_breakpoints
53 # mi_gdb_reinitialize_dir $srcdir/$subdir
54 # mi_gdb_load ${binfile}
56 # Test if the MI interpreter has been configured
58 proc test_mi_interpreter_selection {} {
62 # All this test expects is to get the prompt back
63 # with no syntax error message
64 if ![mi_gdb_test "-gdb-version" "~\"GNU gdb.*" "acceptance of MI operations"] {
68 note "Skipping all other MI tests."
72 proc test_exec_and_symbol_mi_operatons {} {
74 global binfile testfile
77 set filename ${testfile}
78 remote_download host ${binfile} ${filename}
80 set filename ${binfile}
83 # Load symbols and specify executable on a single operation
85 # -file-exec-and-symbols
87 if [mi_gdb_test "-file-exec-and-symbols ${filename}" "\\\^done" \
88 "file-exec-and-symbols operation"] {
89 note "Skipping all other MI tests."
93 # The following is not used by mi-support.exp, but we test here so
94 # we get done with loading a program basics.
96 # Do it again, but now load symbols and specify executable with
97 # two separate operations
103 # FIXME: file-clear is not implemented yet.
104 # mi_gdb_test "-file-clear" \
106 # "file-clear operation"
108 mi_gdb_test "-file-exec-file ${filename}" \
110 "file-exec-file operation"
112 mi_gdb_test "-file-symbol-file ${filename}" \
114 "file-symbol-file operation"
116 # We need to return != 0.
120 proc test_breakpoints_deletion {} {
124 # Clear all breakpoints and list to confirm
126 # -break-delete (all)
129 # The all parameter is actually no parameter.
130 mi_gdb_test "200-break-delete" \
132 "break-delete (all) operation"
134 mi_gdb_test "201-break-list" \
135 ".*\\\^done,BreakpointTable=\\\{.*,body=\\\[\\\]\\\}" \
136 "all breakpoints removed"
139 proc test_dir_specification {} {
144 # Add to the search directories, display, then reset back to default
146 # -environment-directory arg
147 # -environment-directory
148 # -environment-directory -r
150 mi_gdb_test "202-environment-directory ${testsubdir}" \
151 "202\\\^done,source-path=\"${envirodir}.\\\$cdir.\\\$cwd\"" \
152 "environment-directory arg operation"
154 mi_gdb_test "203-environment-directory" \
155 "203\\\^done,source-path=\"${envirodir}.\\\$cdir.\\\$cwd\"" \
156 "environment-directory empty-string operation"
158 mi_gdb_test "204-environment-directory -r" \
159 "204\\\^done,source-path=\"\\\$cdir.\\\$cwd\"" \
160 "environment-directory operation"
163 proc test_cwd_specification {} {
168 # Change the working directory, then print the current working directory
170 # -environment-cd ${objdir}
173 mi_gdb_test "205-environment-cd ${objdir}" \
175 "environment-cd arg operation"
177 # The canonical name of the working directory may differ on a
178 # remote host from that on the build system.
179 if ![is_remote host] {
180 mi_gdb_test "206-environment-pwd" \
181 "206\\\^done,cwd=\"${escapedobjdir}\"" \
182 "environment-pwd operation"
186 proc test_path_specification {} {
195 # Add to the path, display, then reset
198 # -environment-path dir1 dir2
199 # -environment-path -r dir
200 # -environment-path -r
202 mi_gdb_test "-environment-path" "\\\^done,path=\"(.*)\"" "environment-path"
203 set orig_path $expect_out(3,string)
205 set orig_path [string_to_regexp ${orig_path}]
207 mi_gdb_test "207-environment-path" \
208 "207\\\^done,path=\"$orig_path\"" \
209 "environment-path no-args operation"
211 mi_gdb_test "208-environment-path $objdir ${testsubdir}" \
212 "208\\\^done,path=\"$escapedobjdir.${envirodir}.$orig_path\"" \
213 "environment-path dir1 dir2 operation"
215 mi_gdb_test "209-environment-path -r $objdir" \
216 "209\\\^done,path=\"$escapedobjdir.$orig_path\"" \
217 "environment-path -r dir operation"
219 mi_gdb_test "210-environment-path -r" \
220 "210\\\^done,path=\"$orig_path\"" \
221 "environment-path -r operation"
225 proc test_setshow_inferior_tty {} {
227 global mi_inferior_tty_name
229 # Test that the commands,
232 # are setting/getting the same data in GDB.
234 mi_gdb_test "301-inferior-tty-show" \
235 "301\\\^done,inferior_tty_terminal=\"$mi_inferior_tty_name\"" \
236 "initial tty is mi_inferior_tty_name"
238 mi_gdb_test "302-inferior-tty-set /dev/pts/1" \
240 "set tty to /dev/pts/1"
242 mi_gdb_test "303-inferior-tty-show" \
243 "303\\\^done,inferior_tty_terminal=\"/dev/pts/1\"" \
244 "tty was set correctly"
246 mi_gdb_test "304-inferior-tty-set" \
248 "set tty to the empty string"
250 mi_gdb_test "305-inferior-tty-show" \
252 "make sure tty is empty"
254 mi_gdb_test "306-inferior-tty-set $mi_inferior_tty_name" \
256 "set tty to mi_inferior_tty_name (the way it was)"
258 mi_gdb_test "307-inferior-tty-show" \
259 "307\\\^done,inferior_tty_terminal=\"$mi_inferior_tty_name\"" \
260 "verify tty is correct"
263 if { [test_mi_interpreter_selection]
264 && [test_exec_and_symbol_mi_operatons] } {
265 test_breakpoints_deletion
266 test_dir_specification
267 test_cwd_specification
268 test_path_specification
269 test_setshow_inferior_tty