--- a/testsuite/gdb.trace/disconnected-tracing.exp +++ b/testsuite/gdb.trace/disconnected-tracing.exp @@ -65,6 +65,8 @@ proc disconnected_tracing { } { "collect foo" "^$" gdb_test "break end" "Breakpoint ${decimal} at .*" + gdb_test_no_output "set default-collect \$regs" + gdb_test_no_output "tstart" gdb_test "continue" "Continuing\\.\[ \r\n\]+Breakpoint.*" @@ -73,6 +75,8 @@ proc disconnected_tracing { } { gdb_test "info tracepoints" ".*in start at.*" \ "first info tracepoints" + gdb_test_no_output "set default-collect" + gdb_test "disconnect" "Ending remote debugging\\." "first disconnect" if { [gdb_reconnect] == 0 } { pass "first reconnect after unload" @@ -83,6 +87,8 @@ proc disconnected_tracing { } { gdb_test "info tracepoints" ".*in start at.*" \ "second info tracepoints" + gdb_test "show default-collect" "The list of expressions to collect by default is \"\\\$regs\".*" + delete_breakpoints gdb_test "info tracepoints" ".*No tracepoints..*" \ "third info tracepoints" --- a/testsuite/gdb.trace/tstatus.exp +++ b/testsuite/gdb.trace/tstatus.exp @@ -137,6 +137,8 @@ proc test_tracepoints {} { test_tracepoints +gdb_test_no_output "set default-collect \$regs" + set tracefile [standard_output_file ${testfile}] # Save trace frames to tfile. gdb_test "tsave ${tracefile}.tf" \ @@ -147,6 +149,8 @@ gdb_test "tsave -ctf ${tracefile}.ctf" \ "Trace data saved to directory '${tracefile}.ctf'.*" \ "save ctf trace file" +gdb_test_no_output "set default-collect" + # Change target to tfile. set test "change to tfile target" gdb_test_multiple "target tfile ${tracefile}.tf" "$test" { @@ -159,6 +163,8 @@ gdb_test_multiple "target tfile ${tracef } } +gdb_test "show default-collect" "The list of expressions to collect by default is \"\\\$regs\".*" + # Convert "(because I can) to "\(because I can\)" set tstatus_output [string map {\( \\(} $tstatus_output] set tstatus_output [string map {\) \\)} $tstatus_output]