darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2024-11-29 15:00:34 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

* tests1.{ch,exp}: Tets case modified and enhanced.

Browse Source
This commit is contained in:
Wilfried Moser 1996-04-17 08:24:36 +00:00
parent 8eff3c7fe6
commit d7d354cb6c
3 changed files with 26 additions and 8 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 @@
Wed Apr 17 01:23:06 1996 Wilfried Moser (Alcatel) <moser@rtl.cygnus.com>
* tests1.{ch,exp}: Tets case modified and enhanced.
Tue Apr 9 01:18:04 1996 Wilfried Moser (Alcatel) <moser@rtl.cygnus.com>
* gch981.{ch,exp}, gch1041.{ch,exp}: New test cases.

3
gdb/testsuite/gdb.chill/tests1.ch
View File

@ -122,6 +122,9 @@ newmode stru4m = struct (i long,
esac,
y stru3m);
synmode m_xyzmode = struct (next ref m_xyzmode,
i long);
-- set mode locations
dcl s1l set1 := ccc;
dcl s2l nset1 := nb;

27
gdb/testsuite/gdb.chill/tests1.exp
View File

@ -461,17 +461,17 @@ proc test_locations {} {
# reference modes
test_print_accept "ptype ref3l" "PTR" "print mode of reference location"
setup_xfail "*-*-*"
# setup_xfail "*-*-*"
test_print_accept "whatis ref3l" "ref3" \
"print modename of reference location"
setup_xfail "*-*-*"
# setup_xfail "*-*-*"
test_print_accept "print ref3l" "ref3\\(H'.*\\)" \
"print reference location"
test_print_accept "ptype ref4l" "PTR" "print mode of reference location"
setup_xfail "*-*-*"
# setup_xfail "*-*-*"
test_print_accept "whatis ref4l" "ref4" \
"print modename of reference location"
setup_xfail "*-*-*"
# setup_xfail "*-*-*"
test_print_accept "print ref4l" "ref4\\(H'.*\\)" \
"print reference location"
test_print_accept "ptype ref5l" "PTR" "print mode of reference location"
@ -784,13 +784,13 @@ proc test_locations {} {
test_print_accept "print strul1.ch1" \
"\"12345678900987654321\"" \
"print field of structure location 1"
setup_xfail "*-*-*"
# setup_xfail "*-*-*"
test_print_accept "print strul1.ch2" \
"\"1234567890\".*warning: tag field value does'nt match" \
"\"1234567890\"" \
"print field of structure location 1"
setup_xfail "*-*-*"
# setup_xfail "*-*-*"
test_print_accept "print strul1.ch3" \
"\"1\".*warning: tag field value does'nt match" \
"\"1\"" \
"print field of structure location 1"
if $passcount then {
@ -798,6 +798,16 @@ proc test_locations {} {
}
}
# This is chill/9434
proc test_9434 {} {
global passcount
verbose "testing pr-9434"
test_print_accept "ptype m_xyzmode" "STRUCT \\(.*next REF m_xyzmode,.*i long.*\\)"
}
# Start with a fresh gdb.
gdb_exit
@ -809,6 +819,7 @@ send "set print sevenbit-strings\n" ; expect -re ".*$prompt $"
if [set_lang_chill] then {
test_modes
test_locations
test_9434
} else {
warning "$test_name tests suppressed."
}