1 # Copyright 1999-2016 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/>.
16 # Test Machine interface (MI) operations
18 # Test MI breakpoint commands.
20 # The goal is not to test gdb functionality, which is done by other
21 # tests, but to verify the correct output response to MI operations.
23 load_lib mi-support.exp
26 standard_testfile basics.c
28 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
29 untested "failed to compile"
33 # Locate line numbers in basics.c.
34 set line_callee4_head [gdb_get_line_number "callee4 ("]
35 set line_callee4_body [expr $line_callee4_head + 2]
36 set line_callee3_head [gdb_get_line_number "callee3 ("]
37 set line_callee3_body [expr $line_callee3_head + 2]
38 set line_callee2_head [gdb_get_line_number "callee2 ("]
39 set line_callee2_body [expr $line_callee2_head + 2]
40 set line_callee1_head [gdb_get_line_number "callee1 ("]
41 set line_callee1_body [expr $line_callee1_head + 2]
42 set line_main_head [gdb_get_line_number "main ("]
43 set line_main_body [expr $line_main_head + 2]
44 set line_callme_head [gdb_get_line_number "callme ("]
45 set line_callme_body [expr $line_callme_head + 2]
47 set fullname "fullname=\"${fullname_syntax}${srcfile}\""
49 proc test_tbreak_creation_and_listing {} {
51 global line_callee4_head
52 global line_callee3_head
53 global line_callee2_body
56 # Insert some breakpoints and list them
57 # Also, disable some so they do not interfere with other tests
59 # -break-insert -t main
60 # -break-insert -t basics.c:callee2
61 # -break-insert -t basics.c:$line_callee3_head
62 # -break-insert -t srcfile:$line_callee4_head
66 lappend bps [mi_create_breakpoint "-t main" "break-insert -t operation" \
67 -number 1 -disp del -func main -file ".*basics.c" \
68 -line $line_main_body]
70 lappend bps [mi_create_breakpoint "-t basics.c:callee2" \
71 "insert temp breakpoint at basics.c:callee2" \
72 -number 2 -disp del -func callee2 -file ".*basics.c" \
73 -line $line_callee2_body]
75 lappend bps [mi_create_breakpoint "-t basics.c:$line_callee3_head" \
76 "insert temp breakpoint at basics.c:\$line_callee3_head" \
77 -number 3 -disp del -func callee3 -file ".*basics.c" \
78 -line $line_callee3_head]
80 # Getting the quoting right is tricky.
81 # That is "\"<file>\":$line_callee4_head"
82 lappend bps [mi_create_breakpoint \
83 "-t \"\\\"${srcfile}\\\":$line_callee4_head\"" \
84 "insert temp breakpoint at \"<fullfilename>\":\$line_callee4_head" \
85 -number 4 -disp del -func callee4 -file ".*basics.c" \
86 -line $line_callee4_head]
88 mi_gdb_test "666-break-list" \
89 "666\\\^done,[mi_make_breakpoint_table $bps]" \
92 mi_gdb_test "777-break-delete" \
94 "delete temp breakpoints"
97 proc test_rbreak_creation_and_listing {} {
98 global line_callee4_body
99 global line_callee3_body
100 global line_callee2_body
101 global line_callee1_body
102 global line_main_body
104 # Insert some breakpoints and list them
105 # Also, disable some so they do not interfere with other tests
107 # -break-insert -r main
108 # -break-insert -r callee2
109 # -break-insert -r callee
110 # -break-insert -r .*llee
113 setup_kfail "*-*-*" mi/14270
115 lappend bps [mi_make_breakpoint -number 5 -file ".*basics.c" \
116 -line $line_main_body]
117 mi_gdb_test "122-break-insert -r main" \
118 "122\\^done,[lindex $bps end]" \
119 "break-insert -r operation"
121 setup_kfail "*-*-*" mi/14270
122 lappend bps [mi_make_breakpoint -number 6 -file ".*basics.c" \
123 -line $line_callee2_body]
124 mi_gdb_test "133-break-insert -r callee2" \
125 "133\\^done,[lindex $bps end]" \
126 "insert breakpoint with regexp callee2"
128 setup_kfail "*-*-*" mi/14270
129 set start [llength $bps]
130 lappend bps [mi_make_breakpoint -number 7 -file ".*basics.c" \
131 -line $line_callee1_body]
132 lappend bps [mi_make_breakpoint -number 8 -file ".*basics.c" \
133 -line $line_callee2_body]
134 lappend bps [mi_make_breakpoint -number 9 -file ".*basics.c" \
135 -line $line_callee3_body]
136 lappend bps [mi_make_breakpoint -number 10 -file ".*basics.c" \
137 -line $line_callee4_body]
138 mi_gdb_test "144-break-insert -r callee" \
139 "144\\^done,[join [lrange $bps $start end] ,]" \
140 "insert breakpoint with regexp callee"
142 setup_kfail "*-*-*" mi/14270
143 set start [llength $bps]
144 lappend bps [mi_make_breakpoint -number 11 -file ".*basics.c" \
145 -line $line_callee1_body]
146 lappend bps [mi_make_breakpoint -number 12 -file ".*basics.c" \
147 -line $line_callee2_body]
148 lappend bps [mi_make_breakpoint -number 13 -file ".*basics.c" \
149 -line $line_callee3_body]
150 lappend bps [mi_make_breakpoint -number 14 -file ".*basics.c" \
151 -line $line_callee4_body]
152 mi_gdb_test "155-break-insert -r \.\*llee" \
153 "155\\^done,[join [lrange $bps $start end] ,]" \
154 "insert breakpoint with regexp .*llee"
156 setup_kfail "*-*-*" mi/14270
157 mi_gdb_test "166-break-list" \
158 "166\\^done,[mi_make_breakpoint_table $bps]" \
159 "list of breakpoints"
161 mi_gdb_test "177-break-delete" \
163 "delete temp breakpoints"
166 proc test_abreak_creation {} {
167 mi_create_varobj tpnum \$tpnum "create local variable tpnum"
168 # Test that $tpnum is not set before creating a tracepoint.
169 mi_gdb_test "521-var-evaluate-expression tpnum" \
170 "521\\^done,value=\"void\"" "eval tpnum before tracepoint"
172 mi_gdb_test "522-break-insert -a main" \
173 "522\\^done,[mi_make_breakpoint -number 10 -type tracepoint]" \
174 "break-insert -a operation"
176 mi_gdb_test "523-var-update tpnum" \
177 "523\\^done,changelist=\\\[\{name=\"tpnum\",in_scope=\"true\",type_changed=\"false\",has_more=\"0\"\}\\\]" \
179 # Test that $tpnum is updated after creating a tracepoint.
180 mi_gdb_test "524-var-evaluate-expression tpnum" \
181 "524\\^done,value=\"10\"" "eval tpnum after tracepoint"
184 proc test_ignore_count {} {
185 global line_callme_body
187 mi_gdb_test "-break-insert -i 1 callme" \
188 "\\^done,[mi_make_breakpoint -ignore 1]" \
189 "insert breakpoint with ignore count at callme"
193 mi_expect_stop "breakpoint-hit" "callme" "\{name=\"i\",value=\"2\"\}" ".*basics.c" $line_callme_body \
194 {"" "disp=\"keep\"" } "run to breakpoint with ignore count"
198 mi_gdb_test "-break-insert function_that_does_not_exist" \
199 ".*\\^error,msg=\"Function \\\\\"function_that_does_not_exist\\\\\" not defined.\"" \
200 "breakpoint at nonexistent function"
202 # We used to have a bug whereby -break-insert that failed would not
203 # clear some event hooks. As result, whenever we evaluate expression
204 # containing function call, the internal breakpoint created to handle
205 # function call would be reported, messing up MI output.
206 mi_gdb_test "-var-create V * return_1()" \
207 "\\^done,name=\"V\",numchild=\"0\",value=\"1\",type=\"int\",has_more=\"0\"" \
208 "create varobj for function call"
210 mi_gdb_test "-var-update *" \
211 "\\^done,changelist=\\\[\\\]" \
212 "update varobj for function call"
214 # Try setting breakpoints with garbage after the location.
216 # "if" only works in the CLI. It's not supposed to be accepted by
217 # MI. The way to specify a condition is with -c.
218 mi_gdb_test "-break-insert \"callme if i < 4\"" \
219 ".*\\^error,msg=\"Garbage 'if i < 4' at end of location\"" \
220 "breakpoint with garbage after location"
222 mi_gdb_test "-break-insert -c i==4 \"callme if i < 4\"" \
223 ".*\\^error,msg=\"Garbage 'if i < 4' at end of location\"" \
224 "conditional breakpoint with garbage after location"
227 proc test_disabled_creation {} {
228 global line_callee2_body
230 set bp [mi_make_breakpoint -number 6 -type breakpoint -disp keep \
231 -enabled n -func callee2 -file ".*basics.c" \
232 -line $line_callee2_body]
233 mi_gdb_test "-break-insert -d basics.c:callee2" \
235 "test disabled creation"
237 mi_gdb_test "-break-delete" \
239 "test disabled creation: cleanup"
242 proc test_breakpoint_commands {} {
243 global line_callee2_body
246 [mi_create_breakpoint "basics.c:callee2" \
247 "breakpoint commands: insert breakpoint at basics.c:callee2" \
248 -number 7 -disp keep -func callee2 -file ".*basics.c" \
249 -line $line_callee2_body]
251 mi_gdb_test "-break-commands 7 \"print 10\" \"continue\"" \
253 "breakpoint commands: set commands"
255 # Rebuild the breakpoint regexp instead of using the one returned
256 # by mi_create_breakpoint. Only in -break-info is the actual script
258 set bp_script [mi_make_breakpoint -number 7 -disp keep -func callee2 \
259 -file ".*basics.c" -line $line_callee2_body \
260 -script {\{"print 10","continue"\}}]
261 mi_gdb_test "-break-info 7" \
262 "\\^done,[mi_make_breakpoint_table [list $bp_script]]" \
263 "breakpoint commands: check that commands are set"
265 mi_gdb_test "-break-commands 7" \
267 "breakpoint commands: clear commands"
269 mi_gdb_test "-break-info" \
270 "\\^done,[mi_make_breakpoint_table [list $bp_no_script]]" \
271 "breakpoint commands: check that commands are cleared"
275 mi_create_breakpoint "basics.c:callee2" \
276 "breakpoint commands: insert breakpoint at basics.c:callee2, again" \
277 -number 9 -disp keep -func callee2 -file ".*basics.c" \
278 -line $line_callee2_body
280 mi_gdb_test "-break-commands 9 \"set \$i=0\" \"while \$i<10\" \"print \$i\" \"set \$i=\$i+1\" \"end\" \"continue\" " \
282 "breakpoint commands: set commands"
284 mi_send_resuming_command "exec-continue" "breakpoint commands: continue"
287 # The breakpoint command's output is always sent to the main UI,
288 # even when testing with MI running on a secondary UI.
289 global gdb_main_spawn_id
291 set test "intermediate stop and continue, bp commands"
293 -i $gdb_main_spawn_id
294 -re ".*\\\$1 = 0.*\\\$10 = 9" {
302 set test "intermediate stop and continue, mi running"
312 mi_expect_stop "exited-normally" "" "" "" "" "" "test hitting breakpoint with commands"
315 # Test explicit breakpoints. These tests only test the MI portion of the
316 # code. In-depth testing of explicit breakpoints is accomplished in
317 # gdb.linespec tests.
319 proc test_explicit_breakpoints {} {
321 global line_callee3_head line_callee4_head
322 global line_callee2_body line_main_body
324 mi_delete_breakpoints
326 # First check mixed explicit/parsed linespecs.
327 mi_gdb_test "-break-insert --function main $srcfile:$line_callee3_head" \
328 ".*Garbage following explicit linespec"
330 # Insert some breakpoints and list them
331 # Also, disable some so they do not interfere with other tests
333 # -break-insert -t --function main
334 # -break-insert -t --source basics.c --function callee2
335 # -break-insert -t --source basics.c --line $line_callee3_head
336 # -break-insert -t --source srcfile --line $line_callee4_head
340 lappend bps [mi_create_breakpoint "-t --function main" \
341 "insert temp explicit breakpoint in main" \
342 -func main -file ".*$srcfile" -line $line_main_body]
345 [mi_create_breakpoint "-t --source $srcfile --function callee2" \
346 "insert temp explicit breakpoint at $srcfile:callee2" \
347 -func callee2 -file ".*$srcfile" -line $line_callee2_body]
350 [mi_create_breakpoint "-t --source $srcfile --line $line_callee3_head" \
351 "insert temp explicit breakpoint at $srcfile:$line_callee3_head" \
352 -func callee3 -file ".*$srcfile" -line $line_callee3_head]
355 [mi_create_breakpoint \
356 "-t --source \"$srcfile\" --line $line_callee4_head" \
357 "insert temp explicit breakpoint at \"$srcfile\":$line_callee4_head" \
358 -func callee4 -file ".*$srcfile" -line $line_callee4_head]
360 mi_gdb_test "-break-list" "\\^done,[mi_make_breakpoint_table $bps]" \
361 "list of explicit breakpoints"
363 mi_gdb_test "-break-delete" \
365 "delete temp breakpoints"
367 mi_create_breakpoint "-c \"intarg == 3\" --function callee2" \
368 "insert explicit conditional breakpoint in callee2" \
369 -func callee2 ".*$srcfile" -line $line_callee2_body \
372 # mi_create_breakpoint cannot deal with displaying canonical
375 "-break-insert -c \"foo == 3\" --source $srcfile --function main --label label" \
376 ".*No symbol \"foo\" in current context.*"
379 "-break-insert --source foobar.c --line 3" \
380 ".*No source file named foobar.c.*"
383 "-break-insert --source $srcfile --function foobar" \
384 ".*Function \"foobar\" not defined in \"$srcfile\".*"
387 "-break-insert --source $srcfile --function main --label foobar" \
388 ".*No label \"foobar\" defined in function \"main\".*"
391 "-break-insert --source $srcfile" \
392 ".*Source filename requires function, label, or line offset.*"
395 proc test_break {mi_mode} {
396 global srcdir subdir binfile
400 if {$mi_mode == "separate"} {
401 set start_ops "separate-mi-tty"
405 if [mi_gdb_start $start_ops] {
409 mi_delete_breakpoints
410 mi_gdb_reinitialize_dir $srcdir/$subdir
411 mi_gdb_load ${binfile}
413 test_tbreak_creation_and_listing
414 test_rbreak_creation_and_listing
420 test_disabled_creation
422 test_breakpoint_commands
426 test_explicit_breakpoints
429 foreach_with_prefix mi-mode {"main" "separate"} {
430 test_break ${mi-mode}