[PATCH v3 09/15] Check the tstatus output on tfile target

[Yao Qi <yao at codesourcery dot com>]

There is no reason that the "tstatus" output on tfile target is
different from its output on live target (except for "Using a trace
file").  In this patch, we capture the output of "tstatus" in live
target, and use it to check the "tstatus" output in tfile target.  It
is quite useful to expose the differences in "tstatus" output and the
previous two patches are to fix these differences.

gdb/testsuite:

2013-03-08  Yao Qi  <yao@codesourcery.com>

	* gdb.trace/tstatus.exp (run_trace_experiment): Save the output
	of 'tstatus' into tstatus_output.
	(top level): Save the trace data to tfile.  Read trace file in
	tfile target.  Check the trace status.
---
 gdb/testsuite/gdb.trace/tstatus.exp |   32 ++++++++++++++++++++++++++++++--
 1 files changed, 30 insertions(+), 2 deletions(-)

diff --git a/gdb/testsuite/gdb.trace/tstatus.exp b/gdb/testsuite/gdb.trace/tstatus.exp
index 743db91..c105048 100644
--- a/gdb/testsuite/gdb.trace/tstatus.exp
+++ b/gdb/testsuite/gdb.trace/tstatus.exp
@@ -34,9 +34,12 @@ if ![gdb_target_supports_trace] {
     return -1
 }
 
+set tstatus_output ""
+
 proc run_trace_experiment {} {
     global gdb_prompt
     global decimal
+    global tstatus_output
 
 #    gdb_test_no_output "set debug remote 1" ""
 
@@ -93,10 +96,12 @@ proc run_trace_experiment {} {
 
     set test "tstatus reports trace stop reason"
     gdb_test_multiple "tstatus" $test {
-	-re "Trace stopped by a tstop command \\(because I can\\)\..*Trace will stop if GDB disconnects\.\[\r\n\]+Trace user is me me me\.\[\r\n\]+Trace notes: different note\.\[\r\n\]+Not looking at any trace frame\..*\r\n$gdb_prompt $" {
+	-re "(Trace stopped by a tstop command \\(because I can\\)\..*Trace will stop if GDB disconnects\.\[\r\n\]+Trace user is me me me\.\[\r\n\]+Trace notes: different note\.\[\r\n\]+Not looking at any trace frame\.).*\r\n$gdb_prompt $" {
+	    set tstatus_output $expect_out(1,string)
 	    pass $test
 	}
-	-re "Trace stopped by a tstop command\..*\r\n$gdb_prompt $" {
+	-re "(Trace stopped by a tstop command\.).*\r\n$gdb_prompt $" {
+	    set tstatus_output $expect_out(1,string)
 	    unsupported $test
 	}
     }
@@ -131,3 +136,26 @@ proc test_tracepoints {} {
 }
 
 test_tracepoints
+
+# Save trace frames to tfile.
+gdb_test "tsave tstatus.tf" "Trace data saved to file 'tstatus.tf'.*"
+
+# Change target to tfile.
+set test "change to tfile target"
+gdb_test_multiple "target tfile tstatus.tf" "$test" {
+    -re "A program is being debugged already.  Kill it. .y or n. " {
+	send_gdb "y\n"
+	exp_continue
+    }
+    -re "$gdb_prompt $" {
+	pass "$test"
+    }
+}
+
+# Convert "(because I can) to "\(because I can\)"
+set tstatus_output [string map {\( \\(} $tstatus_output]
+set tstatus_output [string map {\) \\)} $tstatus_output]
+
+# The status should be identical to the status of live inferior.
+gdb_test "tstatus" "Using a trace file\.\r\n${tstatus_output}.*" \
+    "tstatus on tfile target"
-- 
1.7.7.6