builtins.exp

lwip在ucos上的移植

	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_numbered_set)" "n5"
    test_print_accept "print upper(m_char_range)" "'Z'"
    test_print_accept "print upper(m_bool_range)" "FALSE"
    test_print_accept "print upper(m_long_range)" "3211"
    test_print_accept "print upper(m_range)" "28"

    # discrete locations
    test_print_accept "print upper(v_bool)" "TRUE"
    test_print_accept "print upper(v_char)" {'\^[(]255[)]'}
    test_print_accept "print upper(v_byte)" "127"
    test_print_accept "print upper(v_ubyte)" "255"
    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_numbered_set)" "n5"
    test_print_accept "print upper(v_char_range)" "'Z'"
    test_print_accept "print upper(v_bool_range)" "FALSE"
    test_print_accept "print upper(v_long_range)" "3211"
    test_print_accept "print upper(v_range)" "28"

    # string mode names
    test_print_accept "print upper(m_chars)" "19"
    test_print_accept "print upper(m_chars_v)" "19"
    test_print_accept "print upper(m_bits)" "9"

    # string locations
    test_print_accept "print upper(v_chars)" "19"
    test_print_accept "print upper(v_chars_v)" "19"
    test_print_accept "print upper(v_bits)" "9"

    # string expressions
    test_print_accept "print upper(\"abcd\")" "3"
    test_print_accept "print upper(B'010101')" "5"

    # array mode name
    test_print_accept "print upper(m_arr)" "10";
    test_print_accept "print upper(m_char_arr)" {'\^[(]255[)]'}
    test_print_accept "print upper(m_bool_arr)" "TRUE"
    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_numbered_set_arr)" "n5"
    test_print_accept "print upper(m_char_range_arr)" "'Z'"
    test_print_accept "print upper(m_bool_range_arr)" "FALSE"
    test_print_accept "print upper(m_long_range_arr)" "3211"
    test_print_accept "print upper(m_range_arr)" "28"

    # array locations
    test_print_accept "print upper(v_arr)" "10";
    test_print_accept "print upper(v_char_arr)" {'\^[(]255[)]'}
    test_print_accept "print upper(v_bool_arr)" "TRUE"
    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_numbered_set_arr)" "n5"
    test_print_accept "print upper(v_char_range_arr)" "'Z'"
    test_print_accept "print upper(v_bool_range_arr)" "FALSE"
    test_print_accept "print upper(v_long_range_arr)" "3211"
    test_print_accept "print upper(v_range_arr)" "28"
}

proc test_length {} {
    global passcount

    verbose "testing builtin LENGTH"
    set passcount 0

    # string locations
    test_print_accept "print length(v_chars)" "20"
    test_print_accept "print length(v_chars_v)" "7";
    test_print_accept "print length(v_bits)" "10";

    # string expressions
    test_print_accept "print length(\"the quick brown fox ...\")" "23"
    test_print_accept "print length(B'010101010101')" "12"
    test_print_accept "print length(\"foo \" // \"bar\")" "7"

    # check some failures
    setup_xfail "*-*-*"
    test_print_accept "print length(m_chars)" "typename in invalid context"
    setup_xfail "*-*-*"
    test_print_accept "print length(v_byte)" "bad argument to LENGTH builtin"
    setup_xfail "*-*-*"
    test_print_accept "print length(b'000000' // b'111111')" "12"
}

proc test_size {} {
    global passcount

    verbose "testing builtin SIZE"
    set passcount 0

    # modes
    test_print_accept "print size(bool)" "1"
    test_print_accept "print size(char)" "1"
    test_print_accept "print size(byte)" "1"
    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_numbered_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_bits)" "2"

    # 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"
    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_numbered_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_bits)" "2"
}

proc test_num {} {
    global passcount

    verbose "testing builtin NUM"
    set passcount 0

    # constants
    test_print_accept "print num(false)" "0"
    test_print_accept "print num(true)" "1"
    test_print_accept "print num(10)" "10"
    test_print_accept "print num(33-34)" "-1"
    test_print_accept "print num('X')" "88"
    test_print_accept "print num(e5)" "4"

    # locations
    test_print_accept "print num(v_bool)" "0"
    test_print_accept "print num(v_char)" "88"
    test_print_accept "print num(v_byte)" "-30"
    test_print_accept "print num(v_ubyte)" "30"
    test_print_accept "print num(v_int)" "-333"
    test_print_accept "print num(v_uint)" "333"
    test_print_accept "print num(v_long)" "-4444"
    test_print_accept "print num(v_ulong)" "4444"
    test_print_accept "print num(v_set)" "2"
    test_print_accept "print num(v_set_range)" "2"
    test_print_accept "print num(v_numbered_set)" "35"
    test_print_accept "print num(v_char_range)" "71"
    test_print_accept "print num(v_long_range)" "1000"
    test_print_accept "print num(v_range)" "23"
}

# Start with a fresh gdb.

gdb_exit
gdb_start
gdb_reinitialize_dir $srcdir/$subdir

gdb_test "set print sevenbit-strings" ".*"

if [set_lang_chill] then {
    # test builtins as described in chapter 6.20.3 Z.200
    test_num
    test_size
    test_lower
    test_upper
    test_length
} else {
    warning "$test_name tests suppressed."
}