OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

This commit is contained in:
Wilfried Moser 1996-01-09 12:48:44 +00:00
parent d1f5c8043a
commit 0025f7a0a7
3 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gdb/testsuite/gdb.chill/ChangeLog
View File

@ -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

2
gdb/testsuite/gdb.chill/misc.ch
View File

@ -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;

9
gdb/testsuite/gdb.chill/misc.exp
View File

@ -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\]}
}