@reventlessdev/reventless-gwt 1.0.0-alpha.74

package/tests/BuildClassifierTest.res

@@ -0,0 +1,94 @@
+// Unit tests for BuildClassifier — the state machine that turns a
+// `rescript build -w` line-stream into buildStart / buildOk / buildFail. The
+// success path is synchronous (the "Finished … compilation" line); the failure
+// path is debounced (no terminator in rescript's error output), so those tests
+// await past the 400ms settle window.
+
+open JestGlobals
+
+@val external setTimeout: (unit => unit, int) => unit = "setTimeout"
+let delay = (ms: int): promise<unit> =>
+  Promise.make((resolve, _reject) => setTimeout(() => resolve(), ms))
+
+describe("BuildClassifier", () => {
+  testPromise("emits onStart then onOk for a clean incremental compile", async () => {
+    let starts = ref(0)
+    let oks = ref(0)
+    let fails = ref([])
+    let feed = BuildClassifier.make({
+      onStart: () => starts := starts.contents + 1,
+      onOk: _ms => oks := oks.contents + 1,
+      onFail: msg => fails := Array.concat(fails.contents, [msg]),
+    })
+    feed("Parsed 1 source files")
+    feed("Compiled 1 modules")
+    feed("Finished incremental compilation")
+    expect(starts.contents)->toEqual(1)
+    expect(oks.contents)->toEqual(1)
+    expect(fails.contents->Array.length)->toEqual(0)
+  })
+
+  testPromise("emits onFail with the error text after the output settles", async () => {
+    let oks = ref(0)
+    let fails = ref([])
+    let feed = BuildClassifier.make({
+      onStart: () => (),
+      onOk: _ms => oks := oks.contents + 1,
+      onFail: msg => fails := Array.concat(fails.contents, [msg]),
+    })
+    feed("Parsed 1 source files")
+    feed("Compiled 1 modules")
+    feed("We've found a bug for you!")
+    feed("This has type: string")
+    feed("But it's expected to have type: int")
+    await delay(550)
+    expect(oks.contents)->toEqual(0)
+    expect(fails.contents->Array.length)->toEqual(1)
+    let msg = fails.contents->Array.getUnsafe(0)
+    expect(msg->String.includes("This has type: string"))->toEqual(true)
+  })
+
+  testPromise("watchdog fails a build that starts but never terminates", async () => {
+    let oks = ref(0)
+    let fails = ref([])
+    let feed = BuildClassifier.make(~watchdogMs=50, {
+      onStart: () => (),
+      onOk: _ms => oks := oks.contents + 1,
+      onFail: msg => fails := Array.concat(fails.contents, [msg]),
+    })
+    feed("Parsed 1 source files")
+    // No "Finished …" and no error marker — a crashed/hung watcher.
+    await delay(120)
+    expect(oks.contents)->toEqual(0)
+    expect(fails.contents->Array.length)->toEqual(1)
+    let msg = fails.contents->Array.getUnsafe(0)
+    expect(msg->String.includes("watchdog"))->toEqual(true)
+  })
+
+  testPromise("watchdog does not fire once the build finishes", async () => {
+    let oks = ref(0)
+    let fails = ref([])
+    let feed = BuildClassifier.make(~watchdogMs=50, {
+      onStart: () => (),
+      onOk: _ms => oks := oks.contents + 1,
+      onFail: msg => fails := Array.concat(fails.contents, [msg]),
+    })
+    feed("Parsed 1 source files")
+    feed("Finished incremental compilation")
+    await delay(120)
+    expect(oks.contents)->toEqual(1)
+    expect(fails.contents->Array.length)->toEqual(0)
+  })
+
+  testPromise("strips ANSI colour codes before matching the finish line", async () => {
+    let oks = ref(0)
+    let feed = BuildClassifier.make({
+      onStart: () => (),
+      onOk: _ms => oks := oks.contents + 1,
+      onFail: _msg => (),
+    })
+    feed("Parsed 2 source files")
+    feed("\x1b[1;32mFinished incremental compilation\x1b[0m")
+    expect(oks.contents)->toEqual(1)
+  })
+})

package/tests/BuildClassifierTest.res.mjs

