simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 03:05:28 -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
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)
*)