Sha256: b0d248b1f756c6540a6a0e2e625f70138ff471a85e7093ce803f3aebae9273cb
Contents?: true
Size: 588 Bytes
Versions: 63
Compression:
Stored size: 588 Bytes
Contents
open Base
open OUnit2
open Prime_factors
(* Assert Equals *)
let ae exp got _test_ctxt =
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.
*
* If you happen to use a 64 bits machine normal ints would do as well, but this
* works for everybody.
*)
let tests = [
(* TEST
"$description" >::
ae (to_int64s $expected) (factors_of $(value)L);
END TEST *)
]
let () =
run_test_tt_main ("prime-factors tests" >::: tests)
Version data entries
63 entries across 63 versions & 1 rubygems