@@ -0,0 +1,132 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as BuildClassifier$ReventlessGwt from "../src/BuildClassifier.res.mjs";
+
+function delay(ms) {
+  return new Promise((resolve, _reject) => {
+    setTimeout(() => resolve(), ms);
+  });
+}
+
+globalThis.describe("BuildClassifier", () => {
+  globalThis.test("emits onStart then onOk for a clean incremental compile", async () => {
+    let starts = {
+      contents: 0
+    };
+    let oks = {
+      contents: 0
+    };
+    let fails = {
+      contents: []
+    };
+    let feed = BuildClassifier$ReventlessGwt.make(undefined, {
+      onStart: () => {
+        starts.contents = starts.contents + 1 | 0;
+      },
+      onOk: _ms => {
+        oks.contents = oks.contents + 1 | 0;
+      },
+      onFail: msg => {
+        fails.contents = fails.contents.concat([msg]);
+      }
+    });
+    feed("Parsed 1 source files");
+    feed("Compiled 1 modules");
+    feed("Finished incremental compilation");
+    globalThis.expect(starts.contents).toEqual(1);
+    globalThis.expect(oks.contents).toEqual(1);
+    globalThis.expect(fails.contents.length).toEqual(0);
+  });
+  globalThis.test("emits onFail with the error text after the output settles", async () => {
+    let oks = {
+      contents: 0
+    };
+    let fails = {
+      contents: []
+    };
+    let feed = BuildClassifier$ReventlessGwt.make(undefined, {
+      onStart: () => {},
+      onOk: _ms => {
+        oks.contents = oks.contents + 1 | 0;
+      },
+      onFail: msg => {
+        fails.contents = fails.contents.concat([msg]);
+      }
+    });
+    feed("Parsed 1 source files");
+    feed("Compiled 1 modules");
+    feed("We've found a bug for you!");
+    feed("This has type: string");
+    feed("But it's expected to have type: int");
+    await delay(550);
+    globalThis.expect(oks.contents).toEqual(0);
+    globalThis.expect(fails.contents.length).toEqual(1);
+    let msg = fails.contents[0];
+    globalThis.expect(msg.includes("This has type: string")).toEqual(true);
+  });
+  globalThis.test("watchdog fails a build that starts but never terminates", async () => {
+    let oks = {
+      contents: 0
+    };
+    let fails = {
+      contents: []
+    };
+    let feed = BuildClassifier$ReventlessGwt.make(50, {
+      onStart: () => {},
+      onOk: _ms => {
+        oks.contents = oks.contents + 1 | 0;
+      },
+      onFail: msg => {
+        fails.contents = fails.contents.concat([msg]);
+      }
+    });
+    feed("Parsed 1 source files");
+    await delay(120);
+    globalThis.expect(oks.contents).toEqual(0);
+    globalThis.expect(fails.contents.length).toEqual(1);
+    let msg = fails.contents[0];
+    globalThis.expect(msg.includes("watchdog")).toEqual(true);
+  });
+  globalThis.test("watchdog does not fire once the build finishes", async () => {
+    let oks = {
+      contents: 0
+    };
+    let fails = {
+      contents: []
+    };
+    let feed = BuildClassifier$ReventlessGwt.make(50, {
+      onStart: () => {},
+      onOk: _ms => {
+        oks.contents = oks.contents + 1 | 0;
+      },
+      onFail: msg => {
+        fails.contents = fails.contents.concat([msg]);
+      }
+    });
+    feed("Parsed 1 source files");
+    feed("Finished incremental compilation");
+    await delay(120);
+    globalThis.expect(oks.contents).toEqual(1);
+    globalThis.expect(fails.contents.length).toEqual(0);
+  });
+  globalThis.test("strips ANSI colour codes before matching the finish line", async () => {
+    let oks = {
+      contents: 0
+    };
+    let feed = BuildClassifier$ReventlessGwt.make(undefined, {
+      onStart: () => {},
+      onOk: _ms => {
+        oks.contents = oks.contents + 1 | 0;
+      },
+      onFail: _msg => {}
+    });
+    feed("Parsed 2 source files");
+    feed("\x1b[1;32mFinished incremental compilation\x1b[0m");
+    globalThis.expect(oks.contents).toEqual(1);
+  });
+});
+
+export {
+  delay,
+}
+/*  Not a pure module */

package/tests/ComponentMetaTest.res

