diff options
| author | Wilfried Moser <moser@cygnus> | 1996-04-17 08:24:36 +0000 |
|---|---|---|
| committer | Wilfried Moser <moser@cygnus> | 1996-04-17 08:24:36 +0000 |
| commit | d7d354cb6cb23c8415049b7a98f850336fa1adbf (patch) | |
| tree | c805937dbef5ec493a7b2c38c02c986de0e5795f /gdb | |
| parent | 8eff3c7fe69220db3075e551f6cef34271f40d4c (diff) | |
| download | gdb-d7d354cb6cb23c8415049b7a98f850336fa1adbf.zip gdb-d7d354cb6cb23c8415049b7a98f850336fa1adbf.tar.gz gdb-d7d354cb6cb23c8415049b7a98f850336fa1adbf.tar.bz2 | |
* tests1.{ch,exp}: Tets case modified and enhanced.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/gdb.chill/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.chill/tests1.ch | 3 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.chill/tests1.exp | 27 |
3 files changed, 26 insertions, 8 deletions
diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog index f9aa517..8cb10e1 100644 --- a/gdb/testsuite/gdb.chill/ChangeLog +++ b/gdb/testsuite/gdb.chill/ChangeLog @@ -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. diff --git a/gdb/testsuite/gdb.chill/tests1.ch b/gdb/testsuite/gdb.chill/tests1.ch index 0962868..b545d07 100644 --- a/gdb/testsuite/gdb.chill/tests1.ch +++ b/gdb/testsuite/gdb.chill/tests1.ch @@ -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; diff --git a/gdb/testsuite/gdb.chill/tests1.exp b/gdb/testsuite/gdb.chill/tests1.exp index 5eea425..a269377 100644 --- a/gdb/testsuite/gdb.chill/tests1.exp +++ b/gdb/testsuite/gdb.chill/tests1.exp @@ -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." } |