From: Wilfried Moser <moser@cygnus>
Date: Thu, 5 Sep 1996 08:55:32 +0000 (+0000)
Subject:         * gch1280.exp: Enhance test case.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=7cdda733d514b173ff2f44f662111bd6c0be3267;p=binutils-gdb.git

    * gch1280.exp: Enhance test case.
---

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index aafa6615078..59e57daea73 100644
--- 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 608981977ee..5afccfac44f 100644
--- 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\]}
 }