Commits

arkdro committed 4705e2b

test for big_int_of_chars

Comments (0)

Files changed (1)

lib/ocamerl/ocamerl/tools.ml

         Big_int.zero_big_int
         (List.rev chars)
 
+let test1 () =
+  let l1 = ['\001'; '\200'; '\103'] in
+  assert (
+    "6801409" = Big_int.string_of_big_int (big_int_of_chars (List.rev l1))
+  )
+
 let chars_of_big_int n = failwith "chars_of_big_int not implemented yet"
 
 let rec _chars_of_int v chars n =