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

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index 0be91fc..42dbebe 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 6f925f1..20f12c8 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 94be69c..41405bd 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\]}
 }