mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
16bcd53d21
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@5302 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
33 lines
1.1 KiB
Ruby
33 lines
1.1 KiB
Ruby
require 'test/unit'
|
|
|
|
$KCODE = 'none'
|
|
|
|
class TestPack < Test::Unit::TestCase
|
|
def test_pack
|
|
$format = "c2x5CCxsdils_l_a6";
|
|
# Need the expression in here to force ary[5] to be numeric. This avoids
|
|
# test2 failing because ary2 goes str->numeric->str and ary does not.
|
|
ary = [1,-100,127,128,32767,987.654321098 / 100.0,12345,123456,-32767,-123456,"abcdef"]
|
|
$x = ary.pack($format)
|
|
ary2 = $x.unpack($format)
|
|
|
|
assert_equal(ary.length, ary2.length)
|
|
assert_equal(ary.join(':'), ary2.join(':'))
|
|
assert_match(/def/, $x)
|
|
|
|
$x = [-1073741825]
|
|
assert_equal($x, $x.pack("q").unpack("q"))
|
|
end
|
|
|
|
def test_pack_N
|
|
assert_equal "\000\000\000\000", [0].pack('N')
|
|
assert_equal "\000\000\000\001", [1].pack('N')
|
|
assert_equal "\000\000\000\002", [2].pack('N')
|
|
assert_equal "\000\000\000\003", [3].pack('N')
|
|
assert_equal "\377\377\377\376", [4294967294].pack('N')
|
|
assert_equal "\377\377\377\377", [4294967295].pack('N')
|
|
|
|
assert_equal "\000\000\000\001\000\000\000\001", [1,1].pack('N*')
|
|
assert_equal "\000\000\000\001\000\000\000\001\000\000\000\001", [1,1,1].pack('N*')
|
|
end
|
|
end
|