atom_test.ml

open Jest

open Atom

let _ = test "Atom create" @@
  fun () -> begin
    let a = atom 0 in
    ignore Expect.(expect @@ deref a |> toBe 0);
    addWatch a 0 (fun _key _atom oldV newV ->
        Js.log "oldV";
        Js.log oldV;
        Js.log "newV";
        Js.log newV;
      );
    Js.log a.watches;
    ignore @@ reset a 1;
    ignore @@ Expect.(expect @@ deref a |> toBe 1);
    ignore @@ (swap a @@ fun x -> x + 1);
    Expect.(expect @@ deref a |> toBe 2);
  end