"delete temp breakpoints"
}
-proc_with_prefix test_rbreak_creation_and_listing {} {
- global line_callee4_body
- global line_callee3_body
- global line_callee2_body
- global line_callee1_body
- global line_main_body
-
- # Insert some breakpoints and list them
- # Also, disable some so they do not interfere with other tests
- # Tests:
- # -break-insert -r main
- # -break-insert -r callee2
- # -break-insert -r callee
- # -break-insert -r .*llee
- # -break-list
-
- setup_kfail "*-*-*" mi/14270
- set bps {}
- lappend bps [mi_make_breakpoint -number 5 -file ".*basics.c" \
- -line $line_main_body]
- mi_gdb_test "122-break-insert -r main" \
- "122\\^done,[lindex $bps end]" \
- "break-insert -r operation"
-
- setup_kfail "*-*-*" mi/14270
- lappend bps [mi_make_breakpoint -number 6 -file ".*basics.c" \
- -line $line_callee2_body]
- mi_gdb_test "133-break-insert -r callee2" \
- "133\\^done,[lindex $bps end]" \
- "insert breakpoint with regexp callee2"
-
- setup_kfail "*-*-*" mi/14270
- set start [llength $bps]
- lappend bps [mi_make_breakpoint -number 7 -file ".*basics.c" \
- -line $line_callee1_body]
- lappend bps [mi_make_breakpoint -number 8 -file ".*basics.c" \
- -line $line_callee2_body]
- lappend bps [mi_make_breakpoint -number 9 -file ".*basics.c" \
- -line $line_callee3_body]
- lappend bps [mi_make_breakpoint -number 10 -file ".*basics.c" \
- -line $line_callee4_body]
- mi_gdb_test "144-break-insert -r callee" \
- "144\\^done,[join [lrange $bps $start end] ,]" \
- "insert breakpoint with regexp callee"
-
- setup_kfail "*-*-*" mi/14270
- set start [llength $bps]
- lappend bps [mi_make_breakpoint -number 11 -file ".*basics.c" \
- -line $line_callee1_body]
- lappend bps [mi_make_breakpoint -number 12 -file ".*basics.c" \
- -line $line_callee2_body]
- lappend bps [mi_make_breakpoint -number 13 -file ".*basics.c" \
- -line $line_callee3_body]
- lappend bps [mi_make_breakpoint -number 14 -file ".*basics.c" \
- -line $line_callee4_body]
- mi_gdb_test "155-break-insert -r \.\*llee" \
- "155\\^done,[join [lrange $bps $start end] ,]" \
- "insert breakpoint with regexp .*llee"
-
- setup_kfail "*-*-*" mi/14270
- mi_gdb_test "166-break-list" \
- "166\\^done,[mi_make_breakpoint_table $bps]" \
- "list of breakpoints"
-
- mi_gdb_test "177-break-delete" \
- "177\\^done" \
- "delete temp breakpoints"
-}
-
proc_with_prefix test_abreak_creation {} {
mi_create_varobj tpnum \$tpnum "create local variable tpnum"
# Test that $tpnum is not set before creating a tracepoint.
mi_gdb_load ${binfile}
test_tbreak_creation_and_listing
- test_rbreak_creation_and_listing
test_ignore_count