@@ -0,0 +1,52 @@
+// Unit tests for ComponentMeta — the pure folder-convention → {kind, name}
+// derivation behind the `component` field on file items and the `components`
+// inventory. No I/O; path strings only.
+
+open JestGlobals
+
+describe("ComponentMeta.componentOfTestFile", () => {
+  testPromise("derives kind + name from a slice GWT test path", async () => {
+    let c = ComponentMeta.componentOfTestFile(
+      "/repo/catalog/tests/Product/StateChangeSlice/AddProduct_GWT.res.mjs",
+    )
+    expect(c)->toEqual(Some({ComponentMeta.kind: "StateChangeSlice", name: "AddProduct"}))
+  })
+
+  testPromise("derives a ReadModel component", async () => {
+    let c = ComponentMeta.componentOfTestFile(
+      "/repo/catalog/tests/CatalogActivity/ReadModel/CatalogActivity_GWT.res.mjs",
+    )
+    expect(c)->toEqual(Some({ComponentMeta.kind: "ReadModel", name: "CatalogActivity"}))
+  })
+
+  testPromise("strips the GwtTest marker shape too", async () => {
+    let c = ComponentMeta.componentOfTestFile("/repo/x/tests/Order/Aggregate/OrderGwtTest.res.mjs")
+    expect(c)->toEqual(Some({ComponentMeta.kind: "Aggregate", name: "Order"}))
+  })
+
+  testPromise("returns None outside a recognised kind folder", async () => {
+    let c = ComponentMeta.componentOfTestFile("/repo/x/tests/Helpers/Thing_GWT.res.mjs")
+    expect(c)->toEqual(None)
+  })
+})
+
+describe("ComponentMeta.componentOfSrcFile", () => {
+  testPromise("collapses a spec file to its component", async () => {
+    let c = ComponentMeta.componentOfSrcFile("/repo/catalog/src/Product/Aggregate/Product.res")
+    expect(c)->toEqual(Some({ComponentMeta.kind: "Aggregate", name: "Product"}))
+  })
+
+  testPromise("collapses a behavior body file to the same component", async () => {
+    let c = ComponentMeta.componentOfSrcFile(
+      "/repo/catalog/src/Product/Aggregate/Product_Behavior.res",
+    )
+    expect(c)->toEqual(Some({ComponentMeta.kind: "Aggregate", name: "Product"}))
+  })
+
+  testPromise("strips the longest body suffix first (ExtensionPointMapping)", async () => {
+    let c = ComponentMeta.componentOfSrcFile(
+      "/repo/catalog/src/Products/ExtensionPoint/Products_ExtensionPointMapping.res",
+    )
+    expect(c)->toEqual(Some({ComponentMeta.kind: "ExtensionPoint", name: "Products"}))
+  })
+})

package/tests/ComponentMetaTest.res.mjs

@@ -0,0 +1,57 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as ComponentMeta$ReventlessGwt from "../src/ComponentMeta.res.mjs";
+
+globalThis.describe("ComponentMeta.componentOfTestFile", () => {
+  globalThis.test("derives kind + name from a slice GWT test path", async () => {
+    let c = ComponentMeta$ReventlessGwt.componentOfTestFile("/repo/catalog/tests/Product/StateChangeSlice/AddProduct_GWT.res.mjs");
+    globalThis.expect(c).toEqual({
+      kind: "StateChangeSlice",
+      name: "AddProduct"
+    });
+  });
+  globalThis.test("derives a ReadModel component", async () => {
+    let c = ComponentMeta$ReventlessGwt.componentOfTestFile("/repo/catalog/tests/CatalogActivity/ReadModel/CatalogActivity_GWT.res.mjs");
+    globalThis.expect(c).toEqual({
+      kind: "ReadModel",
+      name: "CatalogActivity"
+    });
+  });
+  globalThis.test("strips the GwtTest marker shape too", async () => {
+    let c = ComponentMeta$ReventlessGwt.componentOfTestFile("/repo/x/tests/Order/Aggregate/OrderGwtTest.res.mjs");
+    globalThis.expect(c).toEqual({
+      kind: "Aggregate",
+      name: "Order"
+    });
+  });
+  globalThis.test("returns None outside a recognised kind folder", async () => {
+    let c = ComponentMeta$ReventlessGwt.componentOfTestFile("/repo/x/tests/Helpers/Thing_GWT.res.mjs");
+    globalThis.expect(c).toEqual(undefined);
+  });
+});
+
+globalThis.describe("ComponentMeta.componentOfSrcFile", () => {
+  globalThis.test("collapses a spec file to its component", async () => {
+    let c = ComponentMeta$ReventlessGwt.componentOfSrcFile("/repo/catalog/src/Product/Aggregate/Product.res");
+    globalThis.expect(c).toEqual({
+      kind: "Aggregate",
+      name: "Product"
+    });
+  });
+  globalThis.test("collapses a behavior body file to the same component", async () => {
+    let c = ComponentMeta$ReventlessGwt.componentOfSrcFile("/repo/catalog/src/Product/Aggregate/Product_Behavior.res");
+    globalThis.expect(c).toEqual({
+      kind: "Aggregate",
+      name: "Product"
+    });
+  });
+  globalThis.test("strips the longest body suffix first (ExtensionPointMapping)", async () => {
+    let c = ComponentMeta$ReventlessGwt.componentOfSrcFile("/repo/catalog/src/Products/ExtensionPoint/Products_ExtensionPointMapping.res");
+    globalThis.expect(c).toEqual({
+      kind: "ExtensionPoint",
+      name: "Products"
+    });
+  });
+});
+
+/*  Not a pure module */