* misc.ch, misc.exp: Enhance test case.

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index 0be91fcec1000f9b5aca2b3cdd66d89ed10f361f..42dbebe827c07c064f3ffdca2ec5a46f6c859b8b 100644 (file)
--- a/gdb/testsuite/gdb.chill/ChangeLog
+++ b/gdb/testsuite/gdb.chill/ChangeLog
@@ -1,3 +1,7 @@
+Tue Jan  9 04:47:27 1996  Wilfried Moser (Alcatel)  <moser@rtl.cygnus.com>
+
+       * misc.ch, misc.exp: Enhance test case.
+
 Sat Dec 30 15:31:59 1995  Fred Fish  <fnf@cygnus.com>
 
        * tests2.exp: Setup_xfail "i*86-*-linux" and 

diff --git a/gdb/testsuite/gdb.chill/misc.ch b/gdb/testsuite/gdb.chill/misc.ch
index 6f925f11e0c39c308a5cdaf371a6647fc2eed3d6..20f12c81405f0cdbf5a7d1b0b3030e5c2bb42a02 100644 (file)
--- a/gdb/testsuite/gdb.chill/misc.ch
+++ b/gdb/testsuite/gdb.chill/misc.ch
@@ -2,6 +2,8 @@ misc_tests : MODULE;
 
 DCL otto INT := 42;
 
+DCL foo STRUCT (l LONG, c CHAR, b BOOL, s CHARS(3));
+
 dummyfunc: PROC();
 END dummyfunc;
 

diff --git a/gdb/testsuite/gdb.chill/misc.exp b/gdb/testsuite/gdb.chill/misc.exp
index 94be69c39a15b3323fd102a341a4833eec6a00cf..41405bd3c7fd59ae2a0360d3e9090df5ca2fb60d 100644 (file)
--- a/gdb/testsuite/gdb.chill/misc.exp
+++ b/gdb/testsuite/gdb.chill/misc.exp
@@ -83,6 +83,13 @@ if ![set_lang_chill] then {
     # Linux thinks this is at line 6, but is otherwise ok.
     setup_xfail "i*86-*-linux*"
     gdb_test "info line" \
-       {Line 5 of .*misc.ch.* at address H'[0-9a-fA-F]+.*}\
+       {Line 7 of .*misc.ch.* at address H'[0-9a-fA-F]+.*}\
        "info about current line"
+
+    # check array () type (expr)
+    gdb_test "print array () ubyte (foo)" { = \[\(0:11\): 0\]}
+       
+    send "set var \$i := foo\n"
+    expect -re ".*$prompt $"
+    gdb_test "print/x array () byte (\$i)" { = \[\(0:11\): H'0\]}
 }