@reventlessdev/reventless-seed 1.0.0-alpha.21 → 1.0.0-alpha.23

package/CHANGELOG.md

@@ -3,6 +3,20 @@
 All notable changes to this project will be documented in this file.
 See [Conventional Commits](https://conventionalcommits.org) for commit guidelines.
 
+# 1.0.0-alpha.23 (2026-09-17)
+
+### Features
+
+* **seed:** let a data set refuse to start before anything is sent ([6fc5135](https://github.com/ReventlessDev/reventless-core/commit/6fc5135107f9af3016a48423cfee625216babca1))
+
+
+# 1.0.0-alpha.22 (2026-09-16)
+
+### Bug Fixes
+
+* **aws:** make the demo accounts work on a pool that signs in by email ([97b036f](https://github.com/ReventlessDev/reventless-core/commit/97b036f86979ba55dbbf93d460fe8076c35abf1a))
+
+
 # 1.0.0-alpha.21 (2026-09-09)
 
 ### Bug Fixes

package/lib/bs/.compiler.log

@@ -1,2 +1,2 @@
-#Start(1788992686773)
-#Done(1788992686834)
+#Start(1789645504278)
+#Done(1789645504316)

package/lib/bs/compiler-info.json

@@ -4,5 +4,5 @@
   "bsc_hash": "75e3a59c95cc953608fd3dd6ea6ed68141bba4414a20a52f114261b8a48385fa",
   "rescript_config_hash": "25cfff836d200084949fdfdfec2f6875901bfee1f04d84634eca252ef1ca1ef1",
   "runtime_path": "/home/runner/work/reventless-core/reventless-core/node_modules/@rescript/runtime",
-  "generated_at": "1788992686837"
+  "generated_at": "1789645504318"
 }

package/lib/bs/src/Seed.res

@@ -36,6 +36,7 @@ type dataSet = Seed_Runner.dataSet = {
   label: string,
   seed: connection => promise<unit>,
   probeViews?: array<string>,
+  preflight?: connection => promise<unit>,
 }
 
 type rec value = Seed_Types.value =

package/lib/bs/src/Seed_Prompt.res

@@ -197,6 +197,7 @@ let typedUser = (~username: string, ~password: string): Seed_Users.user => {
   password,
   groups: [],
   userId: None,
+  demoOwner: None,
 }
 
 // Typing both halves is the fallback, not the first offer: it is what happens

package/lib/bs/src/Seed_Prompt.res.mjs

@@ -151,7 +151,8 @@ function typedUser(username, password) {
     username: username,
     password: password,
     groups: [],
-    userId: undefined
+    userId: undefined,
+    demoOwner: undefined
   };
 }
 

package/lib/bs/src/Seed_Runner.res

@@ -151,6 +151,10 @@ type dataSet = {
   // View names probed by the fresh-store guard before any command is sent; a
   // non-empty one aborts the run at startup. Omit to skip the guard.
   probeViews?: array<string>,
+  // Any other check that must pass before a command is sent — a set that adds to
+  // an existing store refuses an empty one here. Throw `Failed` to refuse; the
+  // run then reports that nothing was written.
+  preflight?: Seed_Connect.connection => promise<unit>,
 }
 
 /**
@@ -205,6 +209,10 @@ let seed = (~sets: array<dataSet>, ~connect: unit => promise<Seed_Connect.connec
       // Runs inside this pre-seed `try`, so refusing a non-empty store (or a
       // failed probe query) is reported as "did not start", not "half-seeded".
       await assertStoreEmpty(connection.client, ~probeViews=chosen.probeViews->Option.getOr([]))
+      switch chosen.preflight {
+      | Some(check) => await check(connection)
+      | None => ()
+      }
       Some((chosen, connection))
     } catch {
     | Failed(message) =>

package/lib/bs/src/Seed_Runner.res.mjs

@@ -163,6 +163,10 @@ function seed(sets, connect) {
       let connection = await connect();
       Seed_Prompt$ReventlessSeed.close();
       await assertStoreEmpty(connection.client, Stdlib_Option.getOr(chosen.probeViews, []));
+      let check = chosen.preflight;
+      if (check !== undefined) {
+        await check(connection);
+      }
       started = [
         chosen,
         connection

package/lib/bs/src/Seed_Users.res

@@ -24,6 +24,7 @@ type user = {
   password: string,
   groups: array<string>,
   userId: option<string>,
+  demoOwner: option<string>,
 }
 
 let asString = (json: JSON.t): option<string> =>
@@ -44,7 +45,13 @@ let userOf = (json: JSON.t): option<user> =>
       | Some(JSON.Array(items)) => items->Array.filterMap(asString)
       | _ => []
       }
-      Some({username, password, groups, userId: obj->Dict.get("userId")->Option.flatMap(asString)})
+      Some({
+        username,
+        password,
+        groups,
+        userId: obj->Dict.get("userId")->Option.flatMap(asString),
+        demoOwner: obj->Dict.get("demoOwner")->Option.flatMap(asString),
+      })
     | _ => None
     }
   | _ => None
@@ -87,6 +94,14 @@ let load = (~path: option<string>=?): option<(string, array<user>)> => {
   users->Array.length == 0 ? None : Some((file, users))
 }
 
+/** The account that plays `name` in a demo: the one whose `demoOwner` says so,
+    else the one named `name` — which is how a file without the field reads. */
+let playing = (users: array<user>, name: string): option<user> =>
+  switch users->Array.find(u => u.demoOwner == Some(name)) {
+  | Some(_) as declared => declared
+  | None => users->Array.find(u => u.username == name)
+  }
+
 /** Menu label: the username, plus whatever groups the file records for it. */
 let label = (u: user): string =>
   u.groups->Array.length == 0 ? u.username : `${u.username}  [${u.groups->Array.join(", ")}]`

package/lib/bs/src/Seed_Users.res.mjs

@@ -5,6 +5,7 @@ import * as Nodefs from "node:fs";
 import * as Nodepath from "node:path";
 import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Primitive_object from "@rescript/runtime/lib/es6/Primitive_object.js";
 
 function asString(json) {
   if (typeof json === "string") {
@@ -32,7 +33,8 @@ function userOf(json) {
     username: match,
     password: match$1,
     groups: groups,
-    userId: Stdlib_Option.flatMap(json["userId"], asString)
+    userId: Stdlib_Option.flatMap(json["userId"], asString),
+    demoOwner: Stdlib_Option.flatMap(json["demoOwner"], asString)
   };
 }
 
@@ -72,6 +74,15 @@ function load(path) {
   }
 }
 
+function playing(users, name) {
+  let declared = users.find(u => Primitive_object.equal(u.demoOwner, name));
+  if (declared !== undefined) {
+    return declared;
+  } else {
+    return users.find(u => u.username === name);
+  }
+}
+
 function label(u) {
   if (u.groups.length === 0) {
     return u.username;
@@ -86,6 +97,7 @@ export {
   parseString,
   defaultPath,
   load,
+  playing,
   label,
 }
 /* yaml Not a pure module */

package/lib/bs/tests/Seed_UsersTest.res

@@ -95,6 +95,36 @@ describe("Seed_Users.load:", () => {
   })
 })
 
+// A pool that signs in on an email address takes `shopper@example.com`, not
+// `shopper`, so a demo cannot find its accounts by username alone there.
+describe("Seed_Users.playing:", () => {
+  let users = Seed_Users.parseString(`
+- username: shopper@example.com
+  password: pw
+  groups: [Shopper]
+  demoOwner: shopper
+- username: admin
+  password: pw
+  groups: [Admin]
+`)
+
+  testSync("finds the account whose demoOwner names the person", () => {
+    expect(
+      Seed_Users.playing(users, "shopper")->Option.map(u => u.Seed_Users.username),
+    )->Expect.toEqual(Some("shopper@example.com"))
+  })
+
+  testSync("falls back to the username when no entry declares one", () => {
+    expect(
+      Seed_Users.playing(users, "admin")->Option.map(u => u.Seed_Users.username),
+    )->Expect.toEqual(Some("admin"))
+  })
+
+  testSync("finds nobody for a person no entry plays", () => {
+    expect(Seed_Users.playing(users, "merch"))->Expect.toEqual(None)
+  })
+})
+
 describe("Seed_Users.label:", () => {
   testSync("names the groups an account carries", () => {
     expect(
@@ -103,13 +133,20 @@ describe("Seed_Users.label:", () => {
         password: "x",
         groups: ["Admin", "Shopper"],
         userId: None,
+        demoOwner: None,
       }),
     )->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: [], userId: None}),
+      Seed_Users.label({
+        username: "admin",
+        password: "x",
+        groups: [],
+        userId: None,
+        demoOwner: None,
+      }),
     )->Expect.toBe("admin")
   })
 
@@ -123,6 +160,7 @@ describe("Seed_Users.label:", () => {
         password: "x",
         groups: ["Admin"],
         userId: Some("4275e4a4-00c1-70e1-1cb5-363b06b992b5"),
+        demoOwner: None,
       }),
     )->Expect.toBe("admin  [Admin]")
   })

