aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.base/recurse.exp
diff options
context:
space:
mode:
authorJeff Law <law@redhat.com>1995-03-20 17:09:25 +0000
committerJeff Law <law@redhat.com>1995-03-20 17:09:25 +0000
commiteead772be8c451c77d86d8c4c07e48620f3bab8d (patch)
tree29783eeacb63b819355352c1c3c21d9bb219877f /gdb/testsuite/gdb.base/recurse.exp
parenta15f6b0a8e527e2424d031e8916857b7c67f1984 (diff)
downloadgdb-eead772be8c451c77d86d8c4c07e48620f3bab8d.zip
gdb-eead772be8c451c77d86d8c4c07e48620f3bab8d.tar.gz
gdb-eead772be8c451c77d86d8c4c07e48620f3bab8d.tar.bz2
* gdb.base/recurse.exp: Update gdb_test invocation to use new
conventions and slightly simplify the matching regexp.
Diffstat (limited to 'gdb/testsuite/gdb.base/recurse.exp')
-rw-r--r--gdb/testsuite/gdb.base/recurse.exp35
1 files changed, 15 insertions, 20 deletions
diff --git a/gdb/testsuite/gdb.base/recurse.exp b/gdb/testsuite/gdb.base/recurse.exp
index 1bacdf4..02a3b93 100644
--- a/gdb/testsuite/gdb.base/recurse.exp
+++ b/gdb/testsuite/gdb.base/recurse.exp
@@ -57,17 +57,17 @@ if {[file exists $objdir/$subdir/$binfile] && [istarget "hppa*-*-bsd*"]} then {
# Continue until initial set of b.
send "cont\n"
expect {
- -re "Continuing.*Watchpoint.*, b.*Old value = 0.*New value = 10.*$prompt $" { pass "watchpoint hit, first time" }
+ -re "Continuing.*\[Ww\]atchpoint.*: b.*Old value = 0.*New value = 10.*$prompt $" { pass "watchpoint hit, first time" }
-re ".*$prompt $" { fail "missed first watchpoint" ; return }
timeout { fail "missed first watchpoint (timeout)" ; return }
}
# Continue inward for a few iterations
- gdb_test "continue" "Breakpoint.* recurse \[(\]+a=9\[)\]+"
- gdb_test "continue" "Breakpoint.* recurse \[(\]+a=8\[)\]+"
- gdb_test "continue" "Breakpoint.* recurse \[(\]+a=7\[)\]+"
- gdb_test "continue" "Breakpoint.* recurse \[(\]+a=6\[)\]+"
- gdb_test "continue" "Breakpoint.* recurse \[(\]+a=5\[)\]+"
+ gdb_test "continue" "Breakpoint.* recurse \\(+a=9\\).*"
+ gdb_test "continue" "Breakpoint.* recurse \\(+a=8\\).*"
+ gdb_test "continue" "Breakpoint.* recurse \\(+a=7\\).*"
+ gdb_test "continue" "Breakpoint.* recurse \\(+a=6\\).*"
+ gdb_test "continue" "Breakpoint.* recurse \\(+a=5\\).*"
# Put a watchpoint on another instance of b
gdb_test "watch b" ".*\[Ww\]atchpoint \[0-9]*: b"
@@ -75,7 +75,7 @@ if {[file exists $objdir/$subdir/$binfile] && [istarget "hppa*-*-bsd*"]} then {
# Continue until initial set of b (second instance).
send "cont\n"
expect {
- -re "Continuing.*Watchpoint.*, b.*Old value = 0.*New value = 5.*$prompt $" { pass "watchpoint hit (second instance)" }
+ -re "Continuing.*\[Ww\]atchpoint.*: b.*Old value = 0.*New value = 5.*$prompt $" { pass "watchpoint hit (second instance)" }
-re ".*$prompt $" {
fail "missed watchpoint (second instance)"
return
@@ -87,15 +87,15 @@ if {[file exists $objdir/$subdir/$binfile] && [istarget "hppa*-*-bsd*"]} then {
}
# Continue inward for a few iterations
- gdb_test "continue" "Breakpoint.* recurse \[(\]+a=4\[)\]+"
- gdb_test "continue" "Breakpoint.* recurse \[(\]+a=3\[)\]+"
- gdb_test "continue" "Breakpoint.* recurse \[(\]+a=2\[)\]+"
- gdb_test "continue" "Breakpoint.* recurse \[(\]+a=1\[)\]+"
+ gdb_test "continue" "Breakpoint.* recurse \\(+a=4\\).*"
+ gdb_test "continue" "Breakpoint.* recurse \\(+a=3\\).*"
+ gdb_test "continue" "Breakpoint.* recurse \\(+a=2\\).*"
+ gdb_test "continue" "Breakpoint.* recurse \\(+a=1\\).*"
# Continue until second set of b (second instance).
send "cont\n"
expect {
- -re "Continuing.*Watchpoint.*, b.*Old value = 5.*New value = 120.*return.*$prompt $" { pass "watchpoint hit, second time (second instance)" }
+ -re "Continuing.*\[Ww\]atchpoint.*: b.*Old value = 5.*New value = 120.*return.*$prompt $" { pass "watchpoint hit, second time (second instance)" }
-re ".*$prompt $" {
fail "missed watchpoint, second time (second instance)"
return
@@ -109,7 +109,7 @@ if {[file exists $objdir/$subdir/$binfile] && [istarget "hppa*-*-bsd*"]} then {
# Continue again. We should have a watchpoint go out of scope now
send "cont\n"
expect {
- -re "Continuing.*Watchpoint.*deleted.*recurse \[(\]+a=6\[)\]+ .*$prompt $" {pass "watchpoint deleted when leaving scope (second instance)" }
+ -re "Continuing.*\[Ww\]atchpoint.*deleted.*recurse \[(\]+a=6\[)\]+ .*$prompt $" {pass "watchpoint deleted when leaving scope (second instance)" }
-re ".*prompt $" {
fail "watchpoint not deleted when leaving scope (second instance)"
return
@@ -123,7 +123,7 @@ if {[file exists $objdir/$subdir/$binfile] && [istarget "hppa*-*-bsd*"]} then {
# Continue until second set of b (first instance).
send "cont\n"
expect {
- -re "Continuing.*Watchpoint.*b.*Old value = 10.*New value = 3628800.*return.*$prompt $" { pass "watchpoint hit, second time" }
+ -re "Continuing.*\[Ww\]atchpoint.*b.*Old value = 10.*New value = 3628800.*return.*$prompt $" { pass "watchpoint hit, second time" }
-re ".*$prompt $" {
fail "missed watchpoint, second time)"
return
@@ -137,7 +137,7 @@ if {[file exists $objdir/$subdir/$binfile] && [istarget "hppa*-*-bsd*"]} then {
# Continue again. We should have a watchpoint go out of scope now
send "cont\n"
expect {
- -re "Continuing.*Watchpoint.*deleted.*main \[(\]+\[)\]+ .*$prompt $" {pass "watchpoint deleted when leaving scope" }
+ -re "Continuing.*\[Ww\]atchpoint.*deleted.*main \[(\]+\[)\]+ .*$prompt $" {pass "watchpoint deleted when leaving scope" }
-re ".*prompt $" {
fail "watchpoint not deleted when leaving scope"
return
@@ -152,8 +152,3 @@ if {[file exists $objdir/$subdir/$binfile] && [istarget "hppa*-*-bsd*"]} then {
# Restore the preserved old timeout value.
set timeout $timeoutsave
}
-
-if [istarget "a29k-*-udi"] then {
- # FIXME: If PR 2415 is fixed, this is not needed.
- gdb_target_udi
-}