aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYao Qi <yao@codesourcery.com>2012-06-07 15:07:03 +0000
committerYao Qi <yao@codesourcery.com>2012-06-07 15:07:03 +0000
commit8efd7788e88566c3da85647c39735da2de0fac07 (patch)
treec5a41bfb48f5700c72ee806b0825ef3dd1433873
parentc22faadb1a721ca67acfb622e4f4568f5ddd7d7d (diff)
downloadgdb-8efd7788e88566c3da85647c39735da2de0fac07.zip
gdb-8efd7788e88566c3da85647c39735da2de0fac07.tar.gz
gdb-8efd7788e88566c3da85647c39735da2de0fac07.tar.bz2
gdb/testsuite/
* gdb.trace/strace.exp: Shorten some too-long lines.
-rw-r--r--gdb/testsuite/ChangeLog4
-rw-r--r--gdb/testsuite/gdb.trace/strace.exp32
2 files changed, 24 insertions, 12 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index d51ed6a..3cba148 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2012-06-07 Yao Qi <yao@codesourcery.com>
+
+ * gdb.trace/strace.exp: Shorten some too-long lines.
+
2012-06-06 Pedro Alves <palves@redhat.com>
* gdb.threads/clone-new-thread-event.c: New file.
diff --git a/gdb/testsuite/gdb.trace/strace.exp b/gdb/testsuite/gdb.trace/strace.exp
index 089b62b..51da92b 100644
--- a/gdb/testsuite/gdb.trace/strace.exp
+++ b/gdb/testsuite/gdb.trace/strace.exp
@@ -31,7 +31,8 @@ if [get_compiler_info ${binfile}] {
return -1
}
-set additional_flags [list quiet debug shlib=$libipa shlib_load "additional_flags=-lust -lurcu-bp" ]
+set additional_flags [list quiet debug shlib=$libipa shlib_load \
+ "additional_flags=-lust -lurcu-bp" ]
if { [gdb_compile $srcdir/$subdir/$srcfile $binfile executable $additional_flags] != ""} {
untested "UST library or headers are not installed"
@@ -78,7 +79,8 @@ proc strace_probe_marker { } { with_test_prefix "probe_marker" {
gdb_test "strace -m ust/bar" "Static tracepoint \[0-9\]+ at ${hex}: file.*"
gdb_test "strace -m ust/bar2" "Static tracepoint \[0-9\]+ at ${hex}: file.*"
# Two trace markers should be enabled.
- gdb_test "info static-tracepoint-markers" "ust/bar\[\t \]+y\[\t \]+$hex .*ust/bar2\[\t \]+y\[\t \]+$hex.*"
+ gdb_test "info static-tracepoint-markers" \
+ "ust/bar\[\t \]+y\[\t \]+$hex .*ust/bar2\[\t \]+y\[\t \]+$hex.*"
gdb_test "break end" "Breakpoint \[0-9\]+ at.*"
@@ -91,7 +93,8 @@ proc strace_probe_marker { } { with_test_prefix "probe_marker" {
gdb_test "tfind" "Target failed to find requested trace frame\\..*"
}}
-proc strace_trace_on_same_addr { type } { with_test_prefix "trace_same_addr $type" {
+proc strace_trace_on_same_addr { type } {
+with_test_prefix "trace_same_addr $type" {
global executable
global expect_out
global gdb_prompt
@@ -137,8 +140,8 @@ proc strace_trace_on_same_addr { type } { with_test_prefix "trace_same_addr $typ
}
-re ".*\r\n$gdb_prompt $" {
if [string equal $type "ftrace"] {
- # The instruction may be not long enough to set a fast tracepoint.
- # Skip the rest of this test.
+ # The instruction may be not long enough to set a fast
+ # tracepoint. Skip the rest of this test.
return -1;
} else {
fail $test
@@ -152,8 +155,8 @@ proc strace_trace_on_same_addr { type } { with_test_prefix "trace_same_addr $typ
}
-re ".*\r\n$gdb_prompt $" {
if [string equal $type "ftrace"] {
- # The instruction may be not long enough to set a fast tracepoint.
- # Skip the rest of this test.
+ # The instruction may be not long enough to set a fast
+ # tracepoint. Skip the rest of this test.
return -1;
} else {
fail $test
@@ -164,13 +167,17 @@ proc strace_trace_on_same_addr { type } { with_test_prefix "trace_same_addr $typ
gdb_test "break end" "Breakpoint \[0-9\]+ at.*"
if [string equal $type "break"] {
- gdb_test "continue" "Continuing\\.\[ \r\n\]+Breakpoint.*" "continue to bar"
- gdb_test "continue" "Continuing\\.\[ \r\n\]+Breakpoint.*" "continue to bar2"
- gdb_test "continue" "Continuing\\.\[ \r\n\]+Breakpoint.*" "continue to end"
+ gdb_test "continue" "Continuing\\.\[ \r\n\]+Breakpoint.*" \
+ "continue to bar"
+ gdb_test "continue" "Continuing\\.\[ \r\n\]+Breakpoint.*" \
+ "continue to bar2"
+ gdb_test "continue" "Continuing\\.\[ \r\n\]+Breakpoint.*" \
+ "continue to end"
} else {
gdb_test_no_output "tstart"
- gdb_test "continue" "Continuing\\.\[ \r\n\]+Breakpoint.*" "continue to end"
+ gdb_test "continue" "Continuing\\.\[ \r\n\]+Breakpoint.*" \
+ "continue to end"
gdb_test_no_output "tstop"
gdb_test "tfind" "Found trace frame 0, tracepoint .*" "tfind frame 0"
@@ -221,7 +228,8 @@ proc strace_trace_on_diff_addr { } { with_test_prefix "trace_diff_addr" {
# Set common tracepoint.
- gdb_test "trace *${marker_bar2_addr}" "Tracepoint \[0-9\]+ at ${hex}: file.*"
+ gdb_test "trace *${marker_bar2_addr}" \
+ "Tracepoint \[0-9\]+ at ${hex}: file.*"
gdb_test "break end" "Breakpoint \[0-9\]+ at.*"