tracks/ocaml/tools/test-generator/templates/ocaml/binary-search/test.ml in trackler-2.2.1.116 vs tracks/ocaml/tools/test-generator/templates/ocaml/binary-search/test.ml in trackler-2.2.1.117
- old
+ new
@@ -1,14 +1,13 @@
open OUnit2
open Binary_search
-open Core
let option_to_string f = function
| None -> "None"
| Some x -> "Some " ^ f x
let ae exp got _test_ctxt =
- assert_equal ~printer:(option_to_string Int.to_string) exp got
+ assert_equal ~printer:(option_to_string string_of_int) exp got
let tests = [
(* TEST
"$description" >::
ae $expected (find $array $value);