diff --git a/ChangeLog b/ChangeLog index b676671596..e5ffba802f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +Fri Dec 26 14:05:13 2003 Minero Aoki + + * test/ruby/test_pack.rb: new test test_pack_N. + Fri Dec 26 10:58:58 2003 NAKAMURA Usaku * MANIFEST: add vms/config.h and remove vms/config.h_in. diff --git a/test/ruby/test_pack.rb b/test/ruby/test_pack.rb index c7097af423..f8f9d7e746 100644 --- a/test/ruby/test_pack.rb +++ b/test/ruby/test_pack.rb @@ -18,4 +18,16 @@ class TestPack < Test::Unit::TestCase $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