Validate uint size

Author: Yuki Ito

src/msgpack_packer.erl

@@ -128,8 +128,11 @@ pack_uint(N) when (N band 16#FFFF) =:= N ->
 pack_uint(N) when (N band 16#FFFFFFFF) =:= N->
     << 16#CE:8, N:32/big-unsigned-integer-unit:1 >>;
 %% uint 64
+pack_uint(N) when (N band 16#FFFFFFFFFFFFFFFF) =:= N ->
+    << 16#CF:8, N:64/big-unsigned-integer-unit:1 >>;
+%% too big unit
 pack_uint(N) ->
-    << 16#CF:8, N:64/big-unsigned-integer-unit:1 >>.
+    {error, {badarg, N}}.
 
 
 -spec pack_double(float()) -> binary().

test/msgpack_test.erl

@@ -253,7 +253,10 @@ error_test_()->
       end},
      {"badarg too big int",
       ?_assertEqual({error, {badarg, -16#8000000000000001}},
-                     pack(-16#8000000000000001))}
+                     pack(-16#8000000000000001))},
+     {"badarg too big uint",
+      ?_assertEqual({error, {badarg, 16#10000000000000000}},
+                     pack(16#10000000000000000))}
     ].
 
 binary_test_() ->