@homeflare/alchemy 0.8.0 → 0.10.1

package/src/openbao/adopt-holes.test.ts

@@ -0,0 +1,168 @@
+/**
+ * A deploy killed BEFORE a create's claim ran leaves a `creating` (or `replacing`) row that proves
+ * nothing: its create never asked whose object sat at its identity. Found by the red team on
+ * 2026-09-21, through Alchemy's own plan and apply, before ownership/whole.ts and the proof in
+ * ownership/resume.ts:
+ *   · an Output IDENTITY — every role family read an empty name, found nothing, "resumed" the create
+ *     and wrote over another owner's object;
+ *   · an Output KNOB — Bao.Mount and Bao.AuthMethod read the hole as "not managed", adopted another
+ *     owner's mount in the recovery read and tuned it;
+ *   · a REPLACE killed before its write — the next deploy wrote over whatever another owner had put
+ *     at the new identity since.
+ * Each is now refused, writing nothing; `--adopt` resumes it, as Alchemy offers for a create.
+ *
+ * ⛔ TEST-ONLY. Every value is a placeholder, not the estate's.
+ */
+import assert from 'node:assert/strict';
+import { describe, it } from 'node:test';
+import * as RemovalPolicy from 'alchemy/RemovalPolicy';
+import * as Effect from 'effect/Effect';
+import { BaoAuthRole } from './auth-role.ts';
+import { type Seen, refuseWriteOnce } from './fake-bao.ts';
+import { CORE, type CoreRow, withCore } from './fake-core.ts';
+import { FAMILIES, type Family, upstream, withEstate } from './fake-families.ts';
+import { writesOf } from './fake-stack.ts';
+import { BaoMount } from './mount.ts';
+import { BaoPkiRole } from './pki-role.ts';
+
+const REFUSED =
+  /Cannot resume creating resource 'Z'|: already exists, and this stack holds no state/s;
+const RESUME_REFUSED = /already exists, and this stack holds no state.*Deploy with --adopt/s;
+
+/** Writes other than the upstream's. */
+const writesBut = (seen: readonly Seen[], upstreamPath: string) =>
+  writesOf(seen).filter((line) => !line.endsWith(upstreamPath));
+
+/**
+ * `Z`'s NAME is an Output: an upstream named `a` hands it over. An AppRole, or — for Bao.AuthRole,
+ * whose own `a` that would be — a PKI role.
+ */
+const namedByUpstream = (row: Family) => {
+  const approle = row.family !== 'Bao.AuthRole';
+  const path = approle ? '/auth/approle/role/a' : '/pki/roles/a';
+  const body = Effect.gen(function* () {
+    const up = approle
+      ? yield* BaoAuthRole('Upstream', {
+          name: 'a',
+          secretIdTtl: '24h',
+          tokenMaxTtl: '1h',
+          tokenPolicies: ['default'],
+          tokenTtl: '15m',
+        })
+      : yield* BaoPkiRole('Upstream', {
+          allowedDomains: ['x.test'],
+          maxTtl: '1h',
+          name: 'a',
+          ttl: '30m',
+        });
+    yield* row.declare('Z', up.name, '15m');
+  });
+  return { body, path };
+};
+
+for (const row of FAMILIES) {
+  describe(`${row.family}: a create killed before its claim, its name an Output`, () => {
+    it('never writes over the object another stack owns; --adopt takes it over', async () => {
+      const { body, path } = namedByUpstream(row);
+      const fault = refuseWriteOnce(path);
+      await withEstate(async (stack, _estate, seen, owner) => {
+        await owner.deploy(row.declare('X', 'a', '30m'));
+        await assert.rejects(stack.deploy(body), /injected/);
+        seen.length = 0;
+        await assert.rejects(stack.deploy(body), REFUSED);
+        assert.deepEqual(writesBut(seen, path), []);
+        await stack.deploy(body, { adopt: true });
+      }, fault);
+    });
+  });
+
+  describe(`${row.family}: a create killed before its claim, a knob an Output`, () => {
+    it('never adopts the object another stack owns', async () => {
+      const fault = refuseWriteOnce('/upstream');
+      const body = Effect.gen(function* () {
+        yield* row.declare('Z', 'a', (yield* upstream('15m')).tokenTtl);
+      });
+      await withEstate(async (stack, _estate, seen, owner) => {
+        await owner.deploy(row.declare('X', 'a', '30m'));
+        await assert.rejects(stack.deploy(body), /injected/);
+        seen.length = 0;
+        await assert.rejects(stack.deploy(body), REFUSED);
+        assert.deepEqual(writesBut(seen, '/upstream'), []);
+      }, fault);
+    });
+  });
+}
+
+/** `Z` at the row's fixed identity, its knob an upstream AppRole's `tokenTtl`. */
+const pendingCore = (row: CoreRow) =>
+  Effect.gen(function* () {
+    const up = yield* BaoAuthRole('Upstream', {
+      name: 'upstream',
+      secretIdTtl: '24h',
+      tokenMaxTtl: '1h',
+      tokenPolicies: ['default'],
+      tokenTtl: '15m',
+    });
+    yield* row.declare('Z', up.tokenTtl);
+  });
+
+for (const row of CORE) {
+  describe(`${row.family}: a create killed before its claim, a knob an Output`, () => {
+    it('never adopts — or tunes — the object another stack owns; --adopt takes it over', async () => {
+      const fault = refuseWriteOnce('/upstream');
+      await withCore(async (stack, _estate, seen, owner) => {
+        await owner.deploy(row.declare('X', '30m'));
+        await assert.rejects(stack.deploy(pendingCore(row)), /injected/);
+        seen.length = 0;
+        await assert.rejects(stack.deploy(pendingCore(row)), REFUSED);
+        assert.deepEqual(writesBut(seen, '/upstream'), []);
+        await stack.deploy(pendingCore(row), { adopt: true });
+      }, fault);
+    });
+  });
+}
+
+describe('Bao.Mount: a create killed before its claim, its path an Output', () => {
+  it('never tunes the mount another stack owns; --adopt takes it over', async () => {
+    const fault = refuseWriteOnce('/auth/approle/role/kv');
+    const body = Effect.gen(function* () {
+      const up = yield* BaoAuthRole('Upstream', {
+        name: 'kv',
+        secretIdTtl: '24h',
+        tokenMaxTtl: '1h',
+        tokenPolicies: ['default'],
+        tokenTtl: '15m',
+      });
+      yield* BaoMount('Z', { defaultLeaseTtl: '15m', path: up.name, type: 'kv' });
+    });
+    await withCore(async (stack, _estate, seen, owner) => {
+      await owner.deploy(BaoMount('X', { defaultLeaseTtl: '30m', path: 'kv', type: 'kv' }));
+      await assert.rejects(stack.deploy(body), /injected/);
+      seen.length = 0;
+      await assert.rejects(stack.deploy(body), REFUSED);
+      assert.deepEqual(writesBut(seen, '/auth/approle/role/kv'), []);
+      await stack.deploy(body, { adopt: true });
+    }, fault);
+  });
+});
+
+/** Bao.MfaTotpMethod never renames (mfa-totp.ts), so it has no replace to interrupt. */
+for (const row of FAMILIES.filter((each) => each.family !== 'Bao.MfaTotpMethod')) {
+  describe(`${row.family}: a replace killed before its write`, () => {
+    it('never writes over what another stack put at the new identity since; --adopt does', async () => {
+      const suffix = row.family === 'Bao.JwtAuthConfig' ? '/b/config' : '/b';
+      const fault = refuseWriteOnce(suffix);
+      const { retain } = RemovalPolicy;
+      await withEstate(async (stack, _estate, seen, owner) => {
+        await stack.deploy(row.declare('X', 'a', '15m', retain));
+        await assert.rejects(stack.deploy(row.declare('X', 'b', '15m', retain)), /injected/);
+        await owner.deploy(row.declare('O', 'b', '30m'));
+        seen.length = 0;
+        await assert.rejects(stack.deploy(row.declare('X', 'b', '15m', retain)), RESUME_REFUSED);
+        assert.deepEqual(writesOf(seen), []);
+        await stack.deploy(row.declare('X', 'b', '15m', retain), { adopt: true });
+        assert.notDeepEqual(writesOf(seen), []);
+      }, fault);
+    });
+  });
+}

package/src/openbao/adopt-recovery.test.ts

@@ -0,0 +1,71 @@
+/**
+ * Crash recovery survives the ownership rule: a deploy that dies after its write and before its
+ * commit leaves a `creating` (or `replacing`) row and a live object, and the next deploy must
+ * finish it WITHOUT `--adopt` — the object is ours (ownership/probe.ts, ownership/resume.ts).
+ * The crash is injected: the first read after a write answers 500, which is exactly a reconcile
+ * whose write landed and whose read-back, and so its commit, never did.
+ *
+ * ⛔ TEST-ONLY. Every value is a placeholder, not the estate's.
+ */
+import assert from 'node:assert/strict';
+import { describe, it } from 'node:test';
+import * as RemovalPolicy from 'alchemy/RemovalPolicy';
+import { type Seen, crashAfterWrite } from './fake-bao.ts';
+import type { Estate } from './fake-engines-roles.ts';
+import { FAMILIES, withEstate } from './fake-families.ts';
+import { type FakeStack, writesOf } from './fake-stack.ts';
+
+const RESUME_REFUSED = /Cannot resume creating resource 'X'.*--adopt/s;
+
+type Run = (stack: FakeStack, estate: Estate, seen: Seen[], owner: FakeStack) => Promise<void>;
+const withCrashes = (body: (crashNext: () => void) => Run) => {
+  const fault = crashAfterWrite();
+  return withEstate(body(fault.crashNext), fault.wrap);
+};
+
+for (const row of FAMILIES) {
+  describe(`${row.family}: an interrupted create`, () => {
+    it('is resumed without --adopt when the object is what it wrote; nothing is rewritten', async () => {
+      await withCrashes((crashNext) => async (stack, estate, seen) => {
+        crashNext();
+        await assert.rejects(stack.deploy(row.declare('X', 'a', '15m')), /injected/);
+        assert.ok(row.has(estate, 'a'));
+        seen.length = 0;
+        assert.deepEqual(await stack.deploy(row.declare('X', 'a', '15m')), { X: 'create' });
+        assert.deepEqual(writesOf(seen), []);
+        assert.deepEqual(await stack.deploy(row.declare('X', 'a', '15m')), { X: 'noop' });
+      });
+    });
+
+    it('is refused when the object has since changed, and resumed with --adopt', async () => {
+      await withCrashes((crashNext) => async (stack, _estate, _seen, owner) => {
+        crashNext();
+        await assert.rejects(stack.deploy(row.declare('X', 'a', '15m')), /injected/);
+        // ★ Someone else rewrites it in between: another stack, taking it over with --adopt.
+        await owner.deploy(row.declare('O', 'a', '30m'), { adopt: true });
+        await assert.rejects(stack.deploy(row.declare('X', 'a', '15m')), RESUME_REFUSED);
+        const resumed = await stack.deploy(row.declare('X', 'a', '15m'), { adopt: true });
+        assert.deepEqual(resumed, { X: 'create' });
+      });
+    });
+  });
+}
+
+/** Bao.MfaTotpMethod never renames (mfa-totp.ts), so it has no replace to interrupt. */
+for (const row of FAMILIES.filter((each) => each.family !== 'Bao.MfaTotpMethod')) {
+  describe(`${row.family}: an interrupted replace`, () => {
+    it('is resumed without --adopt: the new generation it wrote is not taken over', async () => {
+      await withCrashes((crashNext) => async (stack, estate) => {
+        const { retain } = RemovalPolicy;
+        await stack.deploy(row.declare('X', 'a', '15m', retain));
+        crashNext();
+        await assert.rejects(stack.deploy(row.declare('X', 'b', '15m', retain)), /injected/);
+        assert.ok(row.has(estate, 'b'));
+        assert.deepEqual(await stack.deploy(row.declare('X', 'b', '15m', retain)), {
+          X: 'replace',
+        });
+        assert.deepEqual(await stack.deploy(row.declare('X', 'b', '15m', retain)), { X: 'noop' });
+      });
+    });
+  });
+}

package/src/openbao/auth-method-reconcile.ts

@@ -6,6 +6,7 @@
  */
 import * as Effect from 'effect/Effect';
 import type * as HttpClient from 'effect/unstable/http/HttpClient';
+import type { Claim } from '../ownership/adopt.ts';
 import {
   type BaoAuthMethodAttributes,
   type BaoAuthMethodProps,
@@ -36,22 +37,32 @@ const moveTarget = (props: BaoAuthMethodProps): MoveTarget => ({
   wire: (path) => `auth/${authPath(path)}`,
 });
 
-/** Converge one auth method. `stated` is the path in Alchemy's state, if any. */
+/**
+ * Converge one auth method. `stated` is the path in Alchemy's state, if any.
+ * ⛔ `claim`: the same first-reconcile takeover refusal as reconcileMount's (auth-method.ts passes it).
+ */
 export const reconcileAuthMethod = (
   news: BaoAuthMethodProps,
   stated: string | undefined,
   options?: RemountOptions,
+  claim?: Claim,
 ): Effect.Effect<BaoAuthMethodAttributes, BaoError | RemountError, HttpClient.HttpClient> =>
   Effect.gen(function* () {
     const move = planMove('Bao.AuthMethod', stated, news.path, news.remountFrom);
     if (move.kind === 'refuse') return yield* Effect.die(new Error(move.message));
+    const first = stated === undefined ? claim : undefined;
+    if (first !== undefined && move.kind === 'move') {
+      const source = yield* readMethod({ ...news, path: move.from });
+      if (source !== undefined)
+        yield* first(`Bao.AuthMethod ${move.from} (the remountFrom source)`);
+    }
     if (move.kind === 'move') yield* performMove(moveTarget(news), move.from, options);
 
     let live = yield* readMethod(news);
     if (live === undefined) {
       yield* enableAuthMethod(news);
       if (wantsTune(news)) yield* tuneAuthMethod(news);
-    } else if (!matches(live, news)) {
+    } else {
       if (live.type !== news.type) {
         return yield* Effect.die(
           new Error(
@@ -60,7 +71,8 @@ export const reconcileAuthMethod = (
           ),
         );
       }
-      yield* tuneAuthMethod(news);
+      if (first !== undefined) yield* first(`Bao.AuthMethod ${authPath(news.path)}`);
+      if (!matches(live, news)) yield* tuneAuthMethod(news);
     }
     live = yield* readMethod(news);
     if (live === undefined) {

package/src/openbao/auth-method.ts

@@ -19,6 +19,9 @@ import { isResolved } from 'alchemy/Diff';
 import * as Provider from 'alchemy/Provider';
 import * as Effect from 'effect/Effect';
 import type * as HttpClient from 'effect/unstable/http/HttpClient';
+import { claimFor } from '../ownership/adopt.ts';
+import { ownedRead } from '../ownership/probe.ts';
+import { provingResumes } from '../ownership/resume.ts';
 import {
   type BaoAuthMethodAttributes,
   type BaoAuthMethodProps,
@@ -54,12 +57,17 @@ export const BaoAuthMethodProvider = () =>
          */
         list: () => Effect.succeed([]),
 
-        read: Effect.fn(function* ({ olds }) {
-          return yield* readMethod(olds);
+        /** ⛔ Stateless: `Unowned` unless our own interrupted create made it (ownership/probe.ts). */
+        read: Effect.fn(function* ({ fqn, instanceId, olds, output }) {
+          const found = yield* readMethod(olds);
+          const ours = Effect.sync(() => found !== undefined && matches(found, olds));
+          return yield* ownedRead({ fqn, instanceId, output }, found, ours);
         }),
 
         diff: Effect.fn(function* ({ news, output }) {
-          if (output === undefined || !isResolved(news)) return undefined;
+          // ★ No attributes: an unfinished generation, proven ours or not by provingResumes.
+          if (output === undefined) return undefined;
+          if (!isResolved(news)) return undefined;
           /**
            * ⛔ A CHANGED PATH FAILS HERE unless `remountFrom` names the old one — the same trap
            *   Bao.Mount had: reading the new path finds nothing, plans `update`, and enables an
@@ -81,8 +89,9 @@ export const BaoAuthMethodProvider = () =>
         }),
 
         /** The body, and the move, live in auth-method-reconcile.ts. */
-        reconcile: Effect.fn(function* ({ news, output }) {
-          return yield* reconcileAuthMethod(news, output?.path);
+        reconcile: Effect.fn(function* ({ fqn, instanceId, news, output }) {
+          const claim = claimFor({ fqn, instanceId, output });
+          return yield* reconcileAuthMethod(news, output?.path, undefined, claim);
         }),
 
         /**
@@ -94,5 +103,5 @@ export const BaoAuthMethodProvider = () =>
           return undefined;
         }),
       }),
-    ),
+    ).pipe(Effect.map(provingResumes)),
   );

package/src/openbao/auth-role.ts

@@ -14,6 +14,9 @@ import { isResolved } from 'alchemy/Diff';
 import * as Provider from 'alchemy/Provider';
 import * as Effect from 'effect/Effect';
 import type * as HttpClient from 'effect/unstable/http/HttpClient';
+import { refuseTakeover } from '../ownership/adopt.ts';
+import { ownedRead } from '../ownership/probe.ts';
+import { provingResumes } from '../ownership/resume.ts';
 import {
   type BaoAuthRoleAttributes,
   type BaoAuthRoleProps,
@@ -66,8 +69,11 @@ export const BaoAuthRoleProvider = () =>
          */
         list: () => Effect.succeed([]),
 
-        read: Effect.fn(function* ({ olds }) {
-          return yield* readRole(olds);
+        /** ⛔ Stateless: `Unowned` unless our own interrupted create made it (ownership/probe.ts). */
+        read: Effect.fn(function* ({ fqn, instanceId, olds, output }) {
+          const found = yield* readRole(olds);
+          const ours = Effect.sync(() => found !== undefined && matches(found, olds));
+          return yield* ownedRead({ fqn, instanceId, output }, found, ours);
         }),
 
         /**
@@ -87,6 +93,7 @@ export const BaoAuthRoleProvider = () =>
            *   opt into `RemovalPolicy.destroy()` or destroy the old role's accessors by hand.
            */
           const move = yield* judgeRename(IDENTITY, olds, news, output);
+          // ★ No attributes: an unfinished generation, proven ours or not by provingResumes.
           if (output === undefined) return undefined;
           if (move !== undefined) return { action: 'replace' } as const;
           if (!isResolved(news)) return undefined;
@@ -96,10 +103,13 @@ export const BaoAuthRoleProvider = () =>
           return { action: 'update' } as const;
         }),
 
-        reconcile: Effect.fn(function* ({ news, output }) {
+        reconcile: Effect.fn(function* ({ fqn, instanceId, news, output }) {
           // ⛔ An `update` across a rename the diff could not see — refused before any write.
           yield* guardRename(IDENTITY, news, output);
           const live = yield* readRole(news);
+          const path = readPath(news.name);
+          if (live !== undefined)
+            yield* refuseTakeover({ fqn, instanceId, output }, `Bao.AuthRole ${path}`);
           if (live === undefined || !matches(live, news)) {
             yield* baoWrite('PUT', readPath(news.name), writeBody(news));
           }
@@ -130,5 +140,5 @@ export const BaoAuthRoleProvider = () =>
           return undefined;
         }),
       }),
-    ),
+    ).pipe(Effect.map(provingResumes)),
   );

package/src/openbao/cloudflare-role.ts

@@ -21,6 +21,9 @@ import { isResolved } from 'alchemy/Diff';
 import * as Provider from 'alchemy/Provider';
 import * as Effect from 'effect/Effect';
 import type * as HttpClient from 'effect/unstable/http/HttpClient';
+import { refuseTakeover } from '../ownership/adopt.ts';
+import { ownedRead } from '../ownership/probe.ts';
+import { provingResumes } from '../ownership/resume.ts';
 import { groupKey, scopeOfResource } from './cloudflare-group-scope.ts';
 import { CloudflarePermissionGroups, type GroupRef } from './cloudflare-permission-groups.ts';
 import { resolvePolicies } from './cloudflare-policy.ts';
@@ -106,9 +109,15 @@ export const BaoCloudflareRoleProvider = () =>
          */
         list: () => Effect.succeed([]),
 
-        read: Effect.fn(function* ({ olds }) {
+        /** ⛔ Stateless: `Unowned` unless our own interrupted create made it (ownership/probe.ts). */
+        read: Effect.fn(function* ({ fqn, instanceId, olds, output }) {
           const live = yield* readCloudflareRole(olds.mount, olds.name);
-          return live === undefined ? undefined : attributesOf(olds, live);
+          const found = live === undefined ? undefined : attributesOf(olds, live);
+          const ours = Effect.gen(function* () {
+            if (live === undefined || refusalOf(olds) !== undefined) return false;
+            return differences(olds, yield* resolved(olds), live).length === 0;
+          });
+          return yield* ownedRead({ fqn, instanceId, output }, found, ours);
         }),
 
         /**
@@ -129,6 +138,7 @@ export const BaoCloudflareRoleProvider = () =>
          */
         diff: Effect.fn(function* ({ news, olds, output }) {
           const move = yield* judgeRename(IDENTITY, olds, news, output);
+          // ★ No attributes: an unfinished generation, proven ours or not by provingResumes.
           if (output === undefined) return undefined;
           if (move !== undefined) return { action: 'replace' } as const;
           if (!isResolved(news)) return undefined;
@@ -145,7 +155,7 @@ export const BaoCloudflareRoleProvider = () =>
             : ({ action: 'update' } as const);
         }),
 
-        reconcile: Effect.fn(function* ({ news, output }) {
+        reconcile: Effect.fn(function* ({ fqn, instanceId, news, output }) {
           const path = rolePath(news.mount, news.name);
           // ⛔ An `update` across a move the diff could not see — refused before any write.
           yield* guardRename(IDENTITY, news, output);
@@ -155,6 +165,9 @@ export const BaoCloudflareRoleProvider = () =>
           }
           const policies = yield* resolved(news);
           const live = yield* readCloudflareRole(news.mount, news.name);
+          if (live !== undefined) {
+            yield* refuseTakeover({ fqn, instanceId, output }, `Bao.CloudflareRole ${path}`);
+          }
           /**
            * ⛔ ADOPTING A ROLE THAT ALREADY MATCHES MUST NOT REWRITE IT. Alchemy's `adopted` action
            *   routes through reconcile (policy.ts has the Apply.ts reading), so without this guard
@@ -199,5 +212,5 @@ export const BaoCloudflareRoleProvider = () =>
           return undefined;
         }),
       });
-    }),
+    }).pipe(Effect.map(provingResumes)),
   );

package/src/openbao/fake-bao.ts

@@ -82,3 +82,55 @@ export const runFailure = <A, E>(
   env: BaoEnvironment,
   effect: Effect.Effect<A, E, HttpClient.HttpClient>,
 ) => Effect.runPromise(provided(env, Effect.flip(effect)));
+
+/**
+ * An injected crash between a write and its commit. Once armed, `crashNext()` fails the first read
+ * that follows a write with a 500 — a reconcile whose write landed and whose read-back, and so the
+ * engine's commit, never did — and `crashNext('write')` lands the next write and then answers it
+ * 500, for a reconcile that reads nothing back (Bao.Policy). Either leaves the `creating` /
+ * `replacing` row a killed deploy leaves.
+ */
+export const crashAfterWrite = () => {
+  let armed: 'read-back' | 'write' | undefined;
+  let wrote = false;
+  const CRASH: Reply = { json: { errors: ['injected: the deploy died here'] }, status: 500 };
+  return {
+    crashNext: (at: 'read-back' | 'write' = 'read-back') => {
+      armed = at;
+      wrote = false;
+    },
+    wrap:
+      (answer: (seen: Seen) => Reply) =>
+      (seen: Seen): Reply => {
+        if (armed === 'write' && seen.method !== 'GET') {
+          armed = undefined;
+          answer(seen);
+          return CRASH;
+        }
+        if (armed !== undefined && seen.method !== 'GET') wrote = true;
+        if (armed !== undefined && wrote && seen.method === 'GET') {
+          armed = undefined;
+          return CRASH;
+        }
+        return answer(seen);
+      },
+  };
+};
+
+/**
+ * A deploy killed BEFORE a resource's reconcile ran: the first write to a path ending in `suffix` is
+ * refused (500) without landing. Aimed at an upstream, it fails every create waiting on it after
+ * Apply has committed their `creating` rows — rows whose create never asked whose object sat at
+ * its identity (ownership/whole.ts).
+ */
+export const refuseWriteOnce = (suffix: string) => {
+  let armed = true;
+  return (answer: (seen: Seen) => Reply) =>
+    (seen: Seen): Reply => {
+      if (armed && seen.method !== 'GET' && seen.path.endsWith(suffix)) {
+        armed = false;
+        return { json: { errors: ['injected: the upstream was refused'] }, status: 500 };
+      }
+      return answer(seen);
+    };
+};

package/src/openbao/fake-core.ts

@@ -0,0 +1,141 @@
+/**
+ * The five families fake-families.ts does not cover — Bao.Policy, Bao.CloudflareRole,
+ * Bao.ProxmoxRole, Bao.Mount and Bao.AuthMethod — as rows of one table over one routed fake, so the
+ * ownership tests (adopt-core.test.ts) drive each through Alchemy's own plan and apply. Each row
+ * declares one object whose identity is fixed; `knob` is a duration-like prop that is NOT its
+ * identity, so an Output can stand in for it and a second owner can change it.
+ *
+ * ⛔ TEST-ONLY. Every value is a placeholder, not the estate's.
+ */
+import * as Effect from 'effect/Effect';
+import * as Layer from 'effect/Layer';
+import * as FetchHttpClient from 'effect/unstable/http/FetchHttpClient';
+import type * as Output from 'alchemy/Output';
+import { BaoAuthMethod, BaoAuthMethodProvider } from './auth-method.ts';
+import { BaoAuthRoleProvider } from './auth-role.ts';
+import { groupKey } from './cloudflare-group-scope.ts';
+import { CloudflarePermissionGroups } from './cloudflare-permission-groups.ts';
+import { BaoCloudflareRole, BaoCloudflareRoleProvider } from './cloudflare-role.ts';
+import type { Reply, Seen } from './fake-bao.ts';
+import { aclPolicies, cloudflareRoles, fakePolicyProviders, proxmoxRoles } from './fake-engines.ts';
+import { wireRoles } from './fake-engines-roles.ts';
+import { liveTable } from './fake-mounts.ts';
+import { type FakeStack, type StackBody, fakeStack, withFakeStack } from './fake-stack.ts';
+import { BaoMount, BaoMountProvider } from './mount.ts';
+import { BaoPolicy } from './policy.ts';
+import { BaoProxmoxRole, BaoProxmoxRoleProvider } from './proxmox-role.ts';
+
+/** Every group resolves, to an id named after it — these tests are about ownership, not groups. */
+const groups = Layer.succeed(CloudflarePermissionGroups, {
+  resolve: (_mount, refs) =>
+    Effect.succeed(new Map(refs.map((ref) => [groupKey(ref.name, ref.scope), `id-${ref.name}`]))),
+});
+
+export const coreProviders = Layer.mergeAll(
+  fakePolicyProviders,
+  BaoCloudflareRoleProvider().pipe(Layer.provide(groups)),
+  BaoProxmoxRoleProvider(),
+  BaoMountProvider(),
+  BaoAuthMethodProvider(),
+  // ★ For `upstream`: an AppRole whose `tokenTtl` is the Output a knob is fed.
+  BaoAuthRoleProvider(),
+  FetchHttpClient.layer,
+);
+
+/** Every store behind one answer, routed by path. */
+export const coreEstate = () => {
+  const stores = {
+    auth: liveTable('sys/auth', {}),
+    cloudflare: cloudflareRoles(),
+    mounts: liveTable('sys/mounts', {}),
+    policies: aclPolicies(),
+    proxmox: proxmoxRoles(),
+    roles: wireRoles(),
+  };
+  const answer = (seen: Seen): Reply => {
+    const path = seen.path.replace(/^\/v1\//, '');
+    if (path.startsWith('sys/policies/acl/')) return stores.policies(seen);
+    if (path.startsWith('sys/auth')) return stores.auth.answer(seen);
+    if (path.startsWith('sys/mounts') || path.startsWith('sys/remount')) {
+      return stores.mounts.answer(seen);
+    }
+    if (path.startsWith('cloudflare-acme-dns/')) return stores.cloudflare(seen);
+    if (path.startsWith('proxmox-lab/')) return stores.proxmox(seen);
+    return stores.roles(seen);
+  };
+  return Object.assign(answer, stores);
+};
+
+export type CoreEstate = ReturnType<typeof coreEstate>;
+
+type Text = string | Output.Output<string>;
+
+export interface CoreRow {
+  readonly family: string;
+  /** One resource, logical id `id`, at the row's fixed identity. */
+  readonly declare: (id: string, knob: Text) => StackBody;
+  /** Whether the fake holds the object. */
+  readonly has: (estate: CoreEstate) => boolean;
+}
+
+export const CORE: readonly CoreRow[] = [
+  {
+    // ★ The fragments directory IS the content (fake-engines.ts), so a knob changes the policy.
+    declare: (id, knob) => BaoPolicy(id, { fragments: knob, name: 'app' }),
+    family: 'Bao.Policy',
+    has: (estate) => estate.policies.live.has('sys/policies/acl/app'),
+  },
+  {
+    declare: (id, knob) =>
+      BaoCloudflareRole(id, {
+        description: 'Read DNS records on one zone. (zone: example.com)',
+        maxTtl: '1h',
+        mount: 'cloudflare-acme-dns',
+        name: 'dns-read',
+        policies: [
+          {
+            effect: 'allow',
+            groupOrder: 'declared',
+            groups: ['DNS Read'],
+            resource: 'com.cloudflare.api.account.zone.z1',
+          },
+        ],
+        ttl: knob,
+      }),
+    family: 'Bao.CloudflareRole',
+    has: (estate) => estate.cloudflare.live.has('cloudflare-acme-dns/roles/dns-read'),
+  },
+  {
+    declare: (id, knob) =>
+      BaoProxmoxRole(id, {
+        maxTtl: '6h',
+        mintUser: 'reader@pve',
+        mount: 'proxmox-lab',
+        name: 'read',
+        ttl: knob,
+      }),
+    family: 'Bao.ProxmoxRole',
+    has: (estate) => estate.proxmox.live.has('proxmox-lab/roles/read'),
+  },
+  {
+    declare: (id, knob) => BaoMount(id, { defaultLeaseTtl: knob, path: 'kv', type: 'kv' }),
+    family: 'Bao.Mount',
+    has: (estate) => estate.mounts.table.has('kv/'),
+  },
+  {
+    declare: (id, knob) => BaoAuthMethod(id, { defaultLeaseTtl: knob, path: 'jwt', type: 'jwt' }),
+    family: 'Bao.AuthMethod',
+    has: (estate) => estate.auth.table.has('jwt/'),
+  },
+];
+
+/** One stack over a fresh core estate, plus `owner`: a second stack over the same fake. */
+export const withCore = (
+  body: (stack: FakeStack, estate: CoreEstate, seen: Seen[], owner: FakeStack) => Promise<void>,
+  answer: (estate: CoreEstate) => (seen: Seen) => Reply = (estate) => estate,
+): Promise<void> => {
+  const estate = coreEstate();
+  return withFakeStack(coreProviders, answer(estate), (stack, bao) =>
+    body(stack, estate, bao.seen, fakeStack(coreProviders, { BAO_ADDR: bao.address }, 'Owner')),
+  );
+};