From 9fea8758e98eed379bf406f2fea6c8403efe2590 Mon Sep 17 00:00:00 2001 From: akr Date: Thu, 6 Jun 2013 11:57:35 +0000 Subject: * configure.in: Invoke RUBY_REPLACE_TYPE for size_t. Don't invoke RUBY_CHECK_PRINTF_PREFIX for size_t to avoid conflict with RUBY_REPLACE_TYPE. * internal.h (rb_absint_size): Declared. (rb_absint_size_in_word): Ditto. (rb_int_export): Ditto. * bignum.c (rb_absint_size): New function. (rb_absint_size_in_word): Ditto. (int_export_fill_dd): Ditto. (int_export_take_lowbits): Ditto. (rb_int_export): Ditto. * pack.c (pack_pack): Use rb_int_export for BER compressed integer. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@41106 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- test/-ext-/bignum/test_export.rb | 67 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 67 insertions(+) create mode 100644 test/-ext-/bignum/test_export.rb (limited to 'test') diff --git a/test/-ext-/bignum/test_export.rb b/test/-ext-/bignum/test_export.rb new file mode 100644 index 0000000000..3c1fc2e5e7 --- /dev/null +++ b/test/-ext-/bignum/test_export.rb @@ -0,0 +1,67 @@ +# coding: ASCII-8BIT + +require 'test/unit' +require "-test-/bignum" + +class TestBignum < Test::Unit::TestCase + class TestExport < Test::Unit::TestCase + def test_export_zero + assert_equal([0, "", 0], 0.test_export(nil, 1, 1, 1, 0)) + end + + def test_argument_check + assert_raise(ArgumentError) { 0.test_export(nil, 0, 1, 1, 0) } + assert_raise(ArgumentError) { 0.test_export(nil, 1, 1, 2, 0) } + assert_raise(ArgumentError) { 0.test_export(nil, 1, 0, 1, 0) } + assert_raise(ArgumentError) { 0.test_export(nil, 1, 1, 1, 8) } + + # assume sizeof(ssize_t) == sizeof(intptr_t) + assert_raise(ArgumentError) { 0.test_export(nil, 1, 1 << ([""].pack("p").length * 8 - 1), 1, 0) } + end + + def test_export_wordsize + assert_equal([1, "\x01", 1], 1.test_export(nil, 1, 1, 1, 0)) + assert_equal([1, "\x00\x01", 1], 1.test_export(nil, 1, 2, 1, 0)) + assert_equal([1, "\x00\x00\x01", 1], 1.test_export(nil, 1, 3, 1, 0)) + assert_equal([1, "\x01", 1], 1.test_export(nil, 1, 1, -1, 0)) + assert_equal([1, "\x01\x00", 1], 1.test_export(nil, 1, 2, -1, 0)) + assert_equal([1, "\x01\x00\x00", 1], 1.test_export(nil, 1, 3, -1, 0)) + end + + def test_export_fixed_buffer + assert_equal([0, "\x00\x00", 2], 0.test_export("xx", 1, 1, 1, 0)) + assert_equal([1, "\x00\x01", 2], 0x01.test_export("xx", 1, 1, 1, 0)) + assert_equal([1, "\x02\x01", 2], 0x0201.test_export("xx", 1, 1, 1, 0)) + assert_equal([2, "\x02\x01", 2], 0x030201.test_export("xx", 1, 1, 1, 0)) + assert_equal([2, "\x02\x01", 2], 0x04030201.test_export("xx", 1, 1, 1, 0)) + assert_equal([0, "\x00\x00", 2], 0.test_export("xx", -1, 1, 1, 0)) + assert_equal([1, "\x01\x00", 2], 0x01.test_export("xx", -1, 1, 1, 0)) + assert_equal([1, "\x01\x02", 2], 0x0201.test_export("xx", -1, 1, 1, 0)) + assert_equal([2, "\x01\x02", 2], 0x030201.test_export("xx", -1, 1, 1, 0)) + assert_equal([2, "\x01\x02", 2], 0x04030201.test_export("xx", -1, 1, 1, 0)) + end + + def test_export_wordorder_and_endian + assert_equal([1, "\x12\x34\x56\x78", 2], 0x12345678.test_export(nil, 1, 2, 1, 0)) + assert_equal([1, "\x34\x12\x78\x56", 2], 0x12345678.test_export(nil, 1, 2, -1, 0)) + assert_equal([1, "\x56\x78\x12\x34", 2], 0x12345678.test_export(nil, -1, 2, 1, 0)) + assert_equal([1, "\x78\x56\x34\x12", 2], 0x12345678.test_export(nil, -1, 2, -1, 0)) + end + + def test_export_native_endian + assert_equal([1, [0x1234].pack("S!"), 1], 0x1234.test_export(nil, 1, 2, 0, 0)) + end + + def test_export_nail + assert_equal([1, "\x01\x00\x00\x00\x01\x01", 6], 0b100011.test_export(nil, 1, 1, 1, 7)) + assert_equal([1, "\x01\x02\x03\x04\x05\x06\x07\x08", 8], 0x12345678.test_export(nil, 1, 1, 1, 4)) + assert_equal([1, "\x00\x12\x00\x34\x00\x56\x00\x78", 4], 0x12345678.test_export(nil, 1, 2, 1, 8)) + end + + def test_export_sign + assert_equal([-1, "\x01", 1], (-1).test_export(nil, 1, 1, 1, 0)) + assert_equal([-1, "\x80\x70\x60\x50\x40\x30\x20\x10", 8], (-0x8070605040302010).test_export(nil, 1, 1, 1, 0)) + end + + end +end -- cgit v1.2.3