tracks/ocaml/tools/test-generator/templates/ocaml/phone-number/test.ml in trackler-2.2.1.116 vs tracks/ocaml/tools/test-generator/templates/ocaml/phone-number/test.ml in trackler-2.2.1.117
- old
+ new
@@ -1,14 +1,14 @@
-open Core
+open Base
open OUnit2
open Phone_number
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 String.to_string) exp got
+ assert_equal ~printer:(option_to_string Fn.id) exp got
let tests = [
(* TEST
"$description" >::
ae $expected (number $phrase);