aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.chill
diff options
context:
space:
mode:
authorWilfried Moser <moser@cygnus>1996-09-05 08:55:32 +0000
committerWilfried Moser <moser@cygnus>1996-09-05 08:55:32 +0000
commit7cdda733d514b173ff2f44f662111bd6c0be3267 (patch)
tree416a100bacb282ad9dff685752b70e327d558734 /gdb/testsuite/gdb.chill
parent5819f35dcfe0450b9ad8bebb6fdab645f4bf57e9 (diff)
downloadgdb-7cdda733d514b173ff2f44f662111bd6c0be3267.zip
gdb-7cdda733d514b173ff2f44f662111bd6c0be3267.tar.gz
gdb-7cdda733d514b173ff2f44f662111bd6c0be3267.tar.bz2
* gch1280.exp: Enhance test case.
Diffstat (limited to 'gdb/testsuite/gdb.chill')
-rw-r--r--gdb/testsuite/gdb.chill/ChangeLog4
-rw-r--r--gdb/testsuite/gdb.chill/gch1280.exp3
2 files changed, 7 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index aafa661..59e57da 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 6089819..5afccfa 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\]}
}