* gch1280.exp: Enhance test case.

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index aafa6615078f86da750a338beb75cfbb347d5c18..59e57daea73547db377400e1105d90b5a4fdfa14 100644 (file)
--- a/gdb/testsuite/gdb.chill/ChangeLog
+++ b/gdb/testsuite/gdb.chill/ChangeLog
@@ -1,3 +1,7 @@
+Thu Sep  5 01:54:42 1996  Wilfried Moser (Alcatel)  <moser@rtl.cygnus.com>
+
+       * gch1280.exp: Enhance test case.
+
 Wed Sep  4 07:30:44 1996  Wilfried Moser (Alcatel)  <moser@rtl.cygnus.com>
 
        * gch1272.{ch,exp}, gch1280.{ch,exp}, pr-9946.{ch,exp}: 

diff --git a/gdb/testsuite/gdb.chill/gch1280.exp b/gdb/testsuite/gdb.chill/gch1280.exp
index 608981977eeb8e181af1fc776552399783709c6d..5afccfac44f912e38fcb5cb0586a45927be92c2f 100644 (file)
--- a/gdb/testsuite/gdb.chill/gch1280.exp
+++ b/gdb/testsuite/gdb.chill/gch1280.exp
@@ -70,4 +70,7 @@ if ![set_lang_chill] then {
     send "next\n" ; expect -re "$prompt $"
     # check too many array elements
     gdb_test {set var v_x := [1,2,3,4,5]} {Too many array elements}
+    gdb_test {set var $i := m_x[(3): 22, 25]} {Too many array elements}
+    send "set var \$i := m_x\[\(2\): 22, 25\]\n" ; expect -re "$prompt $"
+    gdb_test {print $i} { = \[\(1\): 0, \(2\): 22, \(3\): 25\]}
 }