ocaml-containers/tests/data/t_misc.ml

module Test = (val Containers_testlib.make ~__FILE__ ())
open Test

module Mixmap = struct
  t @@ fun () ->
  let module M = CCMixmap.Make (CCInt) in
  let inj_int = CCMixmap.create_inj () in
  let inj_str = CCMixmap.create_inj () in
  let inj_list_int = CCMixmap.create_inj () in

  let m =
    M.empty |> M.add ~inj:inj_int 1 1 |> M.add ~inj:inj_str 2 "2"
    |> M.add ~inj:inj_list_int 3 [ 3; 3; 3 ]
  in

  assert_equal (M.get ~inj:inj_int 1 m) (Some 1);
  assert_equal (M.get ~inj:inj_str 1 m) None;
  assert_equal (M.get ~inj:inj_str 2 m) (Some "2");
  assert_equal (M.get ~inj:inj_int 2 m) None;
  assert_equal (M.get ~inj:inj_list_int 3 m) (Some [ 3; 3; 3 ]);
  assert_equal (M.get ~inj:inj_str 3 m) None;
  true
end

module Mixset = struct
  open CCMixset;;

  t @@ fun () ->
  let k1 : int key = newkey () in
  let k2 : int key = newkey () in
  let k3 : string key = newkey () in
  let set = empty |> set ~key:k1 1 |> set ~key:k2 2 |> set ~key:k3 "3" in
  assert (get ~key:k1 set = Some 1);
  assert (get ~key:k2 set = Some 2);
  assert (get ~key:k3 set = Some "3");
  true
end

module Mixtbl = struct
  open CCFun
  open CCMixtbl;;

  t @@ fun () ->
  let inj_int = create_inj () in
  let tbl = create 10 in
  assert_equal None (get ~inj:inj_int tbl "a");
  set ~inj:inj_int tbl "a" 1;
  assert_equal (Some 1) (get ~inj:inj_int tbl "a");
  let inj_string = create_inj () in
  set ~inj:inj_string tbl "b" "Hello";
  assert_equal (Some "Hello") (get ~inj:inj_string tbl "b");
  assert_equal None (get ~inj:inj_string tbl "a");
  assert_equal (Some 1) (get ~inj:inj_int tbl "a");
  set ~inj:inj_string tbl "a" "Bye";
  assert_equal None (get ~inj:inj_int tbl "a");
  assert_equal (Some "Bye") (get ~inj:inj_string tbl "a");
  true
  ;;

  t @@ fun () ->
  let inj_int = create_inj () in
  let tbl = create 5 in
  set ~inj:inj_int tbl "foo" 1;
  set ~inj:inj_int tbl "bar" 2;
  assert_equal 2 (length tbl);
  assert_equal 2 (find ~inj:inj_int tbl "bar");
  set ~inj:inj_int tbl "foo" 42;
  assert_equal 2 (length tbl);
  remove tbl "bar";
  assert_equal 1 (length tbl);
  true
  ;;

  t @@ fun () ->
  let inj_int = create_inj () in
  let inj_str = create_inj () in
  let tbl = create 5 in
  set ~inj:inj_int tbl "foo" 1;
  set ~inj:inj_int tbl "bar" 2;
  set ~inj:inj_str tbl "baaz" "hello";
  assert_equal 3 (length tbl);
  clear tbl;
  assert_equal 0 (length tbl);
  true
  ;;

  t @@ fun () ->
  let inj_int = create_inj () in
  let inj_str = create_inj () in
  let tbl = create 5 in
  set ~inj:inj_int tbl "foo" 1;
  set ~inj:inj_int tbl "bar" 2;
  set ~inj:inj_str tbl "baaz" "hello";
  assert_bool "mem foo int" (mem ~inj:inj_int tbl "foo");
  assert_bool "mem bar int" (mem ~inj:inj_int tbl "bar");
  assert_bool "not mem baaz int" (not (mem ~inj:inj_int tbl "baaz"));
  assert_bool "not mem foo str" (not (mem ~inj:inj_str tbl "foo"));
  assert_bool "not mem bar str" (not (mem ~inj:inj_str tbl "bar"));
  assert_bool "mem baaz str" (mem ~inj:inj_str tbl "baaz");
  true
  ;;

  t @@ fun () ->
  let inj_int = create_inj () in
  let inj_str = create_inj () in
  let tbl = create 5 in
  set ~inj:inj_int tbl "foo" 1;
  set ~inj:inj_int tbl "bar" 2;
  set ~inj:inj_str tbl "baaz" "hello";
  let l = keys_iter tbl |> Iter.to_list in
  assert_equal [ "baaz"; "bar"; "foo" ] (List.sort compare l);
  true
  ;;

  t @@ fun () ->
  let inj_int = create_inj () in
  let inj_str = create_inj () in
  let tbl = create 5 in
  set ~inj:inj_int tbl "foo" 1;
  set ~inj:inj_int tbl "bar" 2;
  set ~inj:inj_str tbl "baaz" "hello";
  set ~inj:inj_str tbl "str" "rts";
  let l_int = bindings_of ~inj:inj_int tbl |> Iter.to_list in
  assert_equal [ "bar", 2; "foo", 1 ] (List.sort compare l_int);
  let l_str = bindings_of ~inj:inj_str tbl |> Iter.to_list in
  assert_equal [ "baaz", "hello"; "str", "rts" ] (List.sort compare l_str);
  true
end

module Multiset = struct
  t @@ fun () ->
  let module S = CCMultiSet.Make (String) in
  S.count (S.add_mult S.empty "a" 5) "a" = 5
  ;;

  t @@ fun () ->
  let module S = CCMultiSet.Make (String) in
  S.count (S.remove_mult (S.add_mult S.empty "a" 5) "a" 3) "a" = 2
  ;;

  t @@ fun () ->
  let module S = CCMultiSet.Make (String) in
  S.count (S.remove_mult (S.add_mult S.empty "a" 4) "a" 6) "a" = 0
end

module PersistentArray = struct
  open CCPersistentArray;;

  t @@ fun () ->
  of_list
    [
      of_list [ 1 ];
      of_list [];
      of_list [ 2; 3; 4 ];
      of_list [ 5 ];
      of_list [ 6; 7 ];
    ]
  |> flatten |> to_list = [ 1; 2; 3; 4; 5; 6; 7 ]
  ;;

  t @@ fun () ->
  of_list [ of_list []; of_list []; of_list [] ] |> flatten |> length = 0
  ;;

  t @@ fun () -> of_list [] |> flatten |> length = 0;;
  q Q.(list int) (fun l -> of_list l |> to_gen |> of_gen |> to_list = l)
end