package/lib/bs/tests/Seed_UsersTest.res.mjs

@@ -1,5 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Seed_Users$ReventlessSeed from "../src/Seed_Users.res.mjs";
 
 let document = `
@@ -77,6 +78,27 @@ globalThis.describe("Seed_Users.load:", () => {
   });
 });
 
+globalThis.describe("Seed_Users.playing:", () => {
+  let users = Seed_Users$ReventlessSeed.parseString(`
+- username: shopper@example.com
+  password: pw
+  groups: [Shopper]
+  demoOwner: shopper
+- username: admin
+  password: pw
+  groups: [Admin]
+`);
+  globalThis.test("finds the account whose demoOwner names the person", () => {
+    globalThis.expect(Stdlib_Option.map(Seed_Users$ReventlessSeed.playing(users, "shopper"), u => u.username)).toEqual("shopper@example.com");
+  });
+  globalThis.test("falls back to the username when no entry declares one", () => {
+    globalThis.expect(Stdlib_Option.map(Seed_Users$ReventlessSeed.playing(users, "admin"), u => u.username)).toEqual("admin");
+  });
+  globalThis.test("finds nobody for a person no entry plays", () => {
+    globalThis.expect(Seed_Users$ReventlessSeed.playing(users, "merch")).toEqual(undefined);
+  });
+});
+
 globalThis.describe("Seed_Users.label:", () => {
   globalThis.test("names the groups an account carries", () => {
     globalThis.expect(Seed_Users$ReventlessSeed.label({
@@ -86,7 +108,8 @@ globalThis.describe("Seed_Users.label:", () => {
         "Admin",
         "Shopper"
       ],
-      userId: undefined
+      userId: undefined,
+      demoOwner: undefined
     })).toBe("admin  [Admin, Shopper]");
   });
   globalThis.test("is the bare username when the file records no groups", () => {
@@ -94,7 +117,8 @@ globalThis.describe("Seed_Users.label:", () => {
       username: "admin",
       password: "x",
       groups: [],
-      userId: undefined
+      userId: undefined,
+      demoOwner: undefined
     })).toBe("admin");
   });
   globalThis.test("says nothing about the userId", () => {
@@ -102,7 +126,8 @@ globalThis.describe("Seed_Users.label:", () => {
       username: "admin",
       password: "x",
       groups: ["Admin"],
-      userId: "4275e4a4-00c1-70e1-1cb5-363b06b992b5"
+      userId: "4275e4a4-00c1-70e1-1cb5-363b06b992b5",
+      demoOwner: undefined
     })).toBe("admin  [Admin]");
   });
 });

package/lib/ocaml/.compiler.log

@@ -1,2 +1,2 @@
-#Start(1788992686773)
-#Done(1788992686834)
+#Start(1789645504278)
+#Done(1789645504316)

package/lib/ocaml/Seed.res

@@ -36,6 +36,7 @@ type dataSet = Seed_Runner.dataSet = {
   label: string,
   seed: connection => promise<unit>,
   probeViews?: array<string>,
+  preflight?: connection => promise<unit>,
 }
 
 type rec value = Seed_Types.value =

package/lib/ocaml/Seed_Prompt.res

@@ -197,6 +197,7 @@ let typedUser = (~username: string, ~password: string): Seed_Users.user => {
   password,
   groups: [],
   userId: None,
+  demoOwner: None,
 }
 
 // Typing both halves is the fallback, not the first offer: it is what happens

package/lib/ocaml/Seed_Runner.res

@@ -151,6 +151,10 @@ type dataSet = {
   // View names probed by the fresh-store guard before any command is sent; a
   // non-empty one aborts the run at startup. Omit to skip the guard.
   probeViews?: array<string>,
+  // Any other check that must pass before a command is sent — a set that adds to
+  // an existing store refuses an empty one here. Throw `Failed` to refuse; the
+  // run then reports that nothing was written.
+  preflight?: Seed_Connect.connection => promise<unit>,
 }
 
 /**
@@ -205,6 +209,10 @@ let seed = (~sets: array<dataSet>, ~connect: unit => promise<Seed_Connect.connec
       // Runs inside this pre-seed `try`, so refusing a non-empty store (or a
       // failed probe query) is reported as "did not start", not "half-seeded".
       await assertStoreEmpty(connection.client, ~probeViews=chosen.probeViews->Option.getOr([]))
+      switch chosen.preflight {
+      | Some(check) => await check(connection)
+      | None => ()
+      }
       Some((chosen, connection))
     } catch {
     | Failed(message) =>

package/lib/ocaml/Seed_Users.res

@@ -24,6 +24,7 @@ type user = {
   password: string,
   groups: array<string>,
   userId: option<string>,
+  demoOwner: option<string>,
 }
 
 let asString = (json: JSON.t): option<string> =>
@@ -44,7 +45,13 @@ let userOf = (json: JSON.t): option<user> =>
       | Some(JSON.Array(items)) => items->Array.filterMap(asString)
       | _ => []
       }
-      Some({username, password, groups, userId: obj->Dict.get("userId")->Option.flatMap(asString)})
+      Some({
+        username,
+        password,
+        groups,
+        userId: obj->Dict.get("userId")->Option.flatMap(asString),
+        demoOwner: obj->Dict.get("demoOwner")->Option.flatMap(asString),
+      })
     | _ => None
     }
   | _ => None
@@ -87,6 +94,14 @@ let load = (~path: option<string>=?): option<(string, array<user>)> => {
   users->Array.length == 0 ? None : Some((file, users))
 }
 
+/** The account that plays `name` in a demo: the one whose `demoOwner` says so,
+    else the one named `name` — which is how a file without the field reads. */
+let playing = (users: array<user>, name: string): option<user> =>
+  switch users->Array.find(u => u.demoOwner == Some(name)) {
+  | Some(_) as declared => declared
+  | None => users->Array.find(u => u.username == name)
+  }
+
 /** Menu label: the username, plus whatever groups the file records for it. */
 let label = (u: user): string =>
   u.groups->Array.length == 0 ? u.username : `${u.username}  [${u.groups->Array.join(", ")}]`

package/lib/ocaml/Seed_UsersTest.res

@@ -95,6 +95,36 @@ describe("Seed_Users.load:", () => {
   })
 })
 
+// A pool that signs in on an email address takes `shopper@example.com`, not
+// `shopper`, so a demo cannot find its accounts by username alone there.
+describe("Seed_Users.playing:", () => {
+  let users = Seed_Users.parseString(`
+- username: shopper@example.com
+  password: pw
+  groups: [Shopper]
+  demoOwner: shopper
+- username: admin
+  password: pw
+  groups: [Admin]
+`)
+
+  testSync("finds the account whose demoOwner names the person", () => {
+    expect(
+      Seed_Users.playing(users, "shopper")->Option.map(u => u.Seed_Users.username),
+    )->Expect.toEqual(Some("shopper@example.com"))
+  })
+
+  testSync("falls back to the username when no entry declares one", () => {
+    expect(
+      Seed_Users.playing(users, "admin")->Option.map(u => u.Seed_Users.username),
+    )->Expect.toEqual(Some("admin"))
+  })
+
+  testSync("finds nobody for a person no entry plays", () => {
+    expect(Seed_Users.playing(users, "merch"))->Expect.toEqual(None)
+  })
+})
+
 describe("Seed_Users.label:", () => {
   testSync("names the groups an account carries", () => {
     expect(
@@ -103,13 +133,20 @@ describe("Seed_Users.label:", () => {
         password: "x",
         groups: ["Admin", "Shopper"],
         userId: None,
+        demoOwner: None,
       }),
     )->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: [], userId: None}),
+      Seed_Users.label({
+        username: "admin",
+        password: "x",
+        groups: [],
+        userId: None,
+        demoOwner: None,
+      }),
     )->Expect.toBe("admin")
   })
 
@@ -123,6 +160,7 @@ describe("Seed_Users.label:", () => {
         password: "x",
         groups: ["Admin"],
         userId: Some("4275e4a4-00c1-70e1-1cb5-363b06b992b5"),
+        demoOwner: None,
       }),
     )->Expect.toBe("admin  [Admin]")
   })

package/package.json

@@ -1,11 +1,11 @@
 {
   "name": "@reventlessdev/reventless-seed",
-  "version": "1.0.0-alpha.21",
+  "version": "1.0.0-alpha.23",
   "description": "Reusable harness for seeding a Reventless platform through its public GraphQL command API",
   "license": "Apache-2.0",
   "dependencies": {
     "yaml": "^2.8.3",
-    "@reventlessdev/rescript-node": "2.0.0-alpha.11"
+    "@reventlessdev/rescript-node": "2.0.0-alpha.12"
   },
   "devDependencies": {
     "rescript": "12.3.0",

package/src/Seed.res

@@ -36,6 +36,7 @@ type dataSet = Seed_Runner.dataSet = {
   label: string,
   seed: connection => promise<unit>,
   probeViews?: array<string>,
+  preflight?: connection => promise<unit>,
 }
 
 type rec value = Seed_Types.value =

package/src/Seed_Prompt.res

@@ -197,6 +197,7 @@ let typedUser = (~username: string, ~password: string): Seed_Users.user => {
   password,
   groups: [],
   userId: None,
+  demoOwner: None,
 }
 
 // Typing both halves is the fallback, not the first offer: it is what happens

package/src/Seed_Prompt.res.mjs

@@ -151,7 +151,8 @@ function typedUser(username, password) {
     username: username,
     password: password,
     groups: [],
-    userId: undefined
+    userId: undefined,
+    demoOwner: undefined
   };
 }
 

package/src/Seed_Runner.res

@@ -151,6 +151,10 @@ type dataSet = {
   // View names probed by the fresh-store guard before any command is sent; a
   // non-empty one aborts the run at startup. Omit to skip the guard.
   probeViews?: array<string>,
+  // Any other check that must pass before a command is sent — a set that adds to
+  // an existing store refuses an empty one here. Throw `Failed` to refuse; the
+  // run then reports that nothing was written.
+  preflight?: Seed_Connect.connection => promise<unit>,
 }
 
 /**
@@ -205,6 +209,10 @@ let seed = (~sets: array<dataSet>, ~connect: unit => promise<Seed_Connect.connec
       // Runs inside this pre-seed `try`, so refusing a non-empty store (or a
       // failed probe query) is reported as "did not start", not "half-seeded".
       await assertStoreEmpty(connection.client, ~probeViews=chosen.probeViews->Option.getOr([]))
+      switch chosen.preflight {
+      | Some(check) => await check(connection)
+      | None => ()
+      }
       Some((chosen, connection))
     } catch {
     | Failed(message) =>

package/src/Seed_Runner.res.mjs

@@ -163,6 +163,10 @@ function seed(sets, connect) {
       let connection = await connect();
       Seed_Prompt$ReventlessSeed.close();
       await assertStoreEmpty(connection.client, Stdlib_Option.getOr(chosen.probeViews, []));
+      let check = chosen.preflight;
+      if (check !== undefined) {
+        await check(connection);
+      }
       started = [
         chosen,
         connection

package/src/Seed_Users.res

@@ -24,6 +24,7 @@ type user = {
   password: string,
   groups: array<string>,
   userId: option<string>,
+  demoOwner: option<string>,
 }
 
 let asString = (json: JSON.t): option<string> =>
@@ -44,7 +45,13 @@ let userOf = (json: JSON.t): option<user> =>
       | Some(JSON.Array(items)) => items->Array.filterMap(asString)
       | _ => []
       }
-      Some({username, password, groups, userId: obj->Dict.get("userId")->Option.flatMap(asString)})
+      Some({
+        username,
+        password,
+        groups,
+        userId: obj->Dict.get("userId")->Option.flatMap(asString),
+        demoOwner: obj->Dict.get("demoOwner")->Option.flatMap(asString),
+      })
     | _ => None
     }
   | _ => None
@@ -87,6 +94,14 @@ let load = (~path: option<string>=?): option<(string, array<user>)> => {
   users->Array.length == 0 ? None : Some((file, users))
 }
 
+/** The account that plays `name` in a demo: the one whose `demoOwner` says so,
+    else the one named `name` — which is how a file without the field reads. */
+let playing = (users: array<user>, name: string): option<user> =>
+  switch users->Array.find(u => u.demoOwner == Some(name)) {
+  | Some(_) as declared => declared
+  | None => users->Array.find(u => u.username == name)
+  }
+
 /** Menu label: the username, plus whatever groups the file records for it. */
 let label = (u: user): string =>
   u.groups->Array.length == 0 ? u.username : `${u.username}  [${u.groups->Array.join(", ")}]`

package/src/Seed_Users.res.mjs

@@ -5,6 +5,7 @@ import * as Nodefs from "node:fs";
 import * as Nodepath from "node:path";
 import * as Stdlib_Array from "@rescript/runtime/lib/es6/Stdlib_Array.js";
 import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
+import * as Primitive_object from "@rescript/runtime/lib/es6/Primitive_object.js";
 
 function asString(json) {
   if (typeof json === "string") {
@@ -32,7 +33,8 @@ function userOf(json) {
     username: match,
     password: match$1,
     groups: groups,
-    userId: Stdlib_Option.flatMap(json["userId"], asString)
+    userId: Stdlib_Option.flatMap(json["userId"], asString),
+    demoOwner: Stdlib_Option.flatMap(json["demoOwner"], asString)
   };
 }
 
@@ -72,6 +74,15 @@ function load(path) {
   }
 }
 
+function playing(users, name) {
+  let declared = users.find(u => Primitive_object.equal(u.demoOwner, name));
+  if (declared !== undefined) {
+    return declared;
+  } else {
+    return users.find(u => u.username === name);
+  }
+}
+
 function label(u) {
   if (u.groups.length === 0) {
     return u.username;
@@ -86,6 +97,7 @@ export {
   parseString,
   defaultPath,
   load,
+  playing,
   label,
 }
 /* yaml Not a pure module */

package/tests/Seed_UsersTest.res

@@ -95,6 +95,36 @@ describe("Seed_Users.load:", () => {
   })
 })
 
+// A pool that signs in on an email address takes `shopper@example.com`, not
+// `shopper`, so a demo cannot find its accounts by username alone there.
+describe("Seed_Users.playing:", () => {
+  let users = Seed_Users.parseString(`
+- username: shopper@example.com
+  password: pw
+  groups: [Shopper]
+  demoOwner: shopper
+- username: admin
+  password: pw
+  groups: [Admin]
+`)
+
+  testSync("finds the account whose demoOwner names the person", () => {
+    expect(
+      Seed_Users.playing(users, "shopper")->Option.map(u => u.Seed_Users.username),
+    )->Expect.toEqual(Some("shopper@example.com"))
+  })
+
+  testSync("falls back to the username when no entry declares one", () => {
+    expect(
+      Seed_Users.playing(users, "admin")->Option.map(u => u.Seed_Users.username),
+    )->Expect.toEqual(Some("admin"))
+  })
+
+  testSync("finds nobody for a person no entry plays", () => {
+    expect(Seed_Users.playing(users, "merch"))->Expect.toEqual(None)
+  })
+})
+
 describe("Seed_Users.label:", () => {
   testSync("names the groups an account carries", () => {
     expect(
@@ -103,13 +133,20 @@ describe("Seed_Users.label:", () => {
         password: "x",
         groups: ["Admin", "Shopper"],
         userId: None,
+        demoOwner: None,
       }),
     )->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: [], userId: None}),
+      Seed_Users.label({
+        username: "admin",
+        password: "x",
+        groups: [],
+        userId: None,
+        demoOwner: None,
+      }),
     )->Expect.toBe("admin")
   })
 
@@ -123,6 +160,7 @@ describe("Seed_Users.label:", () => {
         password: "x",
         groups: ["Admin"],
         userId: Some("4275e4a4-00c1-70e1-1cb5-363b06b992b5"),
+        demoOwner: None,
       }),
     )->Expect.toBe("admin  [Admin]")
   })

package/tests/Seed_UsersTest.res.mjs

@@ -1,5 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
+import * as Stdlib_Option from "@rescript/runtime/lib/es6/Stdlib_Option.js";
 import * as Seed_Users$ReventlessSeed from "../src/Seed_Users.res.mjs";
 
 let document = `
