From 7cdda733d514b173ff2f44f662111bd6c0be3267 Mon Sep 17 00:00:00 2001 From: Wilfried Moser Date: Thu, 5 Sep 1996 08:55:32 +0000 Subject: [PATCH] * gch1280.exp: Enhance test case. --- gdb/testsuite/gdb.chill/ChangeLog | 4 ++++ gdb/testsuite/gdb.chill/gch1280.exp | 3 +++ 2 files changed, 7 insertions(+) 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) + + * gch1280.exp: Enhance test case. + Wed Sep 4 07:30:44 1996 Wilfried Moser (Alcatel) * 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\]} } -- 2.30.2