mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
16dc6c2955
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@40407 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
267 lines
8.6 KiB
Ruby
267 lines
8.6 KiB
Ruby
require 'test/unit'
|
|
require '-test-/num2int/num2int'
|
|
|
|
class TestNum2int < Test::Unit::TestCase
|
|
SHRT_MIN = -32768
|
|
SHRT_MAX = 32767
|
|
USHRT_MAX = 65535
|
|
|
|
INT_MIN = -2147483648
|
|
INT_MAX = 2147483647
|
|
UINT_MAX = 4294967295
|
|
|
|
case [0].pack('L!').size
|
|
when 4
|
|
LONG_MAX = 2147483647
|
|
LONG_MIN = -2147483648
|
|
ULONG_MAX = 4294967295
|
|
when 8
|
|
LONG_MAX = 9223372036854775807
|
|
LONG_MIN = -9223372036854775808
|
|
ULONG_MAX = 18446744073709551615
|
|
end
|
|
|
|
LLONG_MAX = 9223372036854775807
|
|
LLONG_MIN = -9223372036854775808
|
|
ULLONG_MAX = 18446744073709551615
|
|
|
|
FIXNUM_MAX = LONG_MAX/2
|
|
FIXNUM_MIN = LONG_MIN/2
|
|
|
|
def fix2big(n)
|
|
10000000000000000000000000000.coerce(n)[0]
|
|
end
|
|
|
|
def assert_num2i_success_internal(exp, func, arg)
|
|
mesg = "#{func}(#{arg.inspect})"
|
|
out = nil
|
|
assert_nothing_raised(mesg) {
|
|
out = Num2int.send(func, arg)
|
|
}
|
|
assert_equal(exp, out, mesg)
|
|
end
|
|
|
|
def assert_num2i_success(type, num, result=num)
|
|
func = "NUM2#{type}".upcase
|
|
assert_num2i_success_internal(result.to_s, func, num)
|
|
assert_num2i_success_internal(result.to_s, func, fix2big(num))
|
|
assert_num2i_success_internal(result.to_s, func, Rational(num, 1))
|
|
if num.to_f.to_i == num
|
|
assert_num2i_success_internal(result.to_s, func, num.to_f)
|
|
end
|
|
# The conversion functions such as NUM2INT uses (conceptually) to_int.
|
|
if (arg = num.to_f + 0.5) != num.to_f && arg.to_int == num
|
|
assert_num2i_success_internal(result.to_s, func, arg)
|
|
end
|
|
if (arg = num.to_f - 0.5) != num.to_f && arg.to_int == num
|
|
assert_num2i_success_internal(result.to_s, func, arg)
|
|
end
|
|
if (arg = num + Rational(1,2)) && arg.to_int == num
|
|
assert_num2i_success_internal(result.to_s, func, arg)
|
|
end
|
|
if (arg = num - Rational(1,2)) && arg.to_int == num
|
|
assert_num2i_success_internal(result.to_s, func, arg)
|
|
end
|
|
end
|
|
|
|
def assert_num2i_error_internal(func, arg)
|
|
assert_raise(RangeError, "#{func}(#{arg.inspect})") {
|
|
Num2int.send(func, arg)
|
|
}
|
|
end
|
|
|
|
def assert_num2i_error(type, num)
|
|
func = "NUM2#{type}".upcase
|
|
assert_num2i_error_internal(func, num)
|
|
assert_num2i_error_internal(func, fix2big(num))
|
|
assert_num2i_error_internal(func, Rational(num, 1))
|
|
if num.to_f.to_i == num
|
|
assert_num2i_error_internal(func, num.to_f)
|
|
end
|
|
# The conversion functions such as NUM2INT uses (conceptually) to_int.
|
|
if (arg = num.to_f + 0.5) != num.to_f && arg.to_int == num
|
|
assert_num2i_error_internal(func, arg)
|
|
end
|
|
if (arg = num.to_f - 0.5) != num.to_f && arg.to_int == num
|
|
assert_num2i_error_internal(func, arg)
|
|
end
|
|
if (arg = num + Rational(1,2)) && arg.to_int == num
|
|
assert_num2i_error_internal(func, arg)
|
|
end
|
|
if (arg = num - Rational(1,2)) && arg.to_int == num
|
|
assert_num2i_error_internal(func, arg)
|
|
end
|
|
end
|
|
|
|
def assert_fix2i_success_internal(exp, func, arg)
|
|
mesg = "#{func}(#{arg.inspect})"
|
|
out = nil
|
|
assert_nothing_raised(mesg) {
|
|
out = Num2int.send(func, arg)
|
|
}
|
|
assert_equal(exp, out, mesg)
|
|
end
|
|
|
|
def assert_fix2i_success(type, num, result=num)
|
|
return if !num.kind_of?(Fixnum)
|
|
func = "FIX2#{type}".upcase
|
|
assert_fix2i_success_internal(result.to_s, func, num)
|
|
end
|
|
|
|
def assert_fix2i_error_internal(func, arg)
|
|
assert_raise(RangeError, "#{func}(#{arg.inspect})") {
|
|
Num2int.send(func, arg)
|
|
}
|
|
end
|
|
|
|
def assert_fix2i_error(type, num)
|
|
return if !num.kind_of?(Fixnum)
|
|
func = "FIX2#{type}".upcase
|
|
assert_num2i_error_internal(func, num)
|
|
end
|
|
|
|
def test_num2short
|
|
assert_num2i_success(:short, SHRT_MIN)
|
|
assert_num2i_success(:short, SHRT_MIN+1)
|
|
assert_num2i_success(:short, SHRT_MAX)
|
|
assert_num2i_error(:short, SHRT_MIN-1)
|
|
assert_num2i_error(:short, SHRT_MAX+1)
|
|
end
|
|
|
|
def test_num2ushort
|
|
assert_num2i_success(:ushort, 0)
|
|
assert_num2i_success(:ushort, USHRT_MAX)
|
|
assert_num2i_success(:ushort, -1, USHRT_MAX)
|
|
assert_num2i_success(:ushort, SHRT_MIN, SHRT_MAX+1)
|
|
assert_num2i_success(:ushort, SHRT_MIN+1, SHRT_MAX+2)
|
|
assert_num2i_error(:ushort, SHRT_MIN-1)
|
|
assert_num2i_error(:ushort, USHRT_MAX+1)
|
|
end
|
|
|
|
def test_num2int
|
|
assert_num2i_success(:int, INT_MIN)
|
|
assert_num2i_success(:int, INT_MIN+1)
|
|
assert_num2i_success(:int, INT_MAX)
|
|
assert_num2i_error(:int, INT_MIN-1)
|
|
assert_num2i_error(:int, INT_MAX+1)
|
|
end
|
|
|
|
def test_num2uint
|
|
assert_num2i_success(:uint, 0)
|
|
assert_num2i_success(:uint, UINT_MAX)
|
|
assert_num2i_success(:uint, -1, UINT_MAX)
|
|
assert_num2i_success(:uint, INT_MIN, INT_MAX+1)
|
|
assert_num2i_success(:uint, INT_MIN+1, INT_MAX+2)
|
|
assert_num2i_error(:uint, INT_MIN-1)
|
|
assert_num2i_error(:uint, UINT_MAX+1)
|
|
end
|
|
|
|
def test_num2long
|
|
assert_num2i_success(:long, LONG_MIN)
|
|
assert_num2i_success(:long, LONG_MIN+1)
|
|
assert_num2i_success(:long, LONG_MAX)
|
|
assert_num2i_error(:long, LONG_MIN-1)
|
|
assert_num2i_error(:long, LONG_MAX+1)
|
|
assert_num2i_success(:long, FIXNUM_MIN)
|
|
assert_num2i_success(:long, FIXNUM_MIN+1)
|
|
assert_num2i_success(:long, FIXNUM_MIN-1)
|
|
assert_num2i_success(:long, FIXNUM_MAX)
|
|
assert_num2i_success(:long, FIXNUM_MAX+1)
|
|
end
|
|
|
|
def test_num2ulong
|
|
assert_num2i_success(:ulong, 0)
|
|
assert_num2i_success(:ulong, ULONG_MAX)
|
|
assert_num2i_success(:ulong, -1, ULONG_MAX)
|
|
assert_num2i_success(:ulong, LONG_MIN, LONG_MAX+1)
|
|
assert_num2i_success(:ulong, LONG_MIN+1, LONG_MAX+2)
|
|
assert_num2i_error(:ulong, LONG_MIN-1)
|
|
assert_num2i_error(:ulong, ULONG_MAX+1)
|
|
assert_num2i_success(:ulong, FIXNUM_MIN, ULONG_MAX-FIXNUM_MAX)
|
|
assert_num2i_success(:ulong, FIXNUM_MIN+1, ULONG_MAX-FIXNUM_MAX+1)
|
|
assert_num2i_success(:ulong, FIXNUM_MIN-1, ULONG_MAX-FIXNUM_MAX-1)
|
|
assert_num2i_success(:ulong, FIXNUM_MAX, FIXNUM_MAX)
|
|
assert_num2i_success(:ulong, FIXNUM_MAX+1, FIXNUM_MAX+1)
|
|
end
|
|
|
|
def test_num2ll
|
|
assert_num2i_success(:ll, LLONG_MIN)
|
|
assert_num2i_success(:ll, LLONG_MIN+1)
|
|
assert_num2i_success(:ll, LLONG_MAX)
|
|
assert_num2i_error(:ll, LLONG_MIN-1)
|
|
assert_num2i_error(:ll, LLONG_MAX+1)
|
|
assert_num2i_success(:ll, FIXNUM_MIN)
|
|
assert_num2i_success(:ll, FIXNUM_MIN+1)
|
|
assert_num2i_success(:ll, FIXNUM_MIN-1)
|
|
assert_num2i_success(:ll, FIXNUM_MAX)
|
|
assert_num2i_success(:ll, FIXNUM_MAX+1)
|
|
end if defined?(Num2int.NUM2LL)
|
|
|
|
def test_num2ull
|
|
assert_num2i_success(:ull, 0)
|
|
assert_num2i_success(:ull, ULLONG_MAX)
|
|
assert_num2i_success(:ull, -1, ULLONG_MAX)
|
|
assert_num2i_success(:ull, LLONG_MIN, LLONG_MAX+1)
|
|
assert_num2i_success(:ull, LLONG_MIN+1, LLONG_MAX+2)
|
|
assert_num2i_error(:ull, LLONG_MIN-1)
|
|
assert_num2i_error(:ull, ULLONG_MAX+1)
|
|
assert_num2i_success(:ull, FIXNUM_MIN, ULLONG_MAX-FIXNUM_MAX)
|
|
assert_num2i_success(:ull, FIXNUM_MIN+1, ULLONG_MAX-FIXNUM_MAX+1)
|
|
assert_num2i_success(:ull, FIXNUM_MIN-1, ULLONG_MAX-FIXNUM_MAX-1)
|
|
assert_num2i_success(:ull, FIXNUM_MAX)
|
|
assert_num2i_success(:ull, FIXNUM_MAX+1)
|
|
end if defined?(Num2int.NUM2ULL)
|
|
|
|
def test_fix2short
|
|
assert_fix2i_success(:short, 0)
|
|
assert_fix2i_success(:short, SHRT_MAX)
|
|
assert_fix2i_success(:short, SHRT_MIN)
|
|
assert_fix2i_success(:short, SHRT_MIN+1)
|
|
assert_fix2i_error(:short, SHRT_MAX+1)
|
|
assert_fix2i_error(:short, SHRT_MIN-1)
|
|
assert_fix2i_error(:short, FIXNUM_MAX)
|
|
assert_fix2i_error(:short, FIXNUM_MIN)
|
|
assert_fix2i_error(:short, FIXNUM_MIN+1)
|
|
end
|
|
|
|
def test_fix2int
|
|
assert_fix2i_success(:int, 0)
|
|
assert_fix2i_success(:int, INT_MAX)
|
|
assert_fix2i_success(:int, INT_MIN)
|
|
assert_fix2i_success(:int, INT_MIN+1)
|
|
assert_fix2i_error(:int, INT_MAX+1)
|
|
assert_fix2i_error(:int, INT_MIN-1)
|
|
assert_fix2i_error(:int, FIXNUM_MAX) if INT_MAX < FIXNUM_MAX
|
|
assert_fix2i_error(:int, FIXNUM_MIN) if FIXNUM_MIN < INT_MIN
|
|
assert_fix2i_error(:int, FIXNUM_MIN+1) if FIXNUM_MIN+1 < INT_MIN
|
|
end
|
|
|
|
def test_fix2uint
|
|
assert_fix2i_success(:uint, 0)
|
|
assert_fix2i_success(:uint, UINT_MAX)
|
|
assert_fix2i_success(:uint, INT_MAX)
|
|
assert_fix2i_success(:uint, INT_MIN, INT_MAX+1)
|
|
assert_fix2i_success(:uint, INT_MIN+1, INT_MAX+2)
|
|
assert_fix2i_error(:uint, UINT_MAX+1)
|
|
assert_fix2i_error(:uint, INT_MIN-1)
|
|
assert_fix2i_error(:uint, FIXNUM_MAX) if UINT_MAX < FIXNUM_MAX
|
|
assert_fix2i_error(:uint, FIXNUM_MIN) if FIXNUM_MIN < INT_MIN
|
|
assert_fix2i_error(:uint, FIXNUM_MIN+1) if FIXNUM_MIN+1 < INT_MIN
|
|
end
|
|
|
|
def test_fix2long
|
|
assert_fix2i_success(:long, 0)
|
|
assert_fix2i_success(:long, FIXNUM_MAX)
|
|
assert_fix2i_success(:long, FIXNUM_MIN)
|
|
assert_fix2i_success(:long, FIXNUM_MIN+1)
|
|
end
|
|
|
|
def test_fix2ulong
|
|
assert_fix2i_success(:ulong, 0)
|
|
assert_fix2i_success(:ulong, FIXNUM_MAX)
|
|
assert_fix2i_success(:ulong, -1, ULONG_MAX)
|
|
end
|
|
|
|
end
|
|
|
|
|