flake_env/tests/flake_env_test_watches.re

open Lib.Watches;

let test_get_path_removes_prefix = () => {
  let input = `Assoc([("path", `String("aaaaaaaaaaabbbbb"))]);
  Alcotest.(check(string))("Prefix removed", "bbbbb", get_path(input));
};

let test_get_paths_from_doc = () => {
  let input =
    `Assoc([
      ("path", `String("aaaaaaaaaaabbbbb")),
      (
        "inputs",
        `Assoc([
          (
            "foo",
            `Assoc([
              ("path", `String("aaaaaaaaaaaccccc")),
              (
                "inputs",
                `Assoc([
                  (
                    "bar",
                    `Assoc([
                      ("path", `String("aaaaaaaaaaaddddd")),
                      ("inputs", `Assoc([])),
                    ]),
                  ),
                ]),
              ),
            ]),
          ),
        ]),
      ),
    ]);
  Alcotest.(check(list(string)))(
    "Gathers all inputs",
    ["bbbbb", "ccccc", "ddddd"],
    get_paths_from_doc(input, []),
  );
};

let () =
  Alcotest.(
    run(
      "Watches",
      [
        (
          "get_path",
          [
            test_case("Removes prefix", `Quick, test_get_path_removes_prefix),
          ],
        ),
        (
          "get_paths_from_doc",
          [test_case("Collects all paths", `Quick, test_get_paths_from_doc)],
        ),
      ],
    )
  );