|
@@ -41,7 +41,7 @@ open Core.Std;;
|
|
|
(* Function make_uniq ============================= *)
|
|
|
let make_uniq test solution () =
|
|
|
let actual = Unify.make_uniq test in
|
|
|
- OUnit.assert_equal actual solution
|
|
|
+ OUnit.assert_equal ~cmp:(List.equal ~equal:Rc.equal) actual solution
|
|
|
;;
|
|
|
|
|
|
(* Big and sometimes strange list, to be used in test data set.
|
|
@@ -109,7 +109,10 @@ let make_uniq_data = [
|
|
|
;;
|
|
|
|
|
|
let t_set_fast =
|
|
|
- List.map make_uniq_data ~f:(fun (t, s, name) -> ( (make_uniq t s), name))
|
|
|
+ List.map make_uniq_data ~f:(fun (t, s, name) -> (
|
|
|
+ let t = List.map ~f:Tools.to_entry t in
|
|
|
+ let s = List.map ~f:Tools.to_entry s in
|
|
|
+ (make_uniq t s), name))
|
|
|
|> List.map ~f:(fun ( f,name ) -> (name, `Quick, f))
|
|
|
;;
|
|
|
|
|
@@ -117,7 +120,10 @@ let t_set_long =
|
|
|
List.map
|
|
|
((big_pack ~message:"Much longer than real use case list of " 1_000)
|
|
|
@ (big_pack ~message:"Crazy long list of " 9_999))
|
|
|
- ~f:(fun (t, s, name) -> ( (make_uniq t s), name))
|
|
|
+ ~f:(fun (t, s, name) ->
|
|
|
+ let t = List.map ~f:Tools.to_entry t in
|
|
|
+ let s = List.map ~f:Tools.to_entry s in
|
|
|
+ ( (make_uniq t s), name))
|
|
|
|> List.map ~f:(fun ( f,name ) -> (name, `Slow, f))
|
|
|
;;
|
|
|
|