OpenE2K/binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gdb/testsuite/

Browse Source 
* 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.
This commit is contained in:
Yao Qi 2013-03-14 09:12:21 +00:00
parent d6682f9ee9
commit e2be70a0e1
2 changed files with 40 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,10 @@
2013-03-14 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.
2013-03-13 Yao Qi <yao@codesourcery.com> 2013-03-13 Yao Qi <yao@codesourcery.com>
* gdb.trace/tsv.exp (check_tsv): New. * gdb.trace/tsv.exp (check_tsv): New.

35
gdb/testsuite/gdb.trace/tstatus.exp
View File

@ -34,9 +34,12 @@ if ![gdb_target_supports_trace] {
return -1 return -1
} }
set tstatus_output ""
proc run_trace_experiment {} { proc run_trace_experiment {} {
global gdb_prompt global gdb_prompt
global decimal global decimal
global tstatus_output
# gdb_test_no_output "set debug remote 1" "" # gdb_test_no_output "set debug remote 1" ""
@ -93,10 +96,12 @@ proc run_trace_experiment {} {
set test "tstatus reports trace stop reason" set test "tstatus reports trace stop reason"
gdb_test_multiple "tstatus" $test { 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 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 unsupported $test
} }
} }
@ -131,3 +136,29 @@ proc test_tracepoints {} {
} }
test_tracepoints test_tracepoints
set tracefile [standard_output_file ${testfile}]
# Save trace frames to tfile.
gdb_test "tsave ${tracefile}.tf" \
"Trace data saved to file '${tracefile}.tf'.*" \
"save tfile trace file"
# Change target to tfile.
set test "change to tfile target"
gdb_test_multiple "target tfile ${tracefile}.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"