Source file Unit_immutable_buffer.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
module B = Immutable_buffer

let test_immutable_buffer () =
  let check (expected, b) =
    Alcotest.(check string) expected expected (B.to_string b)
  in
  List.iter check
    [
      ("just string", B.of_string "just string");
      ( "combine",
        B.combine [ B.of_string "co"; B.of_string "mbi"; B.of_string "ne" ] );
      ( "with a separator",
        B.combine ~sep:" "
          [ B.of_string "with"; B.of_string "a"; B.of_string "separator" ] );
      ( "foo(1, 2, 3)",
        B.combine
          [
            B.of_string "foo(";
            B.combine ~sep:", "
              [ B.of_string "1"; B.of_string "2"; B.of_string "3" ];
            B.of_string ")";
          ] );
    ]

let tests =
  Testutil.pack_tests "immutable buffer"
    [ ("test immutable buffer", test_immutable_buffer) ]