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

more tests

Browse source
This commit is contained in:
Simon Cruanes 2015-09-22 13:55:26 +02:00
parent dc896e3bbb
commit 4dc91894af
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/data/CCIntMap.ml
View file

@ -152,9 +152,9 @@ let rec find_exn k t = match t with
else find_exn k r else find_exn k r
else raise Not_found else raise Not_found
(* TODO test with lt_unsigned_ *) (* XXX could test with lt_unsigned_? *)
(* FIXME: valid if k < 0? (*
if k <= prefix (* search tree *) if k <= prefix (* search tree *)
then find_exn k l then find_exn k l
else find_exn k r else find_exn k r
@ -251,7 +251,12 @@ let update k f t =
| None -> t | None -> t
| Some v -> add k v t | Some v -> add k v t
(* TODO test *) (*$= & ~printer:Q.Print.(list (pair int int))
[1,1; 2, 22; 3, 3] \
(of_list [1,1;2,2;3,3] \
|> update 2 (function None -> assert false | Some _ -> Some 22) \
|> to_list |> List.sort Pervasives.compare)
*)
let doubleton k1 v1 k2 v2 = add k1 v1 (singleton k2 v2) let doubleton k1 v1 k2 v2 = add k1 v1 (singleton k2 v2)