tracks/ocaml/tools/test-generator/templates/ocaml/prime-factors/test.ml in trackler-2.2.1.116 vs tracks/ocaml/tools/test-generator/templates/ocaml/prime-factors/test.ml in trackler-2.2.1.117
- old
+ new
@@ -1,11 +1,11 @@
-open Core
+open Base
open OUnit2
open Prime_factors
(* Assert Equals *)
let ae exp got _test_ctxt =
- let printer = List.to_string ~f:Int64.to_string in
+ let printer xs = List.map xs ~f:Int64.to_string |> String.concat ~sep:";" in
assert_equal exp got ~printer
let to_int64s = List.map ~f:Int64.of_int
(* 64 bits integers are needed for the last number.