diff options
| -rw-r--r-- | gdb/testsuite/gdb.chill/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.chill/misc.ch | 2 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.chill/misc.exp | 9 |
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\]} } |