6 Commits

Author SHA1 Message Date
John Dvorak 9111c4b20d feat: duration seconds; required fields; type-validated insertions/updates/retrievals
CI / publish (push) Successful in 9s
CI / test (push) Successful in 19s
- Duration literals now accept s/m/h/d/w (was m/h/d/w): 'BEHAVES { ttl 30s }'
  is 30s, and 'within 30s' temporal expressions parse.
- Definition fields are REQUIRED by default ('field: type'); 'field: type?'
  marks a field optional. addNode enforces presence on insert, getSchema
  exposes per-field requiredness, and updateNodeData still validates the
  provided fields' types.
- Provider-returned edges are validated against the fact's declared typing:
  a value-carrying fact must return { value, possibility } with a value of the
  declared type (bare-number shorthand is rejected); a non-value fact must not
  carry a value; and every possibility must lie in [0, 1]. Violations throw a
  clear provider-authoring error instead of silently injecting malformed edges.

Tests: DSLRuntimeTyping (duration units, required-field enforcement, schema
requiredness, value-type + shape + possibility validation).
2026-08-03 16:00:49 -07:00
John Dvorak aa38fbfd8c feat: provider-cache bypass knob; reject non-final comparator chain steps
CI / publish (push) Successful in 9s
CI / test (push) Successful in 18s
- check() gains cacheProviderResults (per-check option + policy default): the
  provider cache is a STORE-RETRIEVAL cache (wall-clock), independent of the
  caller's decision { now }; callers who pin time or want fresh retrieval can
  opt out per-check or globally.
- The generator now rejects a comparator evidence referenced at a NON-final
  chain position (a comparator compares values at (src, candidate) but
  provides no candidate set, so it cannot enumerate intermediate nodes).
  Final-position comparators still lower to condition steps.

Tests: cache bypass (per-check + policy), comparator final OK / intermediate
error.
2026-08-03 15:43:59 -07:00
John Dvorak ad365a65a9 feat: direct fact checks consult registered providers
CI / test (push) Successful in 19s
CI / publish (push) Successful in 9s
Checking a FACT relation directly (rt.check('u:1', 'owns', 'doc:9')) now
runs the provider-retrieval pipeline instead of returning 0 without ever
consulting the registered provider. The retrieval set for a direct fact
check is the fact itself (plus, for evidence checks, the injectable deps as
before). The result reports requiredFacts/providedFacts/missingFacts for the
fact, and missingFacts surfaces 'no_provider' when neither a provider nor an
edge can satisfy the check.
2026-08-03 15:25:33 -07:00
John Dvorak 6214780244 feat: provider-result caching with time expiry + DSL fact-level TTL
CI / publish (push) Successful in 9s
CI / test (push) Successful in 18s
Automatically-retrieved facts (balances, sessions, etc.) are now cached with
a time expiry so repeated checks don't re-invoke the underlying data store.

- check(): registered providers cache their normalized edges per
  (relation, subject, object) with a TTL; a fresh entry is reused without
  re-invoking the provider. Per-check factProviders are one-off observations
  and stay cache-transparent (no read, no write).
- TTL resolution: DSL-declared 'BEHAVES { ttl <duration> }' on a fact >
  setFactTTL(relation, ms) > policy.providerCacheTTL (default 30s; 0 disables).
- Grammar: facts may now declare a freshness window via
  'fact balance(user, amount) BEHAVES { ttl 1h }' (previously BEHAVES only
  accepted 'AS edge|transitive|hierarchical|symmetrical_graph'). The runtime
  indexes it as the fact's ttlMs.
- registerFact/unregisterFact, graph mutations (add/update/remove node or
  relation), and invalidateProviderCache(relation?) keep the cache consistent.
- Injectable clock (default wall clock) drives cache freshness, mirroring the
  core's unpinned-clock contract.

Tests: DSLRuntimeCache (reuse within TTL, expiry re-invoke, per-check
override transparency, registerFact invalidation, mutation invalidation,
per-relation/all invalidation, policy default, DSL-declared 1h TTL).
2026-08-03 14:32:15 -07:00
John Dvorak 3ace783a59 feat: intermediate chain condition steps + _subjectIsObject unary scoping
CI / publish (push) Successful in 10s
CI / test (push) Successful in 19s
- _expandChainSteps: a logical/defeasible evidence referenced by a chain step
  is now a condition step ({ rule, conditionStep }) at ANY position. As the
  FINAL step the engine verifies it at (intermediate, object); as an
  INTERMEDIATE step the engine expands it from the current node (rule-based
  reachability: base edges' destinations filtered by the rule's
  defeaters/requirements) and continues traversal from each discovered node.
- buildPredicateRule / buildDirectRule: unary predicate calls whose subject
  entity IS the evidence's object parameter (trusted(other) inside
  peer_trusted(user, other)) are marked _subjectIsObject (was: only subject-var
  calls got _subjectAsObject). Requires @arbiter/core@^1.0.4.

Tests: ChainConditionStep intermediate expansion; oracle campaign gains a
chain_intermediate_condition construct (oracle = min(peer*(1-trusted), read)).
2026-08-03 13:36:16 -07:00
John Dvorak fe162251fc feat: DSLRuntime schema introspection, per-relation providers, retrieval loop
CI / publish (push) Successful in 10s
CI / test (push) Successful in 20s
The higher-order DSL+Core wrapper now covers the full contract the DSL
informs, beyond the typed mutations already present:

- getSchema(): serializable introspection of the compiled type system —
  entity types/fields, facts (params + injectable flag), evidence (with
  transitive dependsOn), and registered providers. relationNames() lists all
  declared relations. (The DSL's type system was always present; this exposes
  it programmatically.)
- registerFact(relation, fn) / unregisterFact / registeredFacts: per-relation
  async providers that retrieve missing partial-graph edges; per-check
  factProviders merge OVER registered ones.
- Bounded fixed-point provider retrieval loop (maxProviderRounds): each round
  invokes providers for required facts whose edges are not yet injected. A
  provider may return edges for relations other than its own — those satisfy
  the other required facts and can unblock later rounds.
- check() now type-validates FACT relations too (not just evidence); edge
  normalization preserves a provider edge's own relation name.
- removeNode / removeRelation passthroughs; require() throws on denial for
  middleware.
- Field typing extended to the DSL's full value-type universe
  (timestamp/duration accept number or string; object/any accept anything).

