From: Wilfried Moser <moser@cygnus>
Date: Tue, 9 Jan 1996 12:48:44 +0000 (+0000)
Subject:         * misc.ch, misc.exp: Enhance test case.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0025f7a0a7934977188b682830628b5fac4770ab;p=binutils-gdb.git

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

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index 0be91fcec10..42dbebe827c 100644
--- 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 6f925f11e0c..20f12c81405 100644
--- 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 94be69c39a1..41405bd3c7f 100644
--- 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\]}
 }