gdb/testsuite/

	PR testsuite/12649
	* gdb.trace/collection.exp (gdb_collect_return_test): Import gdb_prompt.
	Protect gdb_test_multiple by final $gdb_prompt match.
	* gdb.trace/tspeed.exp (gdb_fast_trace_speed_test): Likewise.
	* gdb.trace/tstatus.exp (run_trace_experiment): Likewise.
	(test_tracepoints): Likewise.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 3a5716c7c2718432f1e66eef2d7b64680f318a57..ad97d8695f33ff9b61297f4d3a6f86f6771b3937 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,12 @@
+2011-12-02  Jan Kratochvil  <jan.kratochvil@redhat.com>
+
+       PR testsuite/12649
+       * gdb.trace/collection.exp (gdb_collect_return_test): Import gdb_prompt.
+       Protect gdb_test_multiple by final $gdb_prompt match.
+       * gdb.trace/tspeed.exp (gdb_fast_trace_speed_test): Likewise.
+       * gdb.trace/tstatus.exp (run_trace_experiment): Likewise.
+       (test_tracepoints): Likewise.
+
 2011-12-02  Jan Kratochvil  <jan.kratochvil@redhat.com>
 
        PR breakpoints/13346

diff --git a/gdb/testsuite/gdb.trace/collection.exp b/gdb/testsuite/gdb.trace/collection.exp
index b1ed30a8bea8cee53275f47148733eca425d2e2b..59d0459b59bb3df31544d3b4fe3d202c486e70bf 100644 (file)
--- a/gdb/testsuite/gdb.trace/collection.exp
+++ b/gdb/testsuite/gdb.trace/collection.exp
@@ -589,6 +589,7 @@ proc gdb_collect_global_in_pieces_test { } {
 }
 
 proc gdb_collect_return_test { } {
+    global gdb_prompt
 
     prepare_for_trace_test
 
@@ -606,10 +607,10 @@ proc gdb_collect_return_test { } {
     # Since we can't guarantee that $_ret will give us the caller,
     # pass either way, but giving different messages.
     gdb_test_multiple "backtrace" "" {
-       -re ".*#1 .* in main .*" {
+       -re ".*#1 .* in main .*\r\n$gdb_prompt $" {
            pass "collect \$_ret: backtrace lists main"
        }
-       -re ".*#1 .* in ?? .*" {
+       -re ".*#1 .* in ?? .*\r\n$gdb_prompt $" {
            pass "collect \$_ret: backtrace not listing main"
        }
     }

diff --git a/gdb/testsuite/gdb.trace/tspeed.exp b/gdb/testsuite/gdb.trace/tspeed.exp
index 9f51a478d0692907c720e28740a7991610983e8a..407fd8835a9db84a1e2bc771bfaa8c64affb40aa 100644 (file)
--- a/gdb/testsuite/gdb.trace/tspeed.exp
+++ b/gdb/testsuite/gdb.trace/tspeed.exp
@@ -89,6 +89,7 @@ proc gdb_slow_trace_speed_test { } {
 }
 
 proc gdb_fast_trace_speed_test { } {
+    global gdb_prompt
 
     gdb_delete_tracepoints
 
@@ -100,11 +101,11 @@ proc gdb_fast_trace_speed_test { } {
 
     gdb_test_multiple "ftrace $testline if (globfoo != 12 && globfoo2 == 45)" \
        "set conditional fast tracepoint" {
-           -re "Fast tracepoint \[0-9\]+ at .*" {
+           -re "Fast tracepoint \[0-9\]+ at .*\r\n$gdb_prompt $" {
                pass "set conditional fast tracepoint, done"
                set run_ftrace 1
            }
-           -re "May not have a fast tracepoint at .*" {
+           -re "May not have a fast tracepoint at .*\r\n$gdb_prompt $" {
                pass "set conditional fast tracepoint, not allowed at line"
            }
        }

diff --git a/gdb/testsuite/gdb.trace/tstatus.exp b/gdb/testsuite/gdb.trace/tstatus.exp
index 36f925d3e5f92268e4ceae3d473f178f5ffad0c3..502366b1a0e9b55fffe4c7232d3abd8b841267ad 100644 (file)
--- a/gdb/testsuite/gdb.trace/tstatus.exp
+++ b/gdb/testsuite/gdb.trace/tstatus.exp
@@ -56,6 +56,7 @@ if ![runto_main] {
 }
 
 proc run_trace_experiment {} {
+    global gdb_prompt
 
 #    gdb_test_no_output "set debug remote 1" ""
 
@@ -74,10 +75,10 @@ proc run_trace_experiment {} {
     # cases.
 
     gdb_test_multiple "tstatus" "check on trace status" {
-       -re "Trace is running.*Trace will stop if GDB disconnects\.\[\r\n\]+Trace notes: my tracing note\.\[\r\n\]+Not looking at any trace frame\..*" {
+       -re "Trace is running.*Trace will stop if GDB disconnects\.\[\r\n\]+Trace notes: my tracing note\.\[\r\n\]+Not looking at any trace frame\..*\r\n$gdb_prompt $" {
            pass "tstatus reports trace note"
        }
-       -re "Trace is running.*Trace will stop if GDB disconnects\.\[\r\n\]+Not looking at any trace frame.*" {
+       -re "Trace is running.*Trace will stop if GDB disconnects\.\[\r\n\]+Not looking at any trace frame.*\r\n$gdb_prompt $" {
            pass "tstatus does not report any trace note"
        }
     }
@@ -85,10 +86,10 @@ proc run_trace_experiment {} {
     gdb_test "set trace-notes different note" "" "change tracing note"
 
     gdb_test_multiple "tstatus" "check on trace status with diff note" {
-       -re "Trace is running.*Trace will stop if GDB disconnects\.\[\r\n\]+Trace notes: different note\.\[\r\n\]+Not looking at any trace frame\..*" {
+       -re "Trace is running.*Trace will stop if GDB disconnects\.\[\r\n\]+Trace notes: different note\.\[\r\n\]+Not looking at any trace frame\..*\r\n$gdb_prompt $" {
            pass "tstatus reports different trace note"
        }
-       -re "Trace is running.*Trace will stop if GDB disconnects\.\[\r\n\]+Not looking at any trace frame.*" {
+       -re "Trace is running.*Trace will stop if GDB disconnects\.\[\r\n\]+Not looking at any trace frame.*\r\n$gdb_prompt $" {
            pass "tstatus does not report any different trace note"
        }
     }
@@ -96,10 +97,10 @@ proc run_trace_experiment {} {
     gdb_test "set trace-user me me me" "" "change tracing user"
 
     gdb_test_multiple "tstatus" "check on trace status with diff note" {
-       -re "Trace is running.*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\..*" {
+       -re "Trace is running.*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 $" {
            pass "tstatus reports trace user"
        }
-       -re "Trace is running.*Trace will stop if GDB disconnects\.\[\r\n\]+Not looking at any trace frame.*" {
+       -re "Trace is running.*Trace will stop if GDB disconnects\.\[\r\n\]+Not looking at any trace frame.*\r\n$gdb_prompt $" {
            pass "tstatus does not report trace user"
        }
     }
@@ -107,10 +108,10 @@ proc run_trace_experiment {} {
     gdb_test_no_output "tstop because I can" "trace stopped with note"
 
     gdb_test_multiple "tstatus" "check on trace status after stop" {
-       -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\..*" {
+       -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 $" {
            pass "tstatus reports trace stop reason"
        }
-       -re "Trace stopped by a tstop command\..*" {
+       -re "Trace stopped by a tstop command\..*\r\n$gdb_prompt $" {
            pass "tstatus does not report trace stop reason"
        }
     }
@@ -118,16 +119,17 @@ proc run_trace_experiment {} {
     # Tracepoint hit count is optional, so pass it either way.
 
     gdb_test_multiple "info trace" "show tracepoint state" {
-       -re "actions\.c:\[0-9\]+\[\r\n\]+\[\t ]+tracepoint already hit 1 time\[\r\n\]+\[\t ]+collect parm" {
+       -re "actions\.c:\[0-9\]+\[\r\n\]+\[\t ]+tracepoint already hit 1 time\[\r\n\]+\[\t ]+collect parm.*\r\n$gdb_prompt $" {
            pass "info trace reports tracepoint hit count"
        }
-       -re "actions\.c:\[0-9\]+\[\r\n\]+\[\t ]+collect parm" {
+       -re "actions\.c:\[0-9\]+\[\r\n\]+\[\t ]+collect parm.*\r\n$gdb_prompt $" {
            pass "info trace does not report tracepoint hit count"
        }
     }
 }
 
 proc test_tracepoints {} {
+    global gdb_prompt
 
     gdb_test "break begin" ".*" ""
 
@@ -142,10 +144,10 @@ proc test_tracepoints {} {
     set fastgood 0
 
     gdb_test_multiple "ftrace gdb_recursion_test" "set fast tracepoint" {
-       -re "May not have a fast tracepoint at .*" {
+       -re "May not have a fast tracepoint at .*\r\n$gdb_prompt $" {
            pass "4-byte fast tracepoint could not be set"
        }
-       -re "Fast tracepoint .*" {
+       -re "Fast tracepoint .*\r\n$gdb_prompt $" {
            pass "4-byte fast tracepoint is set"
            set fastgood 1
        }