Commits

arkdro  committed 01e3ae5

add test for big_int to chars conversion

  • Participants
  • Parent commits 4fd1016

Comments (0)

Files changed (1)

File lib/ocamerl/ocamerl/tools.ml

   in
   f [] 0 positive
 
+let test2 () =
+  let num = Big_int.big_int_of_int 116839 in
+  let buf = ['\003'; '\000'; '\103'; '\200'; '\001'] in
+  let buf_act = small_big_chars_of_big_int num in
+  assert (buf = buf_act)
+
 let large_big_chars_of_big_int num =
   small_big_chars_of_big_int num        (* temp stub *)