diff options
| author | Wilfried Moser <moser@cygnus> | 1996-09-05 08:55:32 +0000 |
|---|---|---|
| committer | Wilfried Moser <moser@cygnus> | 1996-09-05 08:55:32 +0000 |
| commit | 7cdda733d514b173ff2f44f662111bd6c0be3267 (patch) | |
| tree | 416a100bacb282ad9dff685752b70e327d558734 /gdb/testsuite/gdb.chill/gch1280.exp | |
| parent | 5819f35dcfe0450b9ad8bebb6fdab645f4bf57e9 (diff) | |
| download | gdb-7cdda733d514b173ff2f44f662111bd6c0be3267.zip gdb-7cdda733d514b173ff2f44f662111bd6c0be3267.tar.gz gdb-7cdda733d514b173ff2f44f662111bd6c0be3267.tar.bz2 | |
* gch1280.exp: Enhance test case.
Diffstat (limited to 'gdb/testsuite/gdb.chill/gch1280.exp')
| -rw-r--r-- | gdb/testsuite/gdb.chill/gch1280.exp | 3 |
1 files changed, 3 insertions, 0 deletions
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\]} } |