simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix tests

Browse source
This commit is contained in:
Simon Cruanes 2016-04-05 20:01:39 +02:00
parent 53c4facdaf
commit 55c9d6c60b
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/data/CCTrie.ml
View file

@ -378,10 +378,11 @@ module Make(W : WORD) = struct
map map
in Node (v', map') in Node (v', map')
in map_ _id t in map_ _id t
(*$T
T.mapi (fun k v -> v ^ "!") t1 \ (*$= & ~printer:Q.Print.(list (pair (list int) string))
|> T.to_list |> List.sort Pervasives.compare =\ (List.map (fun (k, v) -> (k, v ^ "!")) l1 |> List.sort Pervasives.compare) \
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 = let map f t =
@ -395,10 +396,10 @@ module Make(W : WORD) = struct
in let map' = M.map map_ map in let map' = M.map map_ map
in Node (v', map') in Node (v', map')
in map_ t in map_ t
(*$T (*$= & ~printer:Q.Print.(list (pair (list int) string))
T.map (fun v -> v ^ "!") t1 \ (List.map (fun (k, v) -> (k, v ^ "!")) l1 |> List.sort Pervasives.compare) \
|> T.to_list |> List.sort Pervasives.compare =\ (T.map (fun v -> v ^ "!") t1 \
List.map (fun (k, v) -> (k, v ^ "!")) l1 |> List.sort Pervasives.compare |> T.to_list |> List.sort Pervasives.compare)
*) *)