test.ml in trackler-2.2.1.111

- old
+ new

@@ -1,16 +1,15 @@
 (* Test/exercise version: "1.1.0" *)
 
 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 = [
   "finds a value in an array with one element" >::
     ae (Some 0) (find [|6|] 6);
   "finds a value in the middle of an array" >::
\ No newline at end of file