simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2026-01-28 11:54:51 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added tests.

Browse source
This commit is contained in:
jkloos 2016-04-05 16:39:05 +02:00
parent de859a844d
commit de2244641b
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/data/CCTrie.ml
View file

@ -362,6 +362,7 @@ module Make(W : WORD) = struct
T.fold (fun acc k v -> (k,v) :: acc) [] t1 \ T.fold (fun acc k v -> (k,v) :: acc) [] t1 \
|> List.sort Pervasives.compare = List.sort Pervasives.compare l1 |> List.sort Pervasives.compare = List.sort Pervasives.compare l1
*) *)
let mapi f t = let mapi f t =
let rec map_ prefix t = match t with let rec map_ prefix t = match t with
| Empty -> Empty | Empty -> Empty
@ -377,6 +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 \
|> T.to_list |> List.sort Pervasives.compare =\
List.map (fun (k, v) -> (k, v ^ "!")) l1 |> List.sort Pervasives.compare
*)
let map f t = let map f t =
let rec map_ = function let rec map_ = function
@ -389,6 +395,12 @@ 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
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
*)
let iter f t = let iter f t =
_fold _fold