File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -232,10 +232,39 @@ map_test_()->
232232
233233int_test_ () ->
234234 [
235- {" " ,
235+ {" negative fixnum " ,
236236 fun () ->
237- Term = - 2147483649 ,
237+ Term = - 32 ,
238238 Binary = pack (Term ),
239+ ? assertEqual (1 , byte_size (Binary )),
240+ ? assertEqual ({ok , Term }, unpack (Binary ))
241+ end },
242+ {" int 8" ,
243+ fun () ->
244+ Term = - 128 ,
245+ Binary = pack (Term ),
246+ ? assertEqual (2 , byte_size (Binary )),
247+ ? assertEqual ({ok , Term }, unpack (Binary ))
248+ end },
249+ {" int 16" ,
250+ fun () ->
251+ Term = - 16#8000 ,
252+ Binary = pack (Term ),
253+ ? assertEqual (3 , byte_size (Binary )),
254+ ? assertEqual ({ok , Term }, unpack (Binary ))
255+ end },
256+ {" int 32" ,
257+ fun () ->
258+ Term = - 16#80000000 ,
259+ Binary = pack (Term ),
260+ ? assertEqual (5 , byte_size (Binary )),
261+ ? assertEqual ({ok , Term }, unpack (Binary ))
262+ end },
263+ {" int 64" ,
264+ fun () ->
265+ Term = - 16#80000001 ,
266+ Binary = pack (Term ),
267+ ? assertEqual (9 , byte_size (Binary )),
239268 ? assertEqual ({ok , Term }, unpack (Binary ))
240269 end }
241270 ].
You can’t perform that action at this time.
0 commit comments