@reventlessdev/reventless-seed 1.0.0-alpha.16 → 1.0.0-alpha.18

package/tests/Seed_UsersTest.res

@@ -0,0 +1,92 @@
+open JestGlobals
+
+// `.reventless/users.yaml` is hand-maintained and shared with the auth adapter,
+// so the seed reads it defensively: it must survive the comment blocks both
+// copies carry, must not reorder the accounts (the first one is the prompt's
+// default, so order IS the contract), and must never throw — a broken file costs
+// the menu, not the run.
+
+let document = `
+# Local dev users — a comment block like the real file carries.
+
+- username: admin
+  password: admin
+  groups: [Admin, Shopper]
+  userId: local-admin
+
+- username: shopper
+  password: Shopper-2026!
+  groups: [Shopper]
+
+- username: noGroups
+  password: pw
+`
+
+describe("Seed_Users.parseString:", () => {
+  testSync("reads every account, in the order the file defines them", () => {
+    let users = Seed_Users.parseString(document)
+    expect(users->Array.map(u => u.Seed_Users.username))->Expect.toEqual([
+      "admin",
+      "shopper",
+      "noGroups",
+    ])
+  })
+
+  testSync("carries the password beside the username", () => {
+    let users = Seed_Users.parseString(document)
+    expect(users->Array.map(u => u.Seed_Users.password))->Expect.toEqual([
+      "admin",
+      "Shopper-2026!",
+      "pw",
+    ])
+  })
+
+  testSync("keeps the groups, and reads a missing groups key as none", () => {
+    let users = Seed_Users.parseString(document)
+    expect(users->Array.map(u => u.Seed_Users.groups))->Expect.toEqual([
+      ["Admin", "Shopper"],
+      ["Shopper"],
+      [],
+    ])
+  })
+
+  // An entry half-written by hand is the likely flaw in this file. Dropping it
+  // keeps the other accounts selectable; failing the parse would not.
+  testSync("skips an entry that names no password", () => {
+    let users = Seed_Users.parseString(`
+- username: admin
+  password: admin
+- username: halfWritten
+  groups: [Shopper]
+`)
+    expect(users->Array.map(u => u.Seed_Users.username))->Expect.toEqual(["admin"])
+  })
+
+  testSync("yields no accounts for a document that is not a list", () => {
+    expect(Seed_Users.parseString("users: {}")->Array.length)->Expect.toBe(0)
+  })
+
+  // The whole point of returning accounts rather than raising: the caller falls
+  // back to prompting, and it can only do that if nothing here escapes.
+  testSync("yields no accounts for malformed YAML instead of throwing", () => {
+    expect(Seed_Users.parseString("- username: [unclosed")->Array.length)->Expect.toBe(0)
+  })
+})
+
+describe("Seed_Users.load:", () => {
+  testSync("is silent about a file that is not there", () => {
+    expect(Seed_Users.load(~path="/nonexistent/.reventless/users.yaml"))->Expect.toBe(None)
+  })
+})
+
+describe("Seed_Users.label:", () => {
+  testSync("names the groups an account carries", () => {
+    expect(
+      Seed_Users.label({username: "admin", password: "x", groups: ["Admin", "Shopper"]}),
+    )->Expect.toBe("admin  [Admin, Shopper]")
+  })
+
+  testSync("is the bare username when the file records no groups", () => {
+    expect(Seed_Users.label({username: "admin", password: "x", groups: []}))->Expect.toBe("admin")
+  })
+})

package/tests/Seed_UsersTest.res.mjs

@@ -0,0 +1,95 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Seed_Users$ReventlessSeed from "../src/Seed_Users.res.mjs";
+
+let document = `
+# Local dev users — a comment block like the real file carries.
+
+- username: admin
+  password: admin
+  groups: [Admin, Shopper]
+  userId: local-admin
+
+- username: shopper
+  password: Shopper-2026!
+  groups: [Shopper]
+
+- username: noGroups
+  password: pw
+`;
+
+globalThis.describe("Seed_Users.parseString:", () => {
+  globalThis.test("reads every account, in the order the file defines them", () => {
+    let users = Seed_Users$ReventlessSeed.parseString(document);
+    globalThis.expect(users.map(u => u.username)).toEqual([
+      "admin",
+      "shopper",
+      "noGroups"
+    ]);
+  });
+  globalThis.test("carries the password beside the username", () => {
+    let users = Seed_Users$ReventlessSeed.parseString(document);
+    globalThis.expect(users.map(u => u.password)).toEqual([
+      "admin",
+      "Shopper-2026!",
+      "pw"
+    ]);
+  });
+  globalThis.test("keeps the groups, and reads a missing groups key as none", () => {
+    let users = Seed_Users$ReventlessSeed.parseString(document);
+    globalThis.expect(users.map(u => u.groups)).toEqual([
+      [
+        "Admin",
+        "Shopper"
+      ],
+      ["Shopper"],
+      []
+    ]);
+  });
+  globalThis.test("skips an entry that names no password", () => {
+    let users = Seed_Users$ReventlessSeed.parseString(`
+- username: admin
+  password: admin
+- username: halfWritten
+  groups: [Shopper]
+`);
+    globalThis.expect(users.map(u => u.username)).toEqual(["admin"]);
+  });
+  globalThis.test("yields no accounts for a document that is not a list", () => {
+    globalThis.expect(Seed_Users$ReventlessSeed.parseString("users: {}").length).toBe(0);
+  });
+  globalThis.test("yields no accounts for malformed YAML instead of throwing", () => {
+    globalThis.expect(Seed_Users$ReventlessSeed.parseString("- username: [unclosed").length).toBe(0);
+  });
+});
+
+globalThis.describe("Seed_Users.load:", () => {
+  globalThis.test("is silent about a file that is not there", () => {
+    globalThis.expect(Seed_Users$ReventlessSeed.load("/nonexistent/.reventless/users.yaml")).toBe(undefined);
+  });
+});
+
+globalThis.describe("Seed_Users.label:", () => {
+  globalThis.test("names the groups an account carries", () => {
+    globalThis.expect(Seed_Users$ReventlessSeed.label({
+      username: "admin",
+      password: "x",
+      groups: [
+        "Admin",
+        "Shopper"
+      ]
+    })).toBe("admin  [Admin, Shopper]");
+  });
+  globalThis.test("is the bare username when the file records no groups", () => {
+    globalThis.expect(Seed_Users$ReventlessSeed.label({
+      username: "admin",
+      password: "x",
+      groups: []
+    })).toBe("admin");
+  });
+});
+
+export {
+  document,
+}
+/*  Not a pure module */