aboutsummaryrefslogtreecommitdiff
path: root/gdb
diff options
context:
space:
mode:
authorWilfried Moser <moser@cygnus>1996-01-09 12:48:44 +0000
committerWilfried Moser <moser@cygnus>1996-01-09 12:48:44 +0000
commit0025f7a0a7934977188b682830628b5fac4770ab (patch)
treeb86d15f78dac94d19ba3b434d9160ea8a1bf1b3a /gdb
parentd1f5c8043acfeb2b8e2ecdfca6dc43af016719cc (diff)
downloadgdb-0025f7a0a7934977188b682830628b5fac4770ab.zip
gdb-0025f7a0a7934977188b682830628b5fac4770ab.tar.gz
gdb-0025f7a0a7934977188b682830628b5fac4770ab.tar.bz2
* misc.ch, misc.exp: Enhance test case.
Diffstat (limited to 'gdb')
-rw-r--r--gdb/testsuite/gdb.chill/ChangeLog4
-rw-r--r--gdb/testsuite/gdb.chill/misc.ch2
-rw-r--r--gdb/testsuite/gdb.chill/misc.exp9
3 files changed, 14 insertions, 1 deletions
diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index 0be91fc..42dbebe 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 6f925f1..20f12c8 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 94be69c..41405bd 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\]}
}