gdb/testsuite/

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.trace / disconnected-tracing.exp

diff --git a/gdb/testsuite/gdb.trace/disconnected-tracing.exp b/gdb/testsuite/gdb.trace/disconnected-tracing.exp
index bec016ea55fdae86e3eec4243f740fa4851aa545..03d7d09d6e27b7a20a8258ecec5871fe89764d1f 100644 (file)
--- a/gdb/testsuite/gdb.trace/disconnected-tracing.exp
+++ b/gdb/testsuite/gdb.trace/disconnected-tracing.exp
@@ -45,101 +45,105 @@ if ![gdb_target_supports_trace] {
 
 # Disconnect in tracing.
 
-proc disconnected_tracing {  } { with_test_prefix "trace" {
-    global executable
-    global decimal
-    global srcfile
-
-    # Start with a fresh gdb.
-    clean_restart ${executable}
-    if ![runto_main] {
-       fail "Can't run to main"
-       return -1
-    }
-
-    gdb_test_no_output "set confirm off"
-    gdb_test_no_output "set disconnected-tracing on"
-    gdb_test "trace start" ".*"
-    gdb_trace_setactions "collect on tracepoint 2" "2" \
-       "collect foo" "^$"
-    gdb_test "break end" "Breakpoint ${decimal} at .*"
-
-    gdb_test_no_output "tstart"
-
-    gdb_test "continue" "Continuing\\.\[ \r\n\]+Breakpoint.*"
-    gdb_test_no_output "tstop"
-
-    gdb_test "info tracepoints" ".*in start at.*" \
-       "first info tracepoints"
-
-    gdb_test "disconnect" "Ending remote debugging\\." "first disconnect"
-    if { [gdb_reconnect] == 0 } {
-       pass "first reconnect after unload"
-    } else {
-       fail "first reconnect after unload"
-       return 0
-    }
-    gdb_test "info tracepoints" ".*in start at.*" \
-       "second info tracepoints"
-
-    delete_breakpoints
-    gdb_test "info tracepoints" ".*No tracepoints..*" \
-       "third info tracepoints"
-
-    gdb_test "disconnect" "Ending remote debugging\\." "second disconnect"
-    if { [gdb_reconnect] == 0 } {
-       pass "second reconnect after unload"
-    } else {
-       fail "second reconnect after unload"
-       return 0
-    }
-    gdb_test "tstatus"
-    gdb_test "info tracepoints" \
-       "Num     Type\[ \]+Disp Enb Address\[ \]+What.*
+proc disconnected_tracing {  } {
+    with_test_prefix "trace" {
+       global executable
+       global decimal
+       global srcfile
+
+       # Start with a fresh gdb.
+       clean_restart ${executable}
+       if ![runto_main] {
+           fail "Can't run to main"
+           return -1
+       }
+
+       gdb_test_no_output "set confirm off"
+       gdb_test_no_output "set disconnected-tracing on"
+       gdb_test "trace start" ".*"
+       gdb_trace_setactions "collect on tracepoint 2" "2" \
+           "collect foo" "^$"
+       gdb_test "break end" "Breakpoint ${decimal} at .*"
+
+       gdb_test_no_output "tstart"
+
+       gdb_test "continue" "Continuing\\.\[ \r\n\]+Breakpoint.*"
+       gdb_test_no_output "tstop"
+
+       gdb_test "info tracepoints" ".*in start at.*" \
+           "first info tracepoints"
+
+       gdb_test "disconnect" "Ending remote debugging\\." "first disconnect"
+       if { [gdb_reconnect] == 0 } {
+           pass "first reconnect after unload"
+       } else {
+           fail "first reconnect after unload"
+           return 0
+       }
+       gdb_test "info tracepoints" ".*in start at.*" \
+           "second info tracepoints"
+
+       delete_breakpoints
+       gdb_test "info tracepoints" ".*No tracepoints..*" \
+           "third info tracepoints"
+
+       gdb_test "disconnect" "Ending remote debugging\\." "second disconnect"
+       if { [gdb_reconnect] == 0 } {
+           pass "second reconnect after unload"
+       } else {
+           fail "second reconnect after unload"
+           return 0
+       }
+       gdb_test "tstatus"
+       gdb_test "info tracepoints" \
+           "Num     Type\[ \]+Disp Enb Address\[ \]+What.*
 \[0-9\]+\[\t \]+tracepoint     keep y.* in start at .*$srcfile:\[0-9\]+.
 \[\t \]+tracepoint already hit 1 time.
 \[\t \]+trace buffer usage ${decimal} bytes.
 \[\t \]+collect foo.*" \
-       "fourth info tracepoints"
-}}
+           "fourth info tracepoints"
+    }
+}
 
 disconnected_tracing
 
 # Disconnected in tfind
 
-proc disconnected_tfind {  } { with_test_prefix "tfind" {
-    global executable
-    global decimal
-
-    # Start with a fresh gdb.
-    clean_restart ${executable}
-    if ![runto_main] {
-       fail "Can't run to main"
-       return -1
+proc disconnected_tfind {  } {
+    with_test_prefix "tfind" {
+       global executable
+       global decimal
+
+       # Start with a fresh gdb.
+       clean_restart ${executable}
+       if ![runto_main] {
+           fail "Can't run to main"
+           return -1
+       }
+
+       gdb_test_no_output "set confirm off"
+       gdb_test_no_output "set disconnected-tracing on"
+       gdb_test "trace start" ".*"
+       gdb_test_no_output "tstart"
+
+       gdb_test "break end" "Breakpoint ${decimal} at .*"
+       gdb_test "continue" "Continuing\\.\[ \r\n\]+Breakpoint.*"
+       gdb_test_no_output "tstop"
+
+       gdb_test "tfind" "Found trace frame 0, tracepoint .*" "tfind frame 0"
+       gdb_test "p \$trace_frame" ".*\\\$${decimal} = 0.*" \
+           "p \$trace_frame before disconnected"
+       gdb_test "p \$tracepoint" ".*\\\$${decimal} = 2.*" \
+           "p \$tracepoint before disconnected"
+
+       gdb_test "disconnect" "Ending remote debugging\\." "first disconnect"
+
+       gdb_test "p \$trace_frame" ".*\\\$${decimal} = -1.*"
+       gdb_test "p \$tracepoint" ".*\\\$${decimal} = -1.*"
+       gdb_test "p \$trace_line" ".*\\\$${decimal} = -1.*"
+       gdb_test "p \$trace_file" ".*\\\$${decimal} = void.*"
+       gdb_test "p \$trace_func" ".*\\\$${decimal} = void.*"
     }
-
-    gdb_test_no_output "set confirm off"
-    gdb_test_no_output "set disconnected-tracing on"
-    gdb_test "trace start" ".*"
-    gdb_test_no_output "tstart"
-
-    gdb_test "break end" "Breakpoint ${decimal} at .*"
-    gdb_test "continue" "Continuing\\.\[ \r\n\]+Breakpoint.*"
-    gdb_test_no_output "tstop"
-
-    gdb_test "tfind" "Found trace frame 0, tracepoint .*" "tfind frame 0"
-    gdb_test "p \$trace_frame" ".*\\\$${decimal} = 0.*" \
-       "p \$trace_frame before disconnected"
-    gdb_test "p \$tracepoint" ".*\\\$${decimal} = 2.*" \
-       "p \$tracepoint before disconnected"
-
-    gdb_test "disconnect" "Ending remote debugging\\." "first disconnect"
-
-    gdb_test "p \$trace_frame" ".*\\\$${decimal} = -1.*"
-    gdb_test "p \$tracepoint" ".*\\\$${decimal} = -1.*"
-    gdb_test "p \$trace_line" ".*\\\$${decimal} = -1.*"
-    gdb_test "p \$trace_file" ".*\\\$${decimal} = void.*"
-    gdb_test "p \$trace_func" ".*\\\$${decimal} = void.*"
-}}
+}
 
 disconnected_tfind