ocaml-containers/tests/data/t_persistenthashtbl.ml

module Test = (val Containers_testlib.make ~__FILE__ ())
open Test
open CCPersistentHashtbl
module H = Make (CCInt)

let my_list = [ 1, "a"; 2, "b"; 3, "c"; 4, "d" ]
let my_iter = Iter.of_list my_list

let _list_uniq =
  CCList.sort_uniq ~cmp:(fun a b -> Stdlib.compare (fst a) (fst b))

let _list_int_int =
  Q.(
    map_same_type _list_uniq
      (list_of_size Gen.(0 -- 40) (pair small_int small_int)))
;;

t @@ fun () ->
let h = H.of_iter my_iter in
assert_equal "a" (H.find h 1);
assert_raises (( = ) Not_found) (fun () -> H.find h 5);
let h' = H.replace h 5 "e" in
assert_equal "a" (H.find h' 1);
assert_equal "e" (H.find h' 5);
assert_equal "a" (H.find h 1);
assert_raises (( = ) Not_found) (fun () -> H.find h 5);
true
;;

t @@ fun () ->
let n = 10000 in
let seq = Iter.map (fun i -> i, string_of_int i) Iter.(0 -- n) in
let h = H.of_iter seq in
Iter.iter (fun (k, v) -> assert_equal ~printer:(fun x -> x) v (H.find h k)) seq;
assert_raises (( = ) Not_found) (fun () -> H.find h (n + 1));
true
;;

q _list_int_int (fun l ->
    let h = H.of_list l in
    List.for_all (fun (k, v) -> try H.find h k = v with Not_found -> false) l)
;;

t @@ fun () ->
let h = H.of_iter Iter.(map (fun i -> i, string_of_int i) (0 -- 200)) in
assert_equal 201 (H.length h);
true
;;

q _list_int_int (fun l ->
    let h = H.of_list l in
    H.length h = List.length l)
;;

t @@ fun () ->
let h = H.of_iter my_iter in
assert_equal "a" (H.find h 1);
assert_raises (( = ) Not_found) (fun () -> H.find h 5);
let h1 = H.add h 5 "e" in
assert_equal "a" (H.find h1 1);
assert_equal "e" (H.find h1 5);
assert_equal "a" (H.find h 1);
let h2 = H.add h1 5 "ee" in
assert_equal "ee" (H.find h2 5);
assert_raises (( = ) Not_found) (fun () -> H.find h 5);
let h3 = H.remove h2 1 in
assert_equal "ee" (H.find h3 5);
assert_raises (( = ) Not_found) (fun () -> H.find h3 1);
let h4 = H.remove h3 5 in
assert_equal "e" (H.find h4 5);
assert_equal "ee" (H.find h3 5);
true
;;

t @@ fun () ->
let h = H.of_iter my_iter in
assert_equal (H.find h 2) "b";
assert_equal (H.find h 3) "c";
assert_equal (H.find h 4) "d";
assert_equal (H.length h) 4;
let h = H.remove h 2 in
assert_equal (H.find h 3) "c";
assert_equal (H.length h) 3;
assert_raises (( = ) Not_found) (fun () -> H.find h 2);
true
;;

t @@ fun () ->
let open Iter.Infix in
let n = 10000 in
let seq = Iter.map (fun i -> i, string_of_int i) (0 -- n) in
let h = H.of_iter seq in
assert_equal (n + 1) (H.length h);
let h = Iter.fold (fun h i -> H.remove h i) h (0 -- 500) in
assert_equal (n - 500) (H.length h);
assert_bool "is_empty" (H.is_empty (H.create 16));
true
;;

q _list_int_int (fun l ->
    let h = H.of_list l in
    let h = List.fold_left (fun h (k, _) -> H.remove h k) h l in
    H.is_empty h)
;;

t @@ fun () ->
let t1 = H.of_list [ 1, "a"; 2, "b1" ] in
let t2 = H.of_list [ 2, "b2"; 3, "c" ] in
let t =
  H.merge
    ~f:
      (fun _ -> function
        | `Right v2 -> Some v2
        | `Left v1 -> Some v1
        | `Both (s1, s2) ->
          if s1 < s2 then
            Some s1
          else
            Some s2)
    t1 t2
in
assert_equal ~printer:string_of_int 3 (H.length t);
assert_equal "a" (H.find t 1);
assert_equal "b1" (H.find t 2);
assert_equal "c" (H.find t 3);
true
;;

q _list_int_int (fun l ->
    let l1, l2 = List.partition (fun (x, _) -> x mod 2 = 0) l in
    let h1 = H.of_list l1 in
    let h2 = H.add_list h1 l2 in
    List.for_all (fun (k, v) -> H.find h2 k = v) l
    && List.for_all (fun (k, v) -> H.find h1 k = v) l1
    && List.length l1 = H.length h1
    && List.length l = H.length h2)
;;

t @@ fun () ->
let h = H.of_iter my_iter in
let l = Iter.to_list (H.to_iter h) in
assert_equal my_list (List.sort compare l);
true
;;

t @@ fun () ->
let h = H.of_iter my_iter in
assert_equal "b" (H.find h 2);
assert_equal "a" (H.find h 1);
assert_raises (( = ) Not_found) (fun () -> H.find h 42);
true