diff options
| -rw-r--r-- | gdb/testsuite/gdb.chill/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.chill/builtins.exp | 106 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.chill/tests1.exp | 2 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.chill/tests2.exp | 2 |
4 files changed, 92 insertions, 24 deletions
diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog index 27c7d73..c645bd7 100644 --- a/gdb/testsuite/gdb.chill/ChangeLog +++ b/gdb/testsuite/gdb.chill/ChangeLog @@ -1,3 +1,9 @@ +Fri Dec 29 10:46:09 1995 Fred Fish <fnf@cygnus.com> + + * builtins.exp (test_size): Alpha seems to have long builtins. + * tests1.exp: Setup xfail "*-*-*" for "ptype r2". + * tests2.exp: Add check to skip chill tests. + Mon Dec 11 16:53:40 1995 Per Bothner <bothner@kalessin.cygnus.com> * tuples.ch, tuples.exp: Exhance test cases (from PR 8643). diff --git a/gdb/testsuite/gdb.chill/builtins.exp b/gdb/testsuite/gdb.chill/builtins.exp index e67c3e8..820b540 100644 --- a/gdb/testsuite/gdb.chill/builtins.exp +++ b/gdb/testsuite/gdb.chill/builtins.exp @@ -117,8 +117,13 @@ proc test_lower {} { test_print_accept "print lower(char)" "C'00'" test_print_accept "print lower(byte)" "-128" test_print_accept "print lower(ubyte)" "0" - test_print_accept "print lower(int)" "-32768" + if [istarget "alpha-*-*"] then { + test_print_accept "print lower(int)" "-2147483648" + } else { + test_print_accept "print lower(int)" "-32768" + } test_print_accept "print lower(uint)" "0" + setup_xfail "alpha-*-*" test_print_accept "print lower(long)" "-2147483648" test_print_accept "print lower(ulong)" "0" test_print_accept "print lower(m_set)" "e1" @@ -133,8 +138,13 @@ proc test_lower {} { test_print_accept "print lower(v_char)" "C'00'" test_print_accept "print lower(v_byte)" "-128" test_print_accept "print lower(v_ubyte)" "0" - test_print_accept "print lower(v_int)" "-32768" + if [istarget "alpha-*-*"] then { + test_print_accept "print lower(v_int)" "-2147483648" + } else { + test_print_accept "print lower(v_int)" "-32768" + } test_print_accept "print lower(v_uint)" "0" + setup_xfail "alpha-*-*" test_print_accept "print lower(v_long)" "-2147483648" test_print_accept "print lower(v_ulong)" "0" test_print_accept "print lower(v_set)" "e1" @@ -162,7 +172,11 @@ proc test_lower {} { test_print_accept "print lower(m_arr)" "1"; test_print_accept "print lower(m_char_arr)" "C'00'" test_print_accept "print lower(m_bool_arr)" "FALSE" - test_print_accept "print lower(m_int_arr)" "-32768" + if [istarget "alpha-*-*"] then { + test_print_accept "print lower(m_int_arr)" "-2147483648" + } else { + test_print_accept "print lower(m_int_arr)" "-32768" + } test_print_accept "print lower(m_set_arr)" "e1" test_print_accept "print lower(m_set_range_arr)" "e2" test_print_accept "print lower(m_char_range_arr)" "'A'" @@ -174,7 +188,11 @@ proc test_lower {} { test_print_accept "print lower(v_arr)" "1"; test_print_accept "print lower(v_char_arr)" "C'00'" test_print_accept "print lower(v_bool_arr)" "FALSE" - test_print_accept "print lower(v_int_arr)" "-32768" + if [istarget "alpha-*-*"] then { + test_print_accept "print lower(v_int_arr)" "-2147483648" + } else { + test_print_accept "print lower(v_int_arr)" "-32768" + } test_print_accept "print lower(v_set_arr)" "e1" test_print_accept "print lower(v_set_range_arr)" "e2" test_print_accept "print lower(v_char_range_arr)" "'A'" @@ -194,10 +212,18 @@ proc test_upper {} { test_print_accept "print upper(char)" "C'ff'" test_print_accept "print upper(byte)" "127" test_print_accept "print upper(ubyte)" "255" - test_print_accept "print upper(int)" "32767" - test_print_accept "print upper(uint)" "65535" - test_print_accept "print upper(long)" "2147483647" - test_print_accept "print upper(ulong)" "4294967295" + if [istarget "alpha-*-*"] then { + test_print_accept "print upper(int)" "2147483647" + test_print_accept "print upper(uint)" "4294967295" + setup_xfail "alpha-*-*" + test_print_accept "print upper(long)" "4294967295" + test_print_accept "print upper(ulong)" "18446744073709551615" + } else { + test_print_accept "print upper(int)" "32767" + test_print_accept "print upper(uint)" "65535" + test_print_accept "print upper(long)" "2147483647" + test_print_accept "print upper(ulong)" "4294967295" + } test_print_accept "print upper(m_set)" "e6" test_print_accept "print upper(m_set_range)" "e5" test_print_accept "print upper(m_char_range)" "'Z'" @@ -210,10 +236,18 @@ proc test_upper {} { test_print_accept "print upper(v_char)" "C'ff'" test_print_accept "print upper(v_byte)" "127" test_print_accept "print upper(v_ubyte)" "255" - test_print_accept "print upper(v_int)" "32767" - test_print_accept "print upper(v_uint)" "65535" - test_print_accept "print upper(v_long)" "2147483647" - test_print_accept "print upper(v_ulong)" "4294967295" + if [istarget "alpha-*-*"] then { + test_print_accept "print upper(v_int)" "2147483647" + test_print_accept "print upper(v_uint)" "4294967295" + setup_xfail "alpha-*-*" + test_print_accept "print upper(v_long)" "4294967295" + test_print_accept "print upper(v_ulong)" "18446744073709551615" + } else { + test_print_accept "print upper(v_int)" "32767" + test_print_accept "print upper(v_uint)" "65535" + test_print_accept "print upper(v_long)" "2147483647" + test_print_accept "print upper(v_ulong)" "4294967295" + } test_print_accept "print upper(v_set)" "e6" test_print_accept "print upper(v_set_range)" "e5" test_print_accept "print upper(v_char_range)" "'Z'" @@ -239,7 +273,11 @@ proc test_upper {} { test_print_accept "print upper(m_arr)" "10"; test_print_accept "print upper(m_char_arr)" "C'ff'" test_print_accept "print upper(m_bool_arr)" "TRUE" - test_print_accept "print upper(m_int_arr)" "32767" + if [istarget "alpha-*-*"] then { + test_print_accept "print upper(m_int_arr)" "2147483647" + } else { + test_print_accept "print upper(m_int_arr)" "32767" + } test_print_accept "print upper(m_set_arr)" "e6" test_print_accept "print upper(m_set_range_arr)" "e5" test_print_accept "print upper(m_char_range_arr)" "'Z'" @@ -251,7 +289,11 @@ proc test_upper {} { test_print_accept "print upper(v_arr)" "10"; test_print_accept "print upper(v_char_arr)" "C'ff'" test_print_accept "print upper(v_bool_arr)" "TRUE" - test_print_accept "print upper(v_int_arr)" "32767" + if [istarget "alpha-*-*"] then { + test_print_accept "print upper(v_int_arr)" "2147483647" + } else { + test_print_accept "print upper(v_int_arr)" "32767" + } test_print_accept "print upper(v_set_arr)" "e6" test_print_accept "print upper(v_set_range_arr)" "e5" test_print_accept "print upper(v_char_range_arr)" "'Z'" @@ -295,31 +337,47 @@ proc test_size {} { test_print_accept "print size(bool)" "1" test_print_accept "print size(char)" "1" test_print_accept "print size(byte)" "1" - test_print_accept "print size(int)" "2" - test_print_accept "print size(ulong)" "4" - test_print_accept "print size(ptr)" "4" + if [istarget "alpha-*-*"] then { + test_print_accept "print size(int)" "4" + test_print_accept "print size(ulong)" "8" + test_print_accept "print size(ptr)" "8" + test_print_accept "print size(m_chars_v)" "24" + test_print_accept "print size(m_struct)" "40" + } else { + test_print_accept "print size(int)" "2" + test_print_accept "print size(ulong)" "4" + test_print_accept "print size(ptr)" "4" + test_print_accept "print size(m_chars_v)" "22" + test_print_accept "print size(m_struct)" "36" + } test_print_accept "print size(m_set)" "1" test_print_accept "print size(m_char_range)" "1" test_print_accept "print size(m_range_arr)" "17" test_print_accept "print size(m_chars)" "20" - test_print_accept "print size(m_chars_v)" "22" test_print_accept "print size(m_bits)" "2" - test_print_accept "print size(m_struct)" "36" # locations test_print_accept "print size(v_bool)" "1" test_print_accept "print size(v_char)" "1" test_print_accept "print size(v_byte)" "1" - test_print_accept "print size(v_int)" "2" - test_print_accept "print size(v_ulong)" "4" - test_print_accept "print size(v_ptr)" "4" + if [istarget "alpha-*-*"] then { + test_print_accept "print size(v_int)" "4" + test_print_accept "print size(v_ulong)" "8" + test_print_accept "print size(v_ptr)" "8" + test_print_accept "print size(v_chars_v)" "24" + test_print_accept "print size(v_struct)" "40" + } else { + test_print_accept "print size(v_int)" "2" + test_print_accept "print size(v_ulong)" "4" + test_print_accept "print size(v_ptr)" "4" + test_print_accept "print size(v_chars_v)" "22" + test_print_accept "print size(v_struct)" "36" + } test_print_accept "print size(v_set)" "1" test_print_accept "print size(v_char_range)" "1" test_print_accept "print size(v_range_arr)" "17" test_print_accept "print size(v_chars)" "20" - test_print_accept "print size(v_chars_v)" "22" test_print_accept "print size(v_bits)" "2" - test_print_accept "print size(v_struct)" "36" } proc test_num {} { diff --git a/gdb/testsuite/gdb.chill/tests1.exp b/gdb/testsuite/gdb.chill/tests1.exp index f49e1c4..6b0c172 100644 --- a/gdb/testsuite/gdb.chill/tests1.exp +++ b/gdb/testsuite/gdb.chill/tests1.exp @@ -152,6 +152,8 @@ proc test_modes {} { test_print_accept "ptype r16" "long \\(-2147483648:2147483647\\)" \ "print long range mode" + # Not sure what this should be. + setup_xfail "*-*-*" test_print_accept "ptype r2" "set1 \\(bbb:ccc\\)" \ "print unnumbered set range mode" setup_xfail "*-*-*" diff --git a/gdb/testsuite/gdb.chill/tests2.exp b/gdb/testsuite/gdb.chill/tests2.exp index 8daa743..38260f1 100644 --- a/gdb/testsuite/gdb.chill/tests2.exp +++ b/gdb/testsuite/gdb.chill/tests2.exp @@ -21,6 +21,8 @@ if $tracelevel then { strace $tracelevel } +if [skip_chill_tests] then { continue } + set prms_id 0 set bug_id 0 |