* gdb.base/scope.exp: Make test names unique. \[(\] -> \\(.

2 files changed, 39 insertions, 20 deletions

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 815366d..89796c7 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+Fri Mar 24 06:11:05 1995  Jim Kingdon  (kingdon@lioth.cygnus.com)
+
+	* gdb.base/scope.exp: Make test names unique.  \[(\] -> \\(.
+
 Thu Mar 23 14:58:35 1995  Jim Kingdon  (kingdon@lioth.cygnus.com)
 
 	* gdb.base/commands.exp (infrun_breakpoint_command_test): New test.
diff --git a/gdb/testsuite/gdb.base/scope.exp b/gdb/testsuite/gdb.base/scope.exp
index e2b1c05..d77e573 100644
--- a/gdb/testsuite/gdb.base/scope.exp
+++ b/gdb/testsuite/gdb.base/scope.exp
@@ -49,10 +49,10 @@ proc test_at_main {} {
     # main, so the first next may only get us to the init call.
     send "next\n"
     expect {
-	-re "$decimal.*foo \[)(\]+;\r\n$prompt $" {
+	-re "$decimal.*foo \\(\\);\r\n$prompt $" {
 	    pass "next over init() in main"
 	}
-	-re "$decimal.*init \[)(\]+;\r\n$prompt $"\
+	-re "$decimal.*init \\(\\);\r\n$prompt $"\
 		{ send "next\n" ; exp_continue }
 	-re "$prompt $" { fail "next over init() in main" ; return }
 	timeout { fail "(timeout) next over init() in main" ; return }
@@ -103,15 +103,18 @@ proc test_at_main {} {
     send "print 'scope0.c'::filelocal_bss\n"
     expect {
 	-re "\\\$$decimal = 101\r\n$prompt $" {
-	    pass "print 'scope0.c'::filelocal_bss"
+	    pass "print 'scope0.c'::filelocal_bss in test_at_main"
 	}
 	-re "No symbol \"scope0.c\" in current context.*$prompt $" {
 	    send "print '$srcdir/$subdir/scope0.c'::filelocal_bss\n"
 	    exp_continue
 	}
-	-re "$prompt $" { fail "print 'scope0.c'::filelocal_bss" ; return }
+	-re "$prompt $" { 
+	    fail "print 'scope0.c'::filelocal_bss in test_at_main" ; return 
+	}
 	timeout {
-	    fail "(timeout) print 'scope0.c'::filelocal_bss" ; return
+	    fail "(timeout) print 'scope0.c'::filelocal_bss in test_at_main"
+	    return
 	}
     }
 
@@ -288,7 +291,7 @@ proc test_at_foo {} {
 
     send "next\n"
     expect {
-	-re ".*bar \[)(\]+;\r\n$prompt $" {}
+	-re ".*bar \\(\\);\r\n$prompt $" {}
 	-re "$prompt $" { fail "continue to foo()" ; return }
 	timeout { fail "(timeout) continue to foo()" ; return }
     }
@@ -316,14 +319,20 @@ proc test_at_foo {} {
     setup_xfail "rs6000-*-*"
     send "print 'scope0.c'::filelocal_bss\n"
     expect {
-	-re "\\\$$decimal = 101\r\n$prompt $" { pass "print 'scope0.c'::filelocal_bss" }
+	-re "\\\$$decimal = 101\r\n$prompt $" {
+	    pass "print 'scope0.c'::filelocal_bss in test_at_foo"
+	}
 	-re "No symbol \"scope0.c\" in current context.*$prompt $" {
 	    send "print '$srcdir/$subdir/scope0.c'::filelocal_bss\n"
 	    exp_continue
 	}
-	-re "$prompt $" { fail "print 'scope0.c'::filelocal_bss" ; return }
+	-re "$prompt $" {
+	    fail "print 'scope0.c'::filelocal_bss in test_at_foo"
+	    return
+	}
 	timeout {
-	    fail "(timeout) print 'scope0.c'::filelocal_bss" ; return
+	    fail "(timeout) print 'scope0.c'::filelocal_bss in test_at_foo"
+	    return
 	}
     }
 
@@ -582,14 +591,20 @@ proc test_at_bar {} {
     setup_xfail "rs6000-*-*"
     send "print 'scope0.c'::filelocal_bss\n"
     expect {
-	-re "\\\$$decimal = 101\r\n$prompt $" { pass "print 'scope0.c'::filelocal_bss" }
+	-re "\\\$$decimal = 101\r\n$prompt $" {
+	    pass "print 'scope0.c'::filelocal_bss in test_at_bar"
+	}
 	-re "No symbol \"scope0.c\" in current context.*$prompt $" {
 	    send "print '$srcdir/$subdir/scope0.c'::filelocal_bss\n"
 	    exp_continue
 	}
-	-re "$prompt $" { fail "print 'scope0.c'::filelocal_bss" ; return }
+	-re "$prompt $" {
+	    fail "print 'scope0.c'::filelocal_bss in test_at_bar"
+	    return
+	}
 	timeout {
-	    fail "(timeout) print 'scope0.c'::filelocal_bss" ; return
+	    fail "(timeout) print 'scope0.c'::filelocal_bss in test_at_bar"
+	    return
 	}
     }
 
@@ -843,7 +858,7 @@ proc test_at_autovars {} {
 
     send "cont\n"
     expect {
-	-re "Break.* marker1 \[)(\]+ at .*:$decimal.*$prompt $" {
+	-re "Break.* marker1 \\(\\) at .*:$decimal.*$prompt $" {
 	    send "up\n"
 	    expect {
 		-re ".*$prompt $" {}
@@ -887,7 +902,7 @@ proc test_at_localscopes {} {
 
     send "cont\n"
     expect {
-	-re "Break.* marker2 \[)(\]+ at .*:$decimal.*$prompt $" {
+	-re "Break.* marker2 \\(\\) at .*:$decimal.*$prompt $" {
 	    send "up\n"
 	    expect {
 		-re ".*$prompt $" {}
@@ -933,7 +948,7 @@ proc test_at_localscopes {} {
 
     send "cont\n"
     expect {
-	-re "Break.* marker3 \[)(\]+ at .*:$decimal.*$prompt $" {
+	-re "Break.* marker3 \\(\\) at .*:$decimal.*$prompt $" {
 	    send "up\n"
 	    expect {
 		-re ".*$prompt $" {}
@@ -1048,18 +1063,18 @@ gdb_test "print 'scope0.c'::filelocal_ro" "= 201"
 # is not running.
 send "print 'scope0.c'::filelocal_bss\n"
 expect {
-    -re "= 0.*$prompt $" {
-	pass "print 'scope0.c'::filelocal_bss"
+    -re " = 0\r\n$prompt $" {
+	pass "print 'scope0.c'::filelocal_bss before run"
     }
     -re "Cannot access memory.*$prompt $" {
 	setup_xfail "*-*-*"
-	fail "print 'scope0.c'::filelocal_bss"
+	fail "print 'scope0.c'::filelocal_bss before run"
     }
     -re ".*$prompt $" {
-	fail "print 'scope0.c'::filelocal_bss"
+	fail "print 'scope0.c'::filelocal_bss before run"
     }
     default {
-	fail "print 'scope0.c'::filelocal_bss"
+	fail "print 'scope0.c'::filelocal_bss before run"
     }
 }