@@ -77,6 +78,27 @@ globalThis.describe("Seed_Users.load:", () => {
   });
 });
 
+globalThis.describe("Seed_Users.playing:", () => {
+  let users = Seed_Users$ReventlessSeed.parseString(`
+- username: shopper@example.com
+  password: pw
+  groups: [Shopper]
+  demoOwner: shopper
+- username: admin
+  password: pw
+  groups: [Admin]
+`);
+  globalThis.test("finds the account whose demoOwner names the person", () => {
+    globalThis.expect(Stdlib_Option.map(Seed_Users$ReventlessSeed.playing(users, "shopper"), u => u.username)).toEqual("shopper@example.com");
+  });
+  globalThis.test("falls back to the username when no entry declares one", () => {
+    globalThis.expect(Stdlib_Option.map(Seed_Users$ReventlessSeed.playing(users, "admin"), u => u.username)).toEqual("admin");
+  });
+  globalThis.test("finds nobody for a person no entry plays", () => {
+    globalThis.expect(Seed_Users$ReventlessSeed.playing(users, "merch")).toEqual(undefined);
+  });
+});
+
 globalThis.describe("Seed_Users.label:", () => {
   globalThis.test("names the groups an account carries", () => {
     globalThis.expect(Seed_Users$ReventlessSeed.label({
@@ -86,7 +108,8 @@ globalThis.describe("Seed_Users.label:", () => {
         "Admin",
         "Shopper"
       ],
-      userId: undefined
+      userId: undefined,
+      demoOwner: undefined
     })).toBe("admin  [Admin, Shopper]");
   });
   globalThis.test("is the bare username when the file records no groups", () => {
@@ -94,7 +117,8 @@ globalThis.describe("Seed_Users.label:", () => {
       username: "admin",
       password: "x",
       groups: [],
-      userId: undefined
+      userId: undefined,
+      demoOwner: undefined
     })).toBe("admin");
   });
   globalThis.test("says nothing about the userId", () => {
@@ -102,7 +126,8 @@ globalThis.describe("Seed_Users.label:", () => {
       username: "admin",
       password: "x",
       groups: ["Admin"],
-      userId: "4275e4a4-00c1-70e1-1cb5-363b06b992b5"
+      userId: "4275e4a4-00c1-70e1-1cb5-363b06b992b5",
+      demoOwner: undefined
     })).toBe("admin  [Admin]");
   });
 });