From 55c9d6c60b72fa710a1d759e1bef566d006ff0b3 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Tue, 5 Apr 2016 20:01:39 +0200 Subject: [PATCH] fix tests --- src/data/CCTrie.ml | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/src/data/CCTrie.ml b/src/data/CCTrie.ml index 6e9790bc..8105668c 100644 --- a/src/data/CCTrie.ml +++ b/src/data/CCTrie.ml @@ -378,10 +378,11 @@ module Make(W : WORD) = struct map in Node (v', map') in map_ _id t - (*$T - T.mapi (fun k v -> v ^ "!") t1 \ - |> T.to_list |> List.sort Pervasives.compare =\ - List.map (fun (k, v) -> (k, v ^ "!")) l1 |> List.sort Pervasives.compare + + (*$= & ~printer:Q.Print.(list (pair (list int) string)) + (List.map (fun (k, v) -> (k, v ^ "!")) l1 |> List.sort Pervasives.compare) \ + (T.mapi (fun k v -> v ^ "!") t1 \ + |> T.to_list |> List.sort Pervasives.compare) *) let map f t = @@ -395,10 +396,10 @@ module Make(W : WORD) = struct in let map' = M.map map_ map in Node (v', map') in map_ t - (*$T - T.map (fun v -> v ^ "!") t1 \ - |> T.to_list |> List.sort Pervasives.compare =\ - List.map (fun (k, v) -> (k, v ^ "!")) l1 |> List.sort Pervasives.compare + (*$= & ~printer:Q.Print.(list (pair (list int) string)) + (List.map (fun (k, v) -> (k, v ^ "!")) l1 |> List.sort Pervasives.compare) \ + (T.map (fun v -> v ^ "!") t1 \ + |> T.to_list |> List.sort Pervasives.compare) *)