* misc.ch, misc.exp: Enhance test case.
This commit is contained in:
parent
d1f5c8043a
commit
0025f7a0a7
|
@ -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,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;
|
||||
|
||||
|
|
|
@ -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\]}
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue