Source file `test_namespace.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
open Core
open Async
open Vcaml
open Vcaml_test_helpers

let%expect_test "create, all_named" =
  let%bind () =
    with_client (fun client ->
      let open Deferred.Or_error.Let_syntax in
      let%bind unnamed = Namespace.create client () in
      let%bind named = Namespace.create client ~name:"foo" () in
      let%map all_named = Namespace.all_named client in
      print_s
        [%message
          (unnamed : Namespace.t)
            (named : Namespace.t)
            (all_named : Namespace.t String.Map.t)])
  in
  [%expect
    {|
    ((unnamed ((id 2) (name ()))) (named ((id 3) (name (foo))))
     (all_named
      ((foo ((id 3) (name (foo))))
       (nvim.terminal.prompt ((id 1) (name (nvim.terminal.prompt)))))))
    |}];
  return ()
;;