* tuples.exp (do_tests): Make names of "print v_ps" test unique.

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index def9ee49bea966596135ba3ac3530cd865acb9b6..42b380e6a28017831b84246db9fff28c192d01bd 100644 (file)
--- a/gdb/testsuite/gdb.chill/ChangeLog
+++ b/gdb/testsuite/gdb.chill/ChangeLog
@@ -1,3 +1,7 @@
+Tue Mar 21 12:10:06 1995  Jim Kingdon  (kingdon@lioth.cygnus.com)
+
+       * tuples.exp (do_tests): Make names of "print v_ps" test unique.
+
 Wed Mar  8 13:26:36 1995  Jim Kingdon  (kingdon@lioth.cygnus.com)
 
        * *.exp: Skip all tests silently if skip_chill_tests returns true.

diff --git a/gdb/testsuite/gdb.chill/tuples.exp b/gdb/testsuite/gdb.chill/tuples.exp
index 9f7c7470f60346b3e3cc50c230989374dad2ad93..ac153503638648145069b5c4ce4263279ae0da20 100644 (file)
--- a/gdb/testsuite/gdb.chill/tuples.exp
+++ b/gdb/testsuite/gdb.chill/tuples.exp
@@ -69,7 +69,7 @@ proc do_tests {} {
 
     gdb_test_exact "print v_ps" {= [1, 3, 5]}
     send "set v_ps := \[ 2, 4 \]\n";  expect -re "$prompt $"
-    gdb_test_exact "print v_ps" {= [2, 4]}
+    gdb_test_exact "print v_ps" {= [2, 4]} {v_ps after assignment}
     gdb_test_exact "print v_ps :=  \[\]" {= []} {assign [] to v_ps}
 
     gdb_test_exact "print m_arri\[1, 2, 3, 4, 5\]" {= [(1): 1, (2): 2, (3): 3, (4): 4, (5): 5]}