Tests: DSLRuntimeExt (schema, registration, merge, fixed-point, require,
removal, fact-check validation, timestamp typing).
2026-08-03 12:45:16 -07:00
12 changed files with 1919 additions and 975 deletions
+6 -6
View File
@@ -1,15 +1,15 @@
{
"name": "@arbiter/evidence-dsl",
"version": "1.4.0",
"version": "1.6.0",
"lockfileVersion": 3,
"requires": true,
"packages": {
"": {
"name": "@arbiter/evidence-dsl",
"version": "1.4.0",
"version": "1.6.0",
"license": "ISC",
"dependencies": {
"@arbiter/core": "^1.0.3"
"@arbiter/core": "^1.0.4"
},
"devDependencies": {
"@rigor/core": "^3.1.0",
@@ -17,9 +17,9 @@
}
},
"node_modules/@arbiter/core": {
"version": "1.0.3",
"resolved": "https://hub.kl1.tenere.ai/api/packages/Arbiter/npm/%40arbiter%2Fcore/-/1.0.3/core-1.0.3.tgz",
"integrity": "sha512-MCXxyeWBoYjEJMrdO8N8q9uEdX7JgDvwRH39D+8x65zFz+JCNWIQ8H4DgsP2rgF+yzv/cdVH4BX9PfFt6i0ftQ==",
"version": "1.0.4",
"resolved": "https://hub.kl1.tenere.ai/api/packages/Arbiter/npm/%40arbiter%2Fcore/-/1.0.4/core-1.0.4.tgz",
"integrity": "sha512-1zXy3mZACjwELptsV8QpYvZJmMU7BhUQ4FsKNfp3/oJDwjfMqAImcAF3mJ+HNZpQnLQXScmELTwow5VduvN27g==",
"license": "ISC",
"dependencies": {
"@tenere/pltc-core": "^0.6.3",
+2 -2
View File
@@ -1,6 +1,6 @@
{
"name": "@arbiter/evidence-dsl",
"version": "1.4.0",
"version": "1.10.0",
"description": "Evidence DSL v2 compiler: translates the natural Evidence DSL (ADR-000) into @arbiter/core relation configurations.",
"license": "ISC",
"type": "module",
@@ -24,7 +24,7 @@
"generate:parser": "node scripts/generate-parser.js"
},
"dependencies": {
"@arbiter/core": "^1.0.3"
"@arbiter/core": "^1.0.4"
},
"devDependencies": {
"@rigor/core": "^3.1.0",
+37 -19
View File
@@ -486,15 +486,22 @@ export class RuleGenerator {
reverse: false
};
// Subject-scoped (unary) call: the predicate call's args omit the
// evidence's object parameter (user_risk(user, 1) inside a binary
// evidence) → check the relation on the subject itself.
// Unary predicate calls check the relation as a self-edge on the call's
// subject entity (the graph stores unary facts as self-edges). The subject
// entity may be the evidence's SUBJECT or its OBJECT parameter — mark the
// matching rewrite flag.
const evidenceParams = (evidence && evidence.params) || [];
const objectVar = evidenceParams[1] && evidenceParams[1].name;
const argName = a => a && (a.name !== undefined ? a.name : a.value);
if (objectVar !== undefined && !(predicate.arguments || []).some(a => argName(a) === objectVar)) {
const args = predicate.arguments || [];
if (objectVar !== undefined) {
const hasObjectArg = args.some(a => argName(a) === objectVar);
if (args.length === 1 && argName(args[0]) === objectVar) {
rule._subjectIsObject = true;
} else if (!hasObjectArg) {
rule._subjectAsObject = true;
}
}
return rule;
}
@@ -1082,7 +1089,6 @@ export class RuleGenerator {
const out = [];
for (let idx = 0; idx < steps.length; idx++) {
const step = steps[idx];
const isLast = idx === steps.length - 1;
const stepName = typeof step === 'string' ? step : step.relation;
if (stepName && this.evidenceNames.has(stepName)) {
if (stack.has(stepName)) {
@@ -1105,15 +1111,20 @@ export class RuleGenerator {
out.push(...this._expandChainSteps(resolved.steps, refStack));
continue;
}
if (isLast) {
// Condition-gated final hop: inline the evidence's config as a
// rule step the engine evaluates at (intermediate, object).
out.push({ rule: this._deepCloneRule(resolved), conditionStep: true });
if (resolved.type === 'relational_comparator' && idx !== steps.length - 1) {
// A comparator compares values at (src, candidate) but provides no
// candidate set — it cannot enumerate intermediate nodes, so only
// a FINAL comparator step (verified at the known object) lowers.
this.errors.push(`Chain step '${stepName}' references a comparator evidence at a non-final position. ` +
'Comparators can only be the final chain step (the object is known); intermediate positions are not enumerable.');
out.push(step);
continue;
}
this.errors.push(`Chain step '${stepName}' references an evidence with type '${resolved.type || 'logical'}'. ` +
'Only the final chain step may reference a defeasible/logical evidence (a condition-gated hop); intermediate steps must be edge traversals.');
out.push(step);
// Condition step: inline the evidence's config as a rule step. As the
// FINAL step the engine verifies it at (intermediate, object); as an
// INTERMEDIATE step the engine EXPANDS it from the current node
// (rule-based reachability) and continues from each discovered node.
out.push({ rule: this._deepCloneRule(resolved), conditionStep: true });
continue;
}
}
@@ -1280,16 +1291,23 @@ export class RuleGenerator {
reverse: false
};
// Subject-scoped (unary) predicate call: the call's variable args omit the
// evidence's object parameter (banned(user) inside can_open(user, doc)).
// Mark _subjectAsObject so the engine checks the relation on the subject
// itself — the unary fact's self-edge — instead of (subject, object).
// Unary predicate calls check the relation as a self-edge on the call's
// subject entity (the graph stores unary facts as self-edges). The subject
// entity may be the evidence's SUBJECT or its OBJECT parameter:
// banned(user) in can_open(user, doc) -> self-edge on the user
// trusted(other) in peer_trusted(user, other) -> self-edge on the other
// Mark _subjectAsObject (subject-as-object on the subject entity) or
// _subjectIsObject (the subject entity IS the object parameter) so the
// engine rewrites the pair accordingly.
const evidenceParams = (evidence && evidence.params) || [];
const objectVar = evidenceParams[1] && evidenceParams[1].name;
const argName = a => a && (a.name !== undefined ? a.name : a.value);
if (objectVar !== undefined) {
const hasObjectArg = (expression.args || []).some(a =>
a && a.type === 'Variable' && a.name === objectVar);
if (!hasObjectArg) {
const args = expression.args || [];
const hasObjectArg = args.some(a => a && a.type === 'Variable' && a.name === objectVar);
if (args.length === 1 && argName(args[0]) === objectVar) {
rule._subjectIsObject = true;
} else if (!hasObjectArg) {
rule._subjectAsObject = true;
}
}
+12 -2
View File
@@ -54,11 +54,14 @@ Definition "A type definition"
}
Field
= name:Identifier _ ":" _ fieldType:Type _ isArray:("[]")? _ behavior:Behavior? _ cache:CacheDirective? {
= name:Identifier _ ":" _ fieldType:Type optional:("?")? _ isArray:("[]")? _ behavior:Behavior? _ cache:CacheDirective? {
return {
type: "Field",
name,
fieldType,
// `field: type` is REQUIRED on node insert; `field: type?` is optional.
// Presence is enforced by the DSLRuntime when a node is created.
required: !optional,
isArray: !!isArray,
behavior: behavior || null,
cache: cache || null
@@ -248,6 +251,13 @@ BehaviorAnnotation
= "BEHAVES" __ "AS" __ behavior:("edge" / "transitive" / "hierarchical" / "symmetrical_graph") {
return { type: "BehaviorAnnotation", behavior };
}
/ "BEHAVES" __ "{" _ behavior:(TTLBehavior) _ "}" {
// Fact-level freshness: `fact balance(user, amount) BEHAVES { ttl 1h }`
// declares the relation's value-freshness window, which the runtime uses
// as the provider-result cache TTL. The behavior is wrapped like the
// `BEHAVES AS` form so consumers read `behavior.behaviorType`.
return { type: "BehaviorAnnotation", behavior };
}
FactProperty
= "transitive" { return "transitive"; }
@@ -385,7 +395,7 @@ Boolean "A boolean literal"
= value:("true" / "false") { return { type: "Literal", value: value === "true" }; }
Duration "A time duration literal"
= value:([0-9]+ ("h" / "d" / "w" / "m")) { return { type: "Literal", value: text(), unit: text().slice(-1) }; }
= value:([0-9]+ ("s" / "m" / "h" / "d" / "w")) { return { type: "Literal", value: text(), unit: text().slice(-1) }; }
// -- Core Tokens & Whitespace --
File diff suppressed because it is too large Load Diff
+370 -51
View File
@@ -1,6 +1,6 @@
import { DSLCompiler } from '../DSLCompiler.js';
const PRIMITIVE_TYPES = new Set(['string', 'number', 'boolean']);
const VALUE_TYPES = new Set(['string', 'number', 'boolean', 'timestamp', 'duration', 'object', 'any']);
/**
* DSLRuntime higher-order wrapper combining the Evidence DSL with an
@@ -12,13 +12,19 @@ const PRIMITIVE_TYPES = new Set(['string', 'number', 'boolean']);
* check). A raw Arbiter accepts untyped inserts; this wrapper adds the
* DSL-informed layer:
*
* - addNode / updateNodeData / addRelation / updateRelation validate their
* arguments against the compiled schema known types, known relations,
* matching param types, typed field values before mutating the arbiter.
* - check() validates the request, derives the injectable facts the
* evidence requires (its partial-graph requirements), retrieves the
* missing facts through caller-provided data callbacks, injects them into
* a partial graph, then delegates to the arbiter.
* - schema introspection: getSchema() exposes the compiled type system
* (entity types/fields, facts, evidence, dependencies, providers);
* - typed mutations: addNode / updateNodeData / addRelation / updateRelation
* validate their arguments against the compiled schema known types,
* known relations, matching param types, typed field values before
* mutating the arbiter; removeNode / removeRelation pass through;
* - per-relation data retrieval: registerFact(relation, asyncFn) registers a
* provider that retrieves the missing partial-graph edges for a fact; a
* bounded retrieval loop runs providers to a fixed point so a provider's
* edges can satisfy another required fact;
* - DSL-informed check: derives the evidence's injectable facts, retrieves
* them via providers, injects them into a partial graph, and delegates to
* the arbiter; require() throws on denial for middleware use.
*
* Trust boundary follows the core: caller-supplied evidence (partial graph /
* provider results) is trusted, never policed; only structure is validated.
@@ -41,8 +47,27 @@ export class DSLRuntime {
this.strictTypes = options.policy?.strictTypes !== false;
this.program = null;
this.types = new Map(); // typeName -> { fields: Map(field -> {type,isArray}) }
this.relations = new Map(); // relation -> { kind: 'fact'|'evidence', params, injectable }
this.relations = new Map(); // relation -> { kind: 'fact'|'evidence', params, injectable, ttlMs }
this.dependsOn = new Map(); // evidence relation -> Set(fact relations)
// Provider-result cache: relation|subject|object -> { edges, fetchedAt }.
// Provider retrieval is a data-store read (balance lookups, session
// checks, etc.) — caching results with a time expiry avoids hammering the
// underlying store on every check. The clock is injectable (default wall
// clock) and drives cache freshness, mirroring the core's unpinned-clock
// contract.
this.providerCache = new Map();
this.clock = typeof options.clock === 'function' ? options.clock : (() => Date.now());
// Default provider-result TTL in ms (0 disables caching).
this.defaultProviderCacheTTL = options.policy?.providerCacheTTL ?? options.providerCacheTTL ?? 30_000;
// Provider caching is a STORE-RETRIEVAL cache (wall-clock), deliberately
// independent of the caller's decision `{ now }` — a provider returns the
// store's current data, not a time-travel snapshot. Callers who pin time
// or otherwise want fresh retrieval can disable it per-check
// (options.cacheProviderResults: false) or globally (policy).
this.cacheProviderResults = options.policy?.cacheProviderResults ?? options.cacheProviderResults ?? true;
// Per-fact overrides (ms). DSL-declared ttl behaviors are indexed here too.
this.factTTLs = new Map(Object.entries(options.factTTLs || {}));
}
/**
@@ -62,6 +87,44 @@ export class DSLRuntime {
return this;
}
// ---------------------------------------------------------------------------
// Schema introspection
// ---------------------------------------------------------------------------
/**
* A serializable snapshot of the compiled type system: entity types with
* typed fields, facts, evidence (with their dependencies), and registered
* providers. Callers can use this to render forms, build clients, or audit
* a compiled program without reaching into the internal Maps.
*/
getSchema() {
const types = [...this.types.entries()].map(([name, { fields }]) => ({
name,
fields: [...fields.entries()].map(([fieldName, f]) => ({
name: fieldName,
type: f.type,
isArray: f.isArray,
required: f.required !== false
}))
}));
const facts = [...this.relations.entries()]
.filter(([, r]) => r.kind === 'fact')
.map(([name, r]) => ({ name, params: r.params, injectable: r.injectable }));
const evidence = [...this.relations.entries()]
.filter(([, r]) => r.kind === 'evidence')
.map(([name, r]) => ({
name,
params: r.params,
dependsOn: [...(this.dependsOn.get(name) || [])]
}));
return { types, facts, evidence, providers: this.registeredFacts() };
}
/** All relation names declared by the program (facts + evidence). */
relationNames() {
return [...this.relations.keys()];
}
_indexSchema() {
this.types.clear();
this.relations.clear();
@@ -70,16 +133,18 @@ export class DSLRuntime {
for (const def of this.program.definitions || []) {
const fields = new Map();
for (const field of def.fields || []) {
fields.set(field.name, { type: field.fieldType, isArray: !!field.isArray });
fields.set(field.name, { type: field.fieldType, isArray: !!field.isArray, required: field.required !== false });
}
this.types.set(def.name, { fields });
}
for (const fact of this.program.facts || []) {
const ttlMs = this._ttlFromBehavior(fact.behavior);
this.relations.set(fact.name, {
kind: 'fact',
params: (fact.params || []).map(p => ({ name: p.name, type: p.paramType, isArray: !!p.isArray })),
injectable: !!fact.injectable
injectable: !!fact.injectable,
ttlMs
});
}
@@ -136,12 +201,178 @@ export class DSLRuntime {
}
}
// ---------------------------------------------------------------------------
// Provider registration (per-relation data retrieval)
// ---------------------------------------------------------------------------
/**
* Register (or replace) an async provider for a relation name. When a check
* needs that relation's facts and they are not in the graph, the provider is
* invoked to retrieve the missing partial-graph edges.
*
* @param {string} relation - fact relation name
* @param {Function} provider - async (subject, object, ctx) => edges
*/
registerFact(relation, provider) {
if (typeof provider !== 'function') {
throw new Error(`DSLRuntime: provider for '${relation}' must be a function`);
}
this.factProviders[relation] = provider;
// A new provider supersedes any cached retrieval for this fact.
this.invalidateProviderCache(relation);
return this;
}
/** Remove a registered provider. */
unregisterFact(relation) {
delete this.factProviders[relation];
this.invalidateProviderCache(relation);
return this;
}
/** Relation names that currently have a registered provider. */
registeredFacts() {
return Object.keys(this.factProviders);
}
// ---------------------------------------------------------------------------
// Provider-result caching
// ---------------------------------------------------------------------------
/**
* Set a per-fact provider-result TTL (ms). Overrides the policy default and
* the DSL-declared ttl behavior for that fact.
*/
setFactTTL(relation, ms) {
this.factTTLs.set(relation, ms);
return this;
}
/** The effective provider-result TTL (ms) for a fact: DSL > per-fact > policy default. */
_ttlFor(relation) {
if (this.factTTLs.has(relation)) return this.factTTLs.get(relation);
const meta = this.relations.get(relation);
if (meta && meta.ttlMs != null) return meta.ttlMs;
return this.defaultProviderCacheTTL;
}
/**
* Invalidate cached provider results all, or for a single relation.
* Callers use this when the underlying data store changes out-of-band.
*/
invalidateProviderCache(relation) {
if (relation === undefined) {
this.providerCache.clear();
return this;
}
const prefix = `${relation}\u0000`;
for (const key of [...this.providerCache.keys()]) {
if (key.startsWith(prefix)) this.providerCache.delete(key);
}
return this;
}
_providerCacheKey(relation, subject, object) {
return `${relation}\u0000${subject}\u0000${object}`;
}
_providerCacheGet(relation, subject, object) {
const ttl = this._ttlFor(relation);
if (ttl <= 0) return null;
const entry = this.providerCache.get(this._providerCacheKey(relation, subject, object));
if (!entry) return null;
if (this.clock() - entry.fetchedAt >= ttl) {
this.providerCache.delete(this._providerCacheKey(relation, subject, object));
return null;
}
return entry;
}
_providerCacheSet(relation, subject, object, edges) {
const ttl = this._ttlFor(relation);
if (ttl <= 0) return;
this.providerCache.set(this._providerCacheKey(relation, subject, object), {
edges,
fetchedAt: this.clock()
});
}
/** Convert a DSL `BEHAVES { ttl <duration> }` behavior (or `BEHAVES AS`) into ms. */
_ttlFromBehavior(behavior) {
if (!behavior || typeof behavior !== 'object') return null;
const b = behavior.behavior || behavior;
if (b && b.behaviorType === 'ttl' && b.duration) {
const n = parseInt(String(b.duration.value), 10);
const mult = { s: 1000, m: 60_000, h: 3600_000, d: 86_400_000, w: 604_800_000 }[b.duration.unit];
if (!Number.isNaN(n) && mult) return n * mult;
}
return null;
}
/**
* Normalize a provider result (boolean / number / { possibility, value } /
* array of edge objects) into an array of partial-graph edge objects. The
* destination follows the DSL fact's declared shape: unary and value-carrying
* facts are self-edges on the subject; binary entity facts go subject object.
* Provider-returned edges are validated against the fact's declared typing:
* a value-carrying fact must return an object with a value of the declared
* type, and possibilities must be in [0, 1]. A violation throws it is a
* provider-authoring error, not a denial.
*/
_normalizeProviderEdges(result, factMeta, fact, user, object) {
const edges = Array.isArray(result) ? result : [result];
const secondParamType = factMeta.params[1] && factMeta.params[1].type;
const isValueFact = factMeta.params.length >= 2 && this._isValueType(secondParamType);
const defaultDst = isValueFact ? user : (factMeta.params.length >= 2 ? object : user);
const label = `provider for '${fact}'`;
const out = [];
for (const edge of edges) {
const normalized = typeof edge === 'boolean' || typeof edge === 'number'
? (() => {
if (isValueFact) {
throw new Error(`DSLRuntime: ${label} is a value-carrying fact — return { value, possibility } (got a bare ${typeof edge === 'number' ? 'number' : 'boolean'})`);
}
const possibility = edge === true ? 1 : edge;
this._checkPossibility(possibility, label);
return { src: user, dst: defaultDst, possibility };
})()
: (() => {
const possibility = edge.possibility ?? 1;
this._checkPossibility(possibility, label);
if (edge.value !== undefined) {
if (!isValueFact) {
throw new Error(`DSLRuntime: ${label} returned a value for a non-value fact '${fact}'`);
}
this._checkScalarValue(secondParamType, edge.value, `${label}.value`);
} else if (isValueFact) {
throw new Error(`DSLRuntime: ${label} must supply a 'value' of type ${secondParamType}`);
}
return {
...(edge.relation ? { relation: edge.relation } : {}),
src: edge.src ?? user,
dst: edge.dst ?? defaultDst,
possibility,
...(edge.value !== undefined ? { value: edge.value } : {}),
...(edge.reliability !== undefined ? { reliability: edge.reliability } : {})
};
})();
out.push(normalized);
}
return out;
}
_checkPossibility(possibility, label) {
if (typeof possibility !== 'number' || !Number.isFinite(possibility) || possibility < 0 || possibility > 1) {
throw new Error(`DSLRuntime: ${label} returned invalid possibility ${possibility} (expected a number in [0, 1])`);
}
}
// ---------------------------------------------------------------------------
// Schema validation helpers
// ---------------------------------------------------------------------------
_isPrimitive(typeName) {
return PRIMITIVE_TYPES.has(typeName);
_isValueType(typeName) {
return VALUE_TYPES.has(typeName);
}
_nodeType(key) {
@@ -158,7 +389,7 @@ export class DSLRuntime {
}
_checkNodeType(key, expectedType, position) {
if (this._isPrimitive(expectedType)) return; // value positions are validated separately
if (this._isValueType(expectedType)) return; // value positions are validated separately
const actual = this._nodeType(key);
if (actual === null) {
this._checkNodeExists(key, position);
@@ -184,7 +415,9 @@ export class DSLRuntime {
const ok = type === 'string' ? typeof value === 'string'
: type === 'number' ? typeof value === 'number'
: type === 'boolean' ? typeof value === 'boolean'
: true; // entity-typed fields accept any key
: (type === 'timestamp' || type === 'duration')
? (typeof value === 'number' || typeof value === 'string')
: true; // object / any / entity-typed fields accept any value
if (!ok) {
throw new Error(`DSLRuntime: field '${path}' must be ${type}, got ${typeof value}`);
}
@@ -202,11 +435,18 @@ export class DSLRuntime {
if (this.types.has(typeName)) {
const { fields } = this.types.get(typeName);
for (const [name, field] of fields) {
// Required fields must be present on insert (`field: type` in the DSL;
// `field?: type` marks a field optional).
if (field.required && data[name] === undefined) {
throw new Error(`DSLRuntime: missing required field '${typeName}.${name}' on node insert`);
}
if (data[name] !== undefined) this._checkFieldValue(field, data[name], `${typeName}.${name}`);
}
} else if (this.strictTypes) {
throw new Error(`DSLRuntime: unknown type '${typeName}'`);
}
// A graph mutation can make previously-retrieved facts stale.
this.invalidateProviderCache();
return this.arbiter.addNode(key, typeName, data);
}
@@ -221,9 +461,19 @@ export class DSLRuntime {
if (data[name] !== undefined) this._checkFieldValue(field, data[name], `${typeName}.${name}`);
}
}
this.invalidateProviderCache();
return this.arbiter.updateNodeData(key, data);
}
/** Remove a node (passthrough to the arbiter's node manager). */
removeNode(key) {
this.invalidateProviderCache();
if (this.arbiter.nodeManager && typeof this.arbiter.nodeManager.removeNode === 'function') {
return this.arbiter.nodeManager.removeNode(key);
}
return this.arbiter.removeNode?.(key);
}
_relationOrThrow(relation) {
const meta = this.relations.get(relation);
if (!meta) {
@@ -243,6 +493,7 @@ export class DSLRuntime {
if (meta) {
this._validateRelationEndpoints(relation, meta, src, dst, attrs);
}
this.invalidateProviderCache();
return this.arbiter.addRelation(src, relation, dst, attrs);
}
@@ -254,10 +505,17 @@ export class DSLRuntime {
if (meta) {
this._validateRelationEndpoints(relation, meta, src, dst, attrs);
}
this.invalidateProviderCache();
this.arbiter.removeRelation(src, relation, dst);
return this.arbiter.addRelation(src, relation, dst, attrs);
}
/** Remove a relation edge (passthrough to the arbiter). */
removeRelation(src, relation, dst) {
this.invalidateProviderCache();
return this.arbiter.removeRelation(src, relation, dst);
}
_validateRelationEndpoints(relation, meta, src, dst, attrs) {
const params = meta.params;
if (params.length === 0) {
@@ -265,14 +523,14 @@ export class DSLRuntime {
}
// First param is always the subject (entity).
const subjectType = params[0].type;
if (this._isPrimitive(subjectType)) {
if (this._isValueType(subjectType)) {
throw new Error(`DSLRuntime: relation '${relation}' subject param must be an entity type, got '${subjectType}'`);
}
this._checkNodeType(src, subjectType, 'subject');
if (params.length >= 2) {
const secondType = params[1].type;
if (this._isPrimitive(secondType)) {
if (this._isValueType(secondType)) {
// Value-carrying fact (e.g. session(user, token: string)): the value
// lives on the edge's `value` field; the graph edge is a self-edge on
// the subject so the value is discoverable by value extraction.
@@ -313,6 +571,13 @@ export class DSLRuntime {
* evidence's injectable facts, inject them into a partial graph, and delegate
* to the arbiter.
*
* Providers run in a bounded fixed-point loop: each round invokes the
* provider for every required fact whose edges are not yet in the partial
* graph. Because a provider may return edges for relations other than its
* own name, an edge injected in one round can satisfy another required fact
* (or unblock another provider) in a later round. The loop stops when a
* round injects no new relation or the round budget is exhausted.
*
* @param {string} user - subject key
* @param {string} relation - evidence (or fact) relation name
* @param {string} object - object key
@@ -320,71 +585,110 @@ export class DSLRuntime {
* @param {object} options.partialGraph - caller-supplied partial graph edges
* ({ relations: [{ src, relation, dst, possibility, value }], nodes, challenges })
* @param {object} options.factProviders - per-call provider overrides
* (merged over registered providers)
* @param {number} options.maxProviderRounds - fixed-point loop budget (default 3)
* @returns {object} core check result extended with { requiredFacts, providedFacts, missingFacts }
*/
async check(user, relation, object, options = {}) {
const meta = this.relations.get(relation);
if (!meta) {
if (this.strictTypes) throw new Error(`DSLRuntime: unknown relation '${relation}'`);
} else if (meta.kind === 'evidence') {
if (meta.params.length === 2) {
} else if (meta.params.length === 2) {
this._checkNodeType(user, meta.params[0].type, 'subject');
this._checkNodeType(object, meta.params[1].type, 'object');
}
} else if (meta.params.length === 1) {
this._checkNodeType(user, meta.params[0].type, 'subject');
}
const required = this.requiredFacts(relation);
const providers = options.factProviders || this.factProviders;
const injectedRelations = [];
const missingFacts = [];
// Retrieval set: for an evidence, the injectable facts it depends on; for
// a direct FACT check, the fact itself is the retrieval target (its
// provider, if registered, supplies the edge — checking `owns` directly
// must consult the `owns` provider, not only evidence-mediated checks).
const required = new Set(this.requiredFacts(relation));
if (meta && meta.kind === 'fact') required.add(relation);
const requiredList = [...required];
const providers = { ...this.factProviders, ...(options.factProviders || {}) };
const maxRounds = options.maxProviderRounds ?? 3;
const partialRelations = [];
const injectedRelations = []; // { relation, edges, round }
const missingFacts = [];
const satisfied = new Set(); // facts whose edges are in the partial graph
if (options.partialGraph && Array.isArray(options.partialGraph.relations)) {
partialRelations.push(...options.partialGraph.relations);
for (const rel of options.partialGraph.relations) {
partialRelations.push(rel);
if (rel && rel.relation) satisfied.add(rel.relation);
}
}
for (const fact of required) {
// Fixed-point provider retrieval loop.
for (let round = 1; round <= maxRounds; round++) {
let newRelationsThisRound = 0;
for (const fact of requiredList) {
if (satisfied.has(fact)) continue;
const factMeta = this.relations.get(fact);
const provider = providers[fact];
// Provider-result cache: reuse fresh edges without re-invoking the
// data store. A cached entry stores the NORMALIZED edges. Per-check
// provider overrides are one-off observations — they bypass the cache
// entirely (no read, no write) so a fresh override is never masked by
// a cached registered-provider result, nor does it pollute the cache.
// options.cacheProviderResults:false (or the policy default) disables
// the cache for this check.
const cachingEnabled = options.cacheProviderResults ?? this.cacheProviderResults;
const isPerCheckOverride = !!(options.factProviders && fact in options.factProviders);
const cacheHit = (cachingEnabled && !isPerCheckOverride) ? this._providerCacheGet(fact, user, object) : null;
let edges = null;
let fromCache = false;
if (cacheHit) {
edges = cacheHit.edges;
fromCache = true;
} else if (typeof provider === 'function') {
let result = null;
let error = null;
if (typeof provider === 'function') {
try {
result = await provider(user, object, { relation: fact, params: factMeta.params, runtime: this, options });
result = await provider(user, object, {
relation: fact,
params: factMeta.params,
runtime: this,
options,
round,
alreadyInjected: [...satisfied]
});
} catch (err) {
error = err;
}
}
if (error) {
missingFacts.push({ relation: fact, reason: error.message });
satisfied.add(fact);
continue;
}
if (result === false || result === null || result === undefined) {
missingFacts.push({ relation: fact, reason: 'not_provided' });
satisfied.add(fact);
continue;
}
const edges = Array.isArray(result) ? result : [result];
// Resolve the edge destination the same way the DSL declares the fact:
// - unary fact (1 param) -> self-edge on the subject
// - value fact (2nd param value) -> self-edge on the subject carrying the value
// - binary entity fact -> subject → object
const secondParamType = factMeta.params[1] && factMeta.params[1].type;
const defaultDst = factMeta.params.length >= 2 && this._isPrimitive(secondParamType)
? user
: (factMeta.params.length >= 2 ? object : user);
for (const edge of edges) {
const normalized = typeof edge === 'boolean' || typeof edge === 'number'
? { src: user, dst: defaultDst, possibility: edge === true ? 1 : edge }
: {
src: edge.src ?? user,
dst: edge.dst ?? defaultDst,
possibility: edge.possibility ?? 1,
...(edge.value !== undefined ? { value: edge.value } : {}),
...(edge.reliability !== undefined ? { reliability: edge.reliability } : {})
};
partialRelations.push({ relation: fact, ...normalized });
edges = this._normalizeProviderEdges(result, factMeta, fact, user, object);
if (cachingEnabled && !isPerCheckOverride) this._providerCacheSet(fact, user, object, edges);
} else {
missingFacts.push({ relation: fact, reason: 'no_provider' });
satisfied.add(fact);
continue;
}
injectedRelations.push({ relation: fact, edges: edges.length });
// A provider may return edges for relations other than its own; the
// injected relation names satisfy those facts too (fixed point).
for (const normalized of edges) {
const injectedRelation = normalized.relation ?? fact;
partialRelations.push({ relation: injectedRelation, ...normalized });
satisfied.add(injectedRelation);
}
injectedRelations.push({ relation: fact, edges: edges.length, round, cacheHit: fromCache });
newRelationsThisRound += edges.length;
satisfied.add(fact);
}
if (newRelationsThisRound === 0) break;
}
const checkOptions = { ...options };
@@ -399,9 +703,24 @@ export class DSLRuntime {
return {
...result,
requiredFacts: required,
requiredFacts: requiredList,
providedFacts: injectedRelations.map(r => r.relation),
missingFacts
};
}
/**
* Check and throw on denial convenience for middleware / guards.
* @returns {object} the check result on success.
* @throws {Error} with `.result` attached when the decision denies.
*/
async require(user, relation, object, options = {}) {
const result = await this.check(user, relation, object, options);
if (result.possibility <= 0) {
const error = new Error(`DSLRuntime: authorization denied for '${relation}' (${result.reason || 'denied'})`);
error.result = result;
throw error;
}
return result;
}
}
+28
View File
@@ -98,4 +98,32 @@ describe('Chain condition step (logical evidence as final hop)', () => {
// max over paths: min(0.5,0.7)=0.5, min(1.0,0.8)=0.8 -> 0.8
assert.equal(arb.check('u:1', 'can_via', 'doc:9').possibility, 0.8);
});
it('expands an INTERMEDIATE condition step via rule-based reachability', () => {
const { arb, result } = compile(`
definition Employee { id: string }
definition Doc { id: string }
fact peer(user: Employee, other: Employee)
fact trusted(other: Employee)
fact can_read(user: Employee, doc: Doc)
evidence peer_trusted(user: Employee, other: Employee) { WHEN peer(user, other) UNLESS trusted(other) }
evidence can_access(user: Employee, doc: Doc) { peer_trusted(user, *p) { can_read(p, doc) } }
`);
assert.ok(result.success, JSON.stringify(result.errors));
const steps = arb.relationConfigs.get('can_access').steps;
assert.equal(steps[0].conditionStep, true);
assert.equal(steps[0].rule.type, 'logical');
arb.addNode('u:1', 'Employee'); arb.addNode('p:1', 'Employee'); arb.addNode('p:2', 'Employee'); arb.addNode('doc:9', 'Doc');
arb.addRelation('u:1', 'peer', 'p:1', { possibility: 1.0 });
arb.addRelation('u:1', 'peer', 'p:2', { possibility: 1.0 });
arb.addRelation('p:1', 'trusted', 'p:1', { possibility: 1.0 }); // p:1 filtered
arb.addRelation('p:1', 'can_read', 'doc:9', { possibility: 0.9 });
arb.addRelation('p:2', 'can_read', 'doc:9', { possibility: 0.7 });
// only untrusted peer p:2 survives the intermediate condition -> 0.7
assert.equal(arb.check('u:1', 'can_access', 'doc:9').possibility, 0.7);
// trusting p:2 too removes all intermediates -> 0
arb.addRelation('p:2', 'trusted', 'p:2', { possibility: 1.0 });
assert.equal(arb.check('u:1', 'can_access', 'doc:9').possibility, 0);
});
});
+8 -8
View File
@@ -20,9 +20,9 @@ import { Arbiter } from '@arbiter/core';
import { DSLRuntime } from '../src/runtime/DSLRuntime.js';
const BASE_DSL = `
definition Employee { id: string level: number active: boolean }
definition Group { id: string }
definition Doc { id: string }
definition Employee { id: string? level: number? active: boolean? }
definition Group { id: string? }
definition Doc { id: string? }
fact member_of(user: Employee, group: Group)
fact *owns(user: Employee, doc: Doc)
fact *user_score(user: Employee, value: number)
@@ -164,8 +164,8 @@ describe('DSLRuntime', () => {
it('derives transitive required facts through evidence composition', async () => {
const dsl = `
definition Employee { id: string }
definition Doc { id: string }
definition Employee { id: string? }
definition Doc { id: string? }
fact *owns(user: Employee, doc: Doc)
fact *banned(user: Employee)
evidence can_read(user: Employee, doc: Doc) { owns(user, doc) }
@@ -191,9 +191,9 @@ describe('DSLRuntime', () => {
it('derives transitive required facts through a condition-step chain', () => {
const dsl = `
definition Employee { id: string }
definition Group { id: string }
definition Doc { id: string }
definition Employee { id: string? }
definition Group { id: string? }
definition Doc { id: string? }
fact *member_of(user: Employee, group: Group)
fact *can_view(group: Group, doc: Doc)
fact *banned(group: Group)
+203
View File
@@ -0,0 +1,203 @@
/**
* tests/DSLRuntimeCache.test.js provider-result caching with time expiry.
*
* Registered providers retrieve missing facts from a data store; caching the
* retrieval avoids hammering the store on repeated checks. TTL resolution:
* DSL-declared `BEHAVES { ttl <duration> }` on a fact > per-fact setFactTTL >
* policy default (30s). Per-check factProviders are cache-transparent (one-off
* observations: no cache read, no cache write). Registering a provider or
* mutating the graph invalidates the cache.
*/
import { describe, it } from 'node:test';
import assert from 'node:assert/strict';
import { Arbiter } from '@arbiter/core';
import { DSLRuntime } from '../src/runtime/DSLRuntime.js';
const BASE_DSL = `
definition Employee { id: string? }
definition Doc { id: string? }
fact *owns(user: Employee, doc: Doc)
evidence can_read(user: Employee, doc: Doc) { owns(user, doc) }
`;
function makeRuntime(options = {}) {
let t = 0;
const clock = () => t;
const rt = new DSLRuntime(new Arbiter(), { clock, ...options }).compile(BASE_DSL, 'rt-cache');
rt._test_advance = (ms) => { t += ms; };
return rt;
}
describe('DSLRuntime provider-result caching', () => {
it('reuses a registered provider result within the TTL', async () => {
const rt = makeRuntime();
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
let calls = 0;
rt.registerFact('owns', async () => { calls++; return 0.9; });
await rt.check('u:1', 'can_read', 'doc:9');
await rt.check('u:1', 'can_read', 'doc:9');
assert.equal(calls, 1, 'provider should be invoked once within TTL');
});
it('re-invokes the provider after the TTL expires', async () => {
const rt = makeRuntime();
rt.setFactTTL('owns', 100);
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
let calls = 0;
let value = 0.9;
rt.registerFact('owns', async () => { calls++; return value; });
const first = await rt.check('u:1', 'can_read', 'doc:9');
assert.equal(first.possibility, 0.9);
rt._test_advance(50);
await rt.check('u:1', 'can_read', 'doc:9'); // within TTL -> cached
assert.equal(calls, 1);
rt._test_advance(60); // past TTL (110 total)
value = 0.4;
const after = await rt.check('u:1', 'can_read', 'doc:9');
assert.equal(calls, 2);
assert.equal(after.possibility, 0.4);
});
it('per-check factProviders override the cache (fresh observation)', async () => {
const rt = makeRuntime();
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
rt.registerFact('owns', async () => 0.9);
await rt.check('u:1', 'can_read', 'doc:9');
// Per-check override is cache-transparent: it must NOT be masked by the
// cached 0.9, and it must NOT overwrite the cached value.
const over = await rt.check('u:1', 'can_read', 'doc:9', {
factProviders: { owns: async () => 0.2 }
});
assert.equal(over.possibility, 0.2);
const next = await rt.check('u:1', 'can_read', 'doc:9');
assert.equal(next.possibility, 0.9, 'registered provider cache untouched by per-check override');
});
it('registerFact invalidates the cached result for that relation', async () => {
const rt = makeRuntime();
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
rt.registerFact('owns', async () => 0.9);
await rt.check('u:1', 'can_read', 'doc:9');
rt.registerFact('owns', async () => 0.3); // re-register -> cache invalidated
const res = await rt.check('u:1', 'can_read', 'doc:9');
assert.equal(res.possibility, 0.3);
});
it('invalidates cached results on graph mutations', async () => {
const rt = makeRuntime();
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
let calls = 0;
rt.registerFact('owns', async () => { calls++; return 0.9; });
await rt.check('u:1', 'can_read', 'doc:9');
assert.equal(calls, 1);
rt.addRelation('u:1', 'owns', 'doc:9', { possibility: 1.0 }); // mutation clears cache
const res = await rt.check('u:1', 'can_read', 'doc:9');
assert.equal(calls, 2, 'graph mutation should invalidate the provider cache');
});
it('invalidateProviderCache() clears all or per relation', async () => {
const dsl = `
definition Employee { id: string? }
definition Doc { id: string? }
fact *owns(user: Employee, doc: Doc)
fact *banned(user: Employee)
evidence can_read(user: Employee, doc: Doc) { owns(user, doc) }
evidence can_open(user: Employee, doc: Doc) { WHEN can_read(user, doc) UNLESS banned(user) }
`;
const rt = new DSLRuntime(new Arbiter()).compile(dsl, 'rt-cache2');
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
let ownsCalls = 0, bannedCalls = 0;
rt.registerFact('owns', async () => { ownsCalls++; return 0.9; });
rt.registerFact('banned', async () => { bannedCalls++; return 0; });
await rt.check('u:1', 'can_open', 'doc:9');
assert.equal(ownsCalls, 1);
assert.equal(bannedCalls, 1);
// Invalidate a non-dependency relation: can_open's cache (owns+banned) survives.
rt.invalidateProviderCache('does_not_exist');
await rt.check('u:1', 'can_open', 'doc:9');
assert.equal(ownsCalls, 1);
assert.equal(bannedCalls, 1);
// Invalidate owns only: banned survives, owns re-fetched.
rt.invalidateProviderCache('owns');
await rt.check('u:1', 'can_open', 'doc:9');
assert.equal(ownsCalls, 2, 'owns cache cleared by per-relation invalidation');
assert.equal(bannedCalls, 1, 'banned cache survives per-relation invalidation');
// Clear all.
rt.invalidateProviderCache();
await rt.check('u:1', 'can_open', 'doc:9');
assert.equal(bannedCalls, 2, 'full invalidation clears every relation');
});
it('policy default TTL applies when no per-fact TTL is set', async () => {
const rt = makeRuntime({ policy: { providerCacheTTL: 50 } });
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
let calls = 0;
rt.registerFact('owns', async () => { calls++; return 0.9; });
await rt.check('u:1', 'can_read', 'doc:9');
rt._test_advance(40);
await rt.check('u:1', 'can_read', 'doc:9');
assert.equal(calls, 1, 'within 50ms policy TTL -> cached');
rt._test_advance(20);
await rt.check('u:1', 'can_read', 'doc:9');
assert.equal(calls, 2, 'past 50ms policy TTL -> re-invoked');
});
it('uses the DSL-declared fact TTL (BEHAVES { ttl X })', async () => {
const dsl = `
definition Employee { id: string? }
definition Doc { id: string? }
fact *balance(user: Employee, amount: number) BEHAVES { ttl 1h }
evidence can_spend(user: Employee, doc: Doc) { balance(user, 1) }
`;
let t = 0;
const rt = new DSLRuntime(new Arbiter(), { clock: () => t }).compile(dsl, 'rt-dsl-ttl');
// The DSL declares a 1h TTL for the balance fact.
assert.equal(rt.relations.get('balance').ttlMs, 3600_000);
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
let calls = 0;
rt.registerFact('balance', async () => { calls++; return { possibility: 1.0, value: 50 }; });
await rt.check('u:1', 'can_spend', 'doc:9');
assert.equal(calls, 1);
t += 60 * 60 * 1000 - 1; // just under 1h
await rt.check('u:1', 'can_spend', 'doc:9');
assert.equal(calls, 1, 'cached within DSL-declared 1h TTL');
t += 2;
await rt.check('u:1', 'can_spend', 'doc:9');
assert.equal(calls, 2, 're-invoked past the DSL-declared 1h TTL');
});
it('cacheProviderResults:false bypasses the cache per check', async () => {
const rt = makeRuntime();
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
let calls = 0;
rt.registerFact('owns', async () => { calls++; return 0.9; });
await rt.check('u:1', 'can_read', 'doc:9');
assert.equal(calls, 1);
// Bypass forces a fresh retrieval without clearing the cache.
await rt.check('u:1', 'can_read', 'doc:9', { cacheProviderResults: false });
assert.equal(calls, 2);
// Cache still intact for the next default check.
await rt.check('u:1', 'can_read', 'doc:9');
assert.equal(calls, 2);
});
it('policy.cacheProviderResults:false disables caching globally', async () => {
const rt = makeRuntime({ policy: { cacheProviderResults: false } });
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
let calls = 0;
rt.registerFact('owns', async () => { calls++; return 0.9; });
await rt.check('u:1', 'can_read', 'doc:9');
await rt.check('u:1', 'can_read', 'doc:9');
assert.equal(calls, 2, 'no caching when disabled globally');
});
});
+168
View File
@@ -0,0 +1,168 @@
/**
* tests/DSLRuntimeExt.test.js extended DSLRuntime capabilities:
* - schema introspection (getSchema)
* - per-relation provider registration (registerFact/unregisterFact)
* - provider merging (registered + per-check overrides)
* - bounded fixed-point provider retrieval loop (edges satisfy other facts)
* - require() throw-on-deny
* - removal passthroughs and fact-relation check validation
* - timestamp/duration field typing
*/
import { describe, it } from 'node:test';
import assert from 'node:assert/strict';
import { Arbiter } from '@arbiter/core';
import { DSLRuntime } from '../src/runtime/DSLRuntime.js';
const BASE_DSL = `
definition Employee { id: string? level: number? active: boolean? }
definition Doc { id: string? created: timestamp? }
fact *owns(user: Employee, doc: Doc)
fact *banned(user: Employee)
evidence can_read(user: Employee, doc: Doc) { owns(user, doc) }
evidence can_open(user: Employee, doc: Doc) { WHEN can_read(user, doc) UNLESS banned(user) }
`;
function makeRuntime() {
return new DSLRuntime(new Arbiter()).compile(BASE_DSL, 'rt-ext');
}
describe('DSLRuntime extended', () => {
it('exposes a serializable schema snapshot', () => {
const rt = makeRuntime();
const schema = rt.getSchema();
assert.ok(Array.isArray(schema.types));
const employee = schema.types.find(t => t.name === 'Employee');
assert.ok(employee);
assert.ok(employee.fields.some(f => f.name === 'level' && f.type === 'number'));
const owns = schema.facts.find(f => f.name === 'owns');
assert.equal(owns.injectable, true);
assert.equal(owns.params[1].type, 'Doc');
const can_open = schema.evidence.find(e => e.name === 'can_open');
assert.ok(can_open.dependsOn.includes('owns'));
assert.deepEqual(schema.providers, []);
assert.ok(rt.relationNames().includes('owns') && rt.relationNames().includes('can_read'));
});
it('registers, lists, and unregisters per-relation providers', () => {
const rt = makeRuntime();
rt.registerFact('owns', async () => 0.8);
assert.deepEqual(rt.registeredFacts(), ['owns']);
rt.registerFact('banned', async () => 0);
assert.deepEqual(rt.registeredFacts().sort(), ['banned', 'owns']);
rt.unregisterFact('banned');
assert.deepEqual(rt.registeredFacts(), ['owns']);
assert.throws(() => rt.registerFact('owns', 'not a function'), /must be a function/);
});
it('merges registered providers with per-check overrides', async () => {
const rt = makeRuntime();
rt.registerFact('owns', async () => 0.5);
rt.registerFact('banned', async () => 0);
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
// registered owns (0.5) wins over nothing; per-check banned overrides
const res = await rt.check('u:1', 'can_open', 'doc:9', {
factProviders: { banned: async () => 0 }
});
assert.equal(res.possibility, 0.5);
assert.deepEqual(res.providedFacts.sort(), ['banned', 'owns']);
});
it('runs providers to a fixed point when edges satisfy other required facts', async () => {
// can_open needs owns (injectable). A registered owns provider returns an
// edge for a DIFFERENT injectable fact that can_open also requires via
// composition — here we add a transitive requirement to prove the loop.
const dsl = `
definition Employee { id: string? }
definition Doc { id: string? }
fact *owns(user: Employee, doc: Doc)
fact *granted(user: Employee, doc: Doc)
evidence base_read(user: Employee, doc: Doc) { owns(user, doc) }
evidence can_open(user: Employee, doc: Doc) { WHEN base_read(user, doc) UNLESS granted(user, doc) }
`;
const rt = new DSLRuntime(new Arbiter()).compile(dsl, 'rt-loop');
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
let ownsCalls = 0;
let grantedCalls = 0;
rt.registerFact('owns', async () => {
ownsCalls++;
// First round the owns provider also supplies the granted edge (a
// fixed-point dependency: granted needs owns to have been retrieved).
return [
{ src: 'u:1', relation: 'owns', dst: 'doc:9', possibility: 0.9 },
{ src: 'u:1', relation: 'granted', dst: 'doc:9', possibility: 0 }
];
});
rt.registerFact('granted', async () => { grantedCalls++; return 0; });
const res = await rt.check('u:1', 'can_open', 'doc:9', { maxProviderRounds: 3 });
assert.equal(res.possibility, 0.9);
// granted was satisfied by the owns provider's extra edge, so its own
// provider was never needed in a later round.
assert.equal(grantedCalls, 0);
assert.ok(ownsCalls >= 1);
assert.deepEqual(res.providedFacts, ['owns']);
assert.deepEqual(res.missingFacts, []);
});
it('require() throws on denial and returns the result on grant', async () => {
const rt = makeRuntime();
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
rt.registerFact('owns', async () => 0.9);
const ok = await rt.require('u:1', 'can_read', 'doc:9');
assert.equal(ok.possibility, 0.9);
rt.registerFact('owns', async () => 0);
await assert.rejects(
() => rt.require('u:1', 'can_read', 'doc:9'),
(err) => err.result && err.result.possibility === 0 && /denied/.test(err.message)
);
});
it('passes through node/relation removal', () => {
const rt = makeRuntime();
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
rt.addRelation('u:1', 'owns', 'doc:9', { possibility: 1.0 });
rt.removeRelation('u:1', 'owns', 'doc:9');
assert.equal(rt.arbiter.check('u:1', 'owns', 'doc:9').possibility, 0);
rt.removeNode('u:1');
assert.equal(rt.arbiter.nodeIdByKey.has('u:1'), false);
});
it('validates fact-relation check endpoints like evidence', async () => {
const rt = makeRuntime();
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
// can_read is evidence; owns is a fact — checking a fact still validates.
await assert.rejects(() => rt.check('u:1', 'owns', 'u:1', {}), /expected 'Doc'/);
});
it('accepts timestamp field values and rejects mistyped ones', () => {
const rt = makeRuntime();
rt.addNode('doc:9', 'Doc', { created: 1720000000000 });
rt.updateNodeData('doc:9', { created: '2026-08-03T00:00:00Z' });
assert.throws(() => rt.addNode('doc:8', 'Doc', { created: {} }), /must be timestamp/);
});
it('direct FACT checks consult the registered provider', async () => {
const rt = makeRuntime();
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
let calls = 0;
rt.registerFact('owns', async () => { calls++; return 0.9; });
// Checking the fact directly (not via an evidence) must retrieve it.
const res = await rt.check('u:1', 'owns', 'doc:9');
assert.equal(res.possibility, 0.9);
assert.equal(calls, 1);
assert.deepEqual(res.requiredFacts, ['owns']);
assert.deepEqual(res.providedFacts, ['owns']);
// Without a provider and without an edge, it reports the missing fact.
const rt2 = new DSLRuntime(new Arbiter()).compile(BASE_DSL, 'rt-fact-miss');
rt2.addNode('u:1', 'Employee', {});
rt2.addNode('doc:9', 'Doc', {});
const missed = await rt2.check('u:1', 'owns', 'doc:9');
assert.equal(missed.possibility, 0);
assert.deepEqual(missed.missingFacts, [{ relation: 'owns', reason: 'no_provider' }]);
});
});
+96
View File
@@ -0,0 +1,96 @@
/**
* tests/DSLRuntimeTyping.test.js duration seconds, required fields, and
* type validation of insertions / updates / provider retrievals.
*
* - Duration literals now accept s/m/h/d/w: `BEHAVES { ttl 30s }` is 30s.
* - Definition fields are REQUIRED by default (`field: type`); `field: type?`
* marks a field optional. addNode enforces presence on insert.
* - Provider-returned edges are validated against the fact's declared typing:
* a value-carrying fact must return { value, possibility } with a value of
* the declared type, and possibilities must lie in [0, 1].
*/
import { describe, it } from 'node:test';
import assert from 'node:assert/strict';
import { Arbiter } from '@arbiter/core';
import { DSLRuntime } from '../src/runtime/DSLRuntime.js';
describe('DSLRuntime typing', () => {
it('accepts seconds/minutes/hours/days/weeks in duration literals', async () => {
const dsl = `
definition Employee { id: string? }
definition Doc { id: string? }
fact *a(user: Employee, amount: number) BEHAVES { ttl 30s }
fact *b(user: Employee, amount: number) BEHAVES { ttl 2m }
fact *c(user: Employee, amount: number) BEHAVES { ttl 1h }
fact *d(user: Employee, amount: number) BEHAVES { ttl 3d }
fact *e(user: Employee, amount: number) BEHAVES { ttl 1w }
`;
const rt = new DSLRuntime(new Arbiter()).compile(dsl, 'rt-units');
assert.equal(rt.relations.get('a').ttlMs, 30_000);
assert.equal(rt.relations.get('b').ttlMs, 120_000);
assert.equal(rt.relations.get('c').ttlMs, 3_600_000);
assert.equal(rt.relations.get('d').ttlMs, 259_200_000);
assert.equal(rt.relations.get('e').ttlMs, 604_800_000);
});
it('enforces required definition fields on node insert', () => {
const rt = new DSLRuntime(new Arbiter()).compile(`
definition Employee { id: string level: number active: boolean? }
`, 'rt-req');
// id and level are required (no `?`); active is optional.
assert.throws(() => rt.addNode('u:1', 'Employee', { level: 3 }), /missing required field 'Employee.id'/);
assert.throws(() => rt.addNode('u:2', 'Employee', { id: 'u:2' }), /missing required field 'Employee.level'/);
rt.addNode('u:3', 'Employee', { id: 'u:3', level: 5 }); // both required, no active -> ok
rt.addNode('u:4', 'Employee', { id: 'u:4', level: 5, active: true });
});
it('exposes requiredness in the schema snapshot', () => {
const rt = new DSLRuntime(new Arbiter()).compile(`
definition Employee { id: string level: number? }
`, 'rt-schema-req');
const employee = rt.getSchema().types.find(t => t.name === 'Employee');
assert.equal(employee.fields.find(f => f.name === 'id').required, true);
assert.equal(employee.fields.find(f => f.name === 'level').required, false);
});
it('validates a provider-returned value against the declared value type', async () => {
const rt = new DSLRuntime(new Arbiter()).compile(`
definition Employee { id: string? }
definition Doc { id: string? }
fact *balance(user: Employee, amount: number)
evidence can_spend(user: Employee, doc: Doc) { balance(user, 1) }
`, 'rt-valuetype');
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
rt.registerFact('balance', async () => ({ possibility: 1.0, value: 'high' }));
await assert.rejects(() => rt.check('u:1', 'can_spend', 'doc:9'), /must be number/);
});
it('requires a value for a value-carrying fact (no bare-number shorthand)', async () => {
const rt = new DSLRuntime(new Arbiter()).compile(`
definition Employee { id: string? }
definition Doc { id: string? }
fact *balance(user: Employee, amount: number)
evidence can_spend(user: Employee, doc: Doc) { balance(user, 1) }
`, 'rt-valshape');
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
rt.registerFact('balance', async () => 0.9);
await assert.rejects(() => rt.check('u:1', 'can_spend', 'doc:9'), /value-carrying fact/);
rt.registerFact('balance', async () => ({ possibility: 1.0 })); // missing value
await assert.rejects(() => rt.check('u:1', 'can_spend', 'doc:9'), /must supply a 'value'/);
});
it('rejects a provider-returned possibility outside [0, 1]', async () => {
const rt = new DSLRuntime(new Arbiter()).compile(`
definition Employee { id: string? }
definition Doc { id: string? }
fact *owns(user: Employee, doc: Doc)
evidence can_read(user: Employee, doc: Doc) { owns(user, doc) }
`, 'rt-poss');
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
rt.registerFact('owns', async () => ({ possibility: 2.0 }));
await assert.rejects(() => rt.check('u:1', 'can_read', 'doc:9'), /invalid possibility/);
});
});
+27 -2
View File
@@ -33,8 +33,11 @@ const FACTS = `
fact owner(group: Group, doc: Doc)
fact granted(user: Employee, doc: Doc)
fact group_perm(group: Group, doc: Doc)
fact banned(user: Employee)
fact group_banned(group: Group)
fact banned(user: Employee)
fact peer(user: Employee, other: Employee)
fact trusted(other: Employee)
fact doc_read(user: Employee, doc: Doc)
fact mfa(user: Employee)
`;
@@ -142,6 +145,20 @@ function buildProgram(kind, ps) {
oracle = Math.min(pm, pv * (1 - pb));
break;
}
case 'chain_intermediate_condition': {
// peer_trusted (a defeasible evidence) as an INTERMEDIATE chain step:
// the engine expands it from the source (peer edges filtered by the
// trusted defeater) then continues to can_read. Oracle = min of the
// surviving peer leg and the read leg.
const [pp, pt, pr] = ps;
evidence = `evidence peer_trusted(user: Employee, other: Employee) { WHEN peer(user, other) UNLESS trusted(other) }
evidence can_via(user: Employee, doc: Doc) { peer_trusted(user, *p) { doc_read(p, doc) } }`;
edges.push({ src: 'u:1', relation: 'peer', dst: 'p:1', possibility: pp });
edges.push({ src: 'p:1', relation: 'trusted', dst: 'p:1', possibility: pt });
edges.push({ src: 'p:1', relation: 'doc_read', dst: 'doc:9', possibility: pr });
oracle = Math.min(pp * (1 - pt), pr);
break;
}
default:
throw new Error(`unknown construct: ${kind}`);
}
@@ -162,6 +179,10 @@ function runCheck({ kind, ps }) {
arbiter.addNode('u:1', 'Employee');
arbiter.addNode('g:1', 'Group');
arbiter.addNode('doc:9', 'Doc');
for (const e of edges) {
arbiter.addNode(e.src, e.dst === 'doc:9' ? 'Doc' : 'Employee');
arbiter.addNode(e.dst, e.dst === 'doc:9' ? 'Doc' : 'Employee');
}
const compiler = new DSLCompiler(arbiter);
const compiled = compiler.compile(dsl, 'oracle');
if (!compiled.success) {
@@ -178,7 +199,7 @@ function runCheck({ kind, ps }) {
const CONSTRUCTS = ['direct', 'chain', 'tuple_to_userset', 'fusion_min', 'fusion_max',
'when_unless', 'never_always', 'requires_when', 'composition', 'chain_step_composition',
'chain_condition_step'];
'chain_condition_step', 'chain_intermediate_condition'];
describe('DSL generative oracle parity (rigor)', () => {
it('generated legal DSL compiles and every check matches the oracle', async () => {
@@ -220,6 +241,10 @@ describe('DSL generative oracle parity (rigor)', () => {
arbiter.addNode('u:1', 'Employee');
arbiter.addNode('g:1', 'Group');
arbiter.addNode('doc:9', 'Doc');
for (const e of edges) {
arbiter.addNode(e.src, e.dst === 'doc:9' ? 'Doc' : 'Employee');
arbiter.addNode(e.dst, e.dst === 'doc:9' ? 'Doc' : 'Employee');
}
const compiled = new DSLCompiler(arbiter).compile(dsl, 'sweep');
assert.ok(compiled.success, `${kind} compile failed: ${(compiled.errors || []).join('; ')}`);
for (const e of edges) arbiter.addRelation(e.src, e.relation, e.dst, { possibility: e.possibility });