4 Commits

Author SHA1 Message Date
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
John Dvorak 351551af0f feat: chain condition steps — defeasible/logical evidence as final chain hop
CI / publish (push) Successful in 9s
CI / test (push) Successful in 18s
A chain's FINAL (object-side) step may now reference a defeasible/logical
evidence. The compiler lowers it to a condition step
({ rule: <config>, conditionStep: true }) that the engine verifies at
(intermediate, object) instead of traversing an edge. Requires
@arbiter/core@^1.0.3 (ChainRule condition-step support).

- _expandChainSteps: a logical/defeasible/comparator evidence is expressible
  as a final condition step; non-final such steps remain a compile error
  (a condition cannot discover intermediate nodes).
- Dependency collection (generator + DSLRuntime) descends into condition-step
  rule configs, so partial-graph requirements reach through them.

Tests: ChainConditionStep (defeasible + ALWAYS steps, independent checkability,
parallel aggregation), oracle campaign chain_condition_step construct
(oracle = min(pm, pv*(1-pb))), DSLRuntime transitive required facts through a
condition step.
2026-08-03 12:08:54 -07:00
John Dvorak 2dc478f5a3 feat: chain-step evidence composition — expand evidence steps in chains
CI / test (push) Successful in 18s
CI / publish (push) Successful in 9s
A chain step that references a derived evidence is now expanded at compile
time, keeping the engine a flat edge-traversal evaluator:

- DIRECT evidence step -> renamed to its underlying relation
  (member_of(user,*g){ group_read(g,doc) } where group_read = can_view
  becomes step 'can_view').
- CHAIN evidence step -> its steps are spliced into the parent chain
  (a sub-path flattens into the linear source->...->object traversal).
- Any other evidence type (defeasible/logical/comparator) as a step is a
  compile-time error: it is a condition, not an edge traversal.
- Cycles and self-references through chain steps are compile-time errors
  (the existing composition cycle guard now covers steps).

Rigor: oracle campaign gains a chain_step_composition construct; illegal
mutations gain a non-lowerable-chain-step case. Fixture suites updated to
retarget the self-recursive 'canRead/canAccess/...' terminals (an unsupported
recursion pattern that now fails loudly) to an any-typed 'reachable' fact,
preserving the nested-pattern parsing intent.
2026-08-03 11:34:52 -07:00
John Dvorak 88f10f9db4 feat: evidence composition — compile-time reference resolution for evidence sub-rules
CI / publish (push) Successful in 11s
CI / test (push) Successful in 15s
An evidence may now reference another derived evidence as a sub-rule
(WHEN can_read(user, doc) where can_read is itself an evidence). Resolution
is a compile-time linker pass: after every evidence config is generated, each
direct reference to an evidence is inlined with that evidence's own (resolved)
config, so the engine evaluates a fully-resolved, acyclic config tree.

- resolveEvidenceReferences(): post-generation pass over evidence configs,
  recursing into logical/defeasible containers (when/unless/never/always/
  requires/union/intersection), always.direct nests, and comparator operands.
- Forward references resolve (all configs exist before the pass runs).
- Cycles and self-references are compile-time errors.
- _subjectAsObject scoping is preserved through inlining.
- dependsOn is recomputed after resolution, so partial-graph requirements
  reach transitively through composed evidence.
- buildDirectRule/buildPredicateRule now apply subject-scoping to top-level
  PredicateCall evidence bodies (latent gap, previously missed).
- validation: reject relation names shared across facts/sources/evidence/
  measures (a collision silently overwrote configs and read as a false cycle).

Tests: EvidenceComposition (9), DSLRuntime transitive requiredFacts, oracle
campaign composition construct, illegal-mutations cycle + cross-kind cases.
2026-08-03 11:17:30 -07:00
14 changed files with 1106 additions and 139 deletions
+6 -6
View File
@@ -1,15 +1,15 @@
{ {
"name": "@arbiter/evidence-dsl", "name": "@arbiter/evidence-dsl",
"version": "1.1.0", "version": "1.4.0",
"lockfileVersion": 3, "lockfileVersion": 3,
"requires": true, "requires": true,
"packages": { "packages": {
"": { "": {
"name": "@arbiter/evidence-dsl", "name": "@arbiter/evidence-dsl",
"version": "1.1.0", "version": "1.4.0",
"license": "ISC", "license": "ISC",
"dependencies": { "dependencies": {
"@arbiter/core": "^1.0.2" "@arbiter/core": "^1.0.3"
}, },
"devDependencies": { "devDependencies": {
"@rigor/core": "^3.1.0", "@rigor/core": "^3.1.0",
@@ -17,9 +17,9 @@
} }
}, },
"node_modules/@arbiter/core": { "node_modules/@arbiter/core": {
"version": "1.0.2", "version": "1.0.3",
"resolved": "https://hub.kl1.tenere.ai/api/packages/Arbiter/npm/%40arbiter%2Fcore/-/1.0.2/core-1.0.2.tgz", "resolved": "https://hub.kl1.tenere.ai/api/packages/Arbiter/npm/%40arbiter%2Fcore/-/1.0.3/core-1.0.3.tgz",
"integrity": "sha512-N1duiHy1Rlsxqpvu8uPf4tMaLOQ2tNXvGs53jLkRcIAYqafIAMvcf0BPS2iE2xVKNsqY92+F05bZZEAO5jnbyQ==", "integrity": "sha512-MCXxyeWBoYjEJMrdO8N8q9uEdX7JgDvwRH39D+8x65zFz+JCNWIQ8H4DgsP2rgF+yzv/cdVH4BX9PfFt6i0ftQ==",
"license": "ISC", "license": "ISC",
"dependencies": { "dependencies": {
"@tenere/pltc-core": "^0.6.3", "@tenere/pltc-core": "^0.6.3",
+2 -2
View File
@@ -1,6 +1,6 @@
{ {
"name": "@arbiter/evidence-dsl", "name": "@arbiter/evidence-dsl",
"version": "1.1.0", "version": "1.5.0",
"description": "Evidence DSL v2 compiler: translates the natural Evidence DSL (ADR-000) into @arbiter/core relation configurations.", "description": "Evidence DSL v2 compiler: translates the natural Evidence DSL (ADR-000) into @arbiter/core relation configurations.",
"license": "ISC", "license": "ISC",
"type": "module", "type": "module",
@@ -24,7 +24,7 @@
"generate:parser": "node scripts/generate-parser.js" "generate:parser": "node scripts/generate-parser.js"
}, },
"dependencies": { "dependencies": {
"@arbiter/core": "^1.0.2" "@arbiter/core": "^1.0.3"
}, },
"devDependencies": { "devDependencies": {
"@rigor/core": "^3.1.0", "@rigor/core": "^3.1.0",
+187 -38
View File
@@ -10,6 +10,7 @@ export class RuleGenerator {
this.generatedRules = new Map(); this.generatedRules = new Map();
this.errors = []; this.errors = [];
this.dependencyIndex = new Map(); this.dependencyIndex = new Map();
this.evidenceNames = new Set();
} }
/** /**
@@ -38,6 +39,14 @@ export class RuleGenerator {
this.generateFactConfig(fact); this.generateFactConfig(fact);
}); });
// Resolve evidence composition: a rule that references another derived
// evidence (WHEN can_read(user, doc) where can_read is an evidence) is
// lowered in place to that evidence's own config — compile-time inlining
// (a linker pass), so the engine evaluates a fully-resolved config tree
// and never needs a sub-query traversal mechanism. Forward references are
// handled because every evidence config is built before this pass runs.
this.resolveEvidenceReferences();
// Apply generated rules to arbiter // Apply generated rules to arbiter
this.applyRulesToArbiter(); this.applyRulesToArbiter();
@@ -62,6 +71,7 @@ export class RuleGenerator {
*/ */
generateEvidenceRules(evidence) { generateEvidenceRules(evidence) {
const relationName = evidence.name; const relationName = evidence.name;
this.evidenceNames.add(relationName);
const ruleConfig = this.buildRuleConfig(evidence); const ruleConfig = this.buildRuleConfig(evidence);
if (ruleConfig) { if (ruleConfig) {
@@ -145,6 +155,7 @@ export class RuleGenerator {
for (const step of rule.steps) { for (const step of rule.steps) {
if (typeof step === 'string') targetSet.add(step); if (typeof step === 'string') targetSet.add(step);
else if (step && typeof step.relation === 'string') targetSet.add(step.relation); else if (step && typeof step.relation === 'string') targetSet.add(step.relation);
else if (step && step.rule) collect(step.rule, targetSet);
} }
} }
if (rule.type === 'relational_comparator') { if (rule.type === 'relational_comparator') {
@@ -162,6 +173,7 @@ export class RuleGenerator {
for (const child of ruleList) collect(child, targetSet); for (const child of ruleList) collect(child, targetSet);
} }
if (node?.rule) collect(node.rule, targetSet); if (node?.rule) collect(node.rule, targetSet);
if (node?.direct) collect(node.direct, targetSet);
} }
}; };
@@ -274,7 +286,7 @@ export class RuleGenerator {
buildSingleStatementRule(statement, evidence) { buildSingleStatementRule(statement, evidence) {
switch (statement.type) { switch (statement.type) {
case 'DirectEvidence': case 'DirectEvidence':
return this.buildDirectRule(statement); return this.buildDirectRule(statement, evidence);
case 'PatternMatch': case 'PatternMatch':
return this.buildPatternMatchRule(statement, evidence); return this.buildPatternMatchRule(statement, evidence);
case 'DefeasibleLogic': case 'DefeasibleLogic':
@@ -282,7 +294,7 @@ export class RuleGenerator {
case 'Fusion': case 'Fusion':
return this.buildFusionRule(statement); return this.buildFusionRule(statement);
case 'PredicateCall': case 'PredicateCall':
return this.buildPredicateRule(statement); return this.buildPredicateRule(statement, evidence);
case 'UnaryExpression': case 'UnaryExpression':
return this.buildUnaryRule(statement); return this.buildUnaryRule(statement);
case 'BinaryExpression': case 'BinaryExpression':
@@ -291,7 +303,7 @@ export class RuleGenerator {
case 'Expression': case 'Expression':
// Handle expressions that might be predicate calls // Handle expressions that might be predicate calls
if (statement.type === 'PredicateCall') { if (statement.type === 'PredicateCall') {
return this.buildPredicateRule(statement); return this.buildPredicateRule(statement, evidence);
} }
return this.buildRuleFromExpressionNode(statement, evidence); return this.buildRuleFromExpressionNode(statement, evidence);
default: default:
@@ -459,7 +471,7 @@ export class RuleGenerator {
* @param {DirectEvidenceNode} directEvidence - Direct evidence statement * @param {DirectEvidenceNode} directEvidence - Direct evidence statement
* @returns {Object|null} Rule configuration or null * @returns {Object|null} Rule configuration or null
*/ */
buildDirectRule(directEvidence) { buildDirectRule(directEvidence, evidence) {
if (!directEvidence.predicate) { if (!directEvidence.predicate) {
this.errors.push('Direct evidence must have a predicate'); this.errors.push('Direct evidence must have a predicate');
return null; return null;
@@ -468,11 +480,23 @@ export class RuleGenerator {
const predicate = directEvidence.predicate; const predicate = directEvidence.predicate;
const relation = predicate.name; const relation = predicate.name;
return { const rule = {
type: 'direct', type: 'direct',
relation: relation, relation: relation,
reverse: false 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.
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)) {
rule._subjectAsObject = true;
}
return rule;
} }
/** /**
@@ -925,9 +949,6 @@ export class RuleGenerator {
* @returns {Object|null} Rule configuration or null * @returns {Object|null} Rule configuration or null
*/ */
buildDirectRuleFromPredicate(predicate, evidence) { buildDirectRuleFromPredicate(predicate, evidence) {
const expanded = this._expandPredicate(predicate.name);
if (expanded) return expanded;
const rule = { const rule = {
type: 'direct', type: 'direct',
relation: predicate.name, relation: predicate.name,
@@ -944,36 +965,169 @@ export class RuleGenerator {
return rule; return rule;
} }
_expandPredicate(predicateName) { _expandPredicate() {
const existingConfig = this.generatedRules.get(predicateName) || this.arbiter?.relationConfigs?.get(predicateName); // Replaced by resolveEvidenceReferences() (the compile-time evidence
if (!existingConfig) return null; // composition pass). Predicate references are now emitted as direct rules
if (!existingConfig.union && !existingConfig.intersection && !existingConfig.exclusion) return null; // and inlined during resolution, which also handles forward references and
// preserves the correct _subjectAsObject scoping.
}
const logicalKey = existingConfig.union ? 'union' : existingConfig.intersection ? 'intersection' : 'exclusion'; /**
const subRules = Array.isArray(existingConfig[logicalKey]?.rules) * Evidence composition pass. Every rule that references a DERIVED evidence
? existingConfig[logicalKey].rules * (e.g. `WHEN can_read(user, doc)` where can_read is itself an evidence) is
: Array.isArray(existingConfig[logicalKey]) ? existingConfig[logicalKey] : []; * rewritten to inline that evidence's own config. This runs after all
* evidence configs are generated, so forward references resolve; cycles are
* detected and reported. The engine therefore evaluates a fully-resolved,
* acyclic config tree — no runtime sub-query traversal is needed.
*/
resolveEvidenceReferences() {
for (const name of this.evidenceNames) {
if (!this.generatedRules.has(name)) continue;
const stack = new Set([name]);
const resolved = this._resolveRule(this.generatedRules.get(name), stack);
this.generatedRules.set(name, resolved);
this._annotateDependencies(name, resolved);
}
}
if (subRules.length === 0) return null; /**
* Recursively rewrite a rule tree, inlining references to derived evidence
* configs. `stack` holds the evidence names currently being expanded so a
* cyclic reference (A → B → A) is detected and reported.
*/
_resolveRule(rule, stack) {
if (!rule || typeof rule !== 'object') return rule;
if (Array.isArray(rule)) return rule.map(r => this._resolveRule(r, stack));
const expandedRules = subRules.map(r => { // Direct rule referencing a derived evidence → inline its resolved config.
if (r && r.type === 'direct') return { type: 'direct', relation: r.relation, reverse: !!r.reverse }; if (rule.type === 'direct' && rule.relation) {
if (typeof r === 'string') return { type: 'direct', relation: r, reverse: false }; const ref = rule.relation;
return null; if (this.evidenceNames.has(ref)) {
}).filter(Boolean); const referencedConfig = this.generatedRules.get(ref);
if (referencedConfig) {
if (stack.has(ref)) {
this.errors.push(`Cyclic evidence reference involving '${ref}'. Evidence composition must be acyclic.`);
return rule;
}
const refStack = new Set(stack);
refStack.add(ref);
const resolvedRef = this._resolveRule(referencedConfig, refStack);
if (resolvedRef) {
const clone = this._deepCloneRule(resolvedRef);
if (rule._subjectAsObject) clone._subjectAsObject = true;
return clone;
}
}
}
return rule;
}
if (expandedRules.length === 0) return null; // Recurse into logical / defeasible / nested containers: rule-lists
// (union/intersection/exclusion/never/requires/when/unless .rules) and
// single nested rules (always.direct, comparator operands).
const out = { ...rule };
for (const key of ['union', 'intersection', 'exclusion', 'never', 'always', 'requires', 'when', 'unless', 'direct', 'rule']) {
const node = out[key];
if (!node || typeof node !== 'object') continue;
if (Array.isArray(node)) {
out[key] = node.map(r => this._resolveRule(r, stack));
continue;
}
const next = { ...node };
if (Array.isArray(next.rules)) {
next.rules = next.rules.map(r => this._resolveRule(r, stack));
}
if (next.union && Array.isArray(next.union.rules)) {
next.union = { ...next.union, rules: next.union.rules.map(r => this._resolveRule(r, stack)) };
}
if (next.intersection && Array.isArray(next.intersection.rules)) {
next.intersection = { ...next.intersection, rules: next.intersection.rules.map(r => this._resolveRule(r, stack)) };
}
if (next.direct && typeof next.direct === 'object') {
next.direct = this._resolveRule(next.direct, stack);
}
if (next.rule && typeof next.rule === 'object') {
next.rule = this._resolveRule(next.rule, stack);
}
out[key] = next;
}
if (out.type === 'relational_comparator') {
if (out.left?.rule) out.left = { ...out.left, rule: this._resolveRule(out.left.rule, stack) };
if (out.right?.rule) out.right = { ...out.right, rule: this._resolveRule(out.right.rule, stack) };
}
// Chain steps may reference a derived evidence; expand those steps
// (direct evidence → underlying relation, chain evidence → spliced steps).
if (rule.type === 'chain' && Array.isArray(out.steps)) {
out.steps = this._expandChainSteps(out.steps, stack);
}
return out;
}
return { /**
type: 'logical', * Expand chain steps that reference a derived evidence:
[logicalKey]: { * - direct evidence → rename the step to the underlying relation
rules: expandedRules, * (member_of(user,*g){ group_read(g,doc) } where group_read = can_view
aggregator: existingConfig[logicalKey]?.aggregator || 'min' * becomes step 'can_view');
}, * - chain evidence → splice its steps into this chain (flattening)
// Flag to tell the evaluator: this expanded sub-predicate is unary — * (a step that is itself a sub-path becomes its steps, preserving the
// use the subject as the object instead of inheriting the parent's object. * linear source→…→object traversal);
_subjectAsObject: true * - logical / defeasible / comparator evidence → only expressible as a
}; * FINAL condition-gated step (the object is known, so the engine can
* verify the condition at (intermediate, object) instead of traversing
* an edge). Emitted as a `{ rule: <config> }` step the ChainRule
* evaluates as a condition hop. Non-final such steps are a compile
* error: a condition cannot discover intermediate nodes.
*/
_expandChainSteps(steps, stack) {
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)) {
this.errors.push(`Cyclic evidence reference involving '${stepName}'. Evidence composition must be acyclic.`);
out.push(step);
continue;
}
const referencedConfig = this.generatedRules.get(stepName);
if (referencedConfig) {
const refStack = new Set(stack);
refStack.add(stepName);
const resolved = this._resolveRule(referencedConfig, refStack);
if (resolved.type === 'direct' && resolved.relation && resolved.relation !== stepName) {
out.push(typeof step === 'string'
? resolved.relation
: { ...step, relation: resolved.relation });
continue;
}
if (resolved.type === 'chain' && Array.isArray(resolved.steps)) {
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 });
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);
continue;
}
}
out.push(step);
}
return out;
}
_deepCloneRule(rule) {
try {
return structuredClone(rule);
} catch {
return JSON.parse(JSON.stringify(rule));
}
} }
/** /**
@@ -1120,11 +1274,6 @@ export class RuleGenerator {
return this.buildChallengeRule(expression, null); return this.buildChallengeRule(expression, null);
} }
// Expand composite (logical) predicate references into their direct
// leaf components so the optimizer can flatten to a correct direct_list.
const expanded = this._expandPredicate(predicateName);
if (expanded) return expanded;
const rule = { const rule = {
type: 'direct', type: 'direct',
relation: predicateName, relation: predicateName,
+175 -28
View File
@@ -1,6 +1,6 @@
import { DSLCompiler } from '../DSLCompiler.js'; 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 * 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 * check). A raw Arbiter accepts untyped inserts; this wrapper adds the
* DSL-informed layer: * DSL-informed layer:
* *
* - addNode / updateNodeData / addRelation / updateRelation validate their * - schema introspection: getSchema() exposes the compiled type system
* arguments against the compiled schema — known types, known relations, * (entity types/fields, facts, evidence, dependencies, providers);
* matching param types, typed field values — before mutating the arbiter. * - typed mutations: addNode / updateNodeData / addRelation / updateRelation
* - check() validates the request, derives the injectable facts the * validate their arguments against the compiled schema — known types,
* evidence requires (its partial-graph requirements), retrieves the * known relations, matching param types, typed field values — before
* missing facts through caller-provided data callbacks, injects them into * mutating the arbiter; removeNode / removeRelation pass through;
* a partial graph, then delegates to the arbiter. * - 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 / * Trust boundary follows the core: caller-supplied evidence (partial graph /
* provider results) is trusted, never policed; only structure is validated. * provider results) is trusted, never policed; only structure is validated.
@@ -62,6 +68,43 @@ export class DSLRuntime {
return this; 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
}))
}));
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() { _indexSchema() {
this.types.clear(); this.types.clear();
this.relations.clear(); this.relations.clear();
@@ -103,7 +146,11 @@ export class DSLRuntime {
if (rule.computedRelation) deps.add(rule.computedRelation); if (rule.computedRelation) deps.add(rule.computedRelation);
} }
if (rule.type === 'chain' && Array.isArray(rule.steps)) { if (rule.type === 'chain' && Array.isArray(rule.steps)) {
for (const s of rule.steps) deps.add(typeof s === 'string' ? s : s.relation); for (const s of rule.steps) {
if (typeof s === 'string') deps.add(s);
else if (s && s.relation) deps.add(s.relation);
else if (s && s.rule) collect(s.rule);
}
} }
if (rule.type === 'parent' && rule.parentRelation) deps.add(rule.parentRelation); if (rule.type === 'parent' && rule.parentRelation) deps.add(rule.parentRelation);
if (rule.type === 'multi_hop' && rule.relation) deps.add(rule.relation); if (rule.type === 'multi_hop' && rule.relation) deps.add(rule.relation);
@@ -132,12 +179,43 @@ 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;
return this;
}
/** Remove a registered provider. */
unregisterFact(relation) {
delete this.factProviders[relation];
return this;
}
/** Relation names that currently have a registered provider. */
registeredFacts() {
return Object.keys(this.factProviders);
}
// --------------------------------------------------------------------------- // ---------------------------------------------------------------------------
// Schema validation helpers // Schema validation helpers
// --------------------------------------------------------------------------- // ---------------------------------------------------------------------------
_isPrimitive(typeName) { _isValueType(typeName) {
return PRIMITIVE_TYPES.has(typeName); return VALUE_TYPES.has(typeName);
} }
_nodeType(key) { _nodeType(key) {
@@ -154,7 +232,7 @@ export class DSLRuntime {
} }
_checkNodeType(key, expectedType, position) { _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); const actual = this._nodeType(key);
if (actual === null) { if (actual === null) {
this._checkNodeExists(key, position); this._checkNodeExists(key, position);
@@ -180,7 +258,9 @@ export class DSLRuntime {
const ok = type === 'string' ? typeof value === 'string' const ok = type === 'string' ? typeof value === 'string'
: type === 'number' ? typeof value === 'number' : type === 'number' ? typeof value === 'number'
: type === 'boolean' ? typeof value === 'boolean' : 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) { if (!ok) {
throw new Error(`DSLRuntime: field '${path}' must be ${type}, got ${typeof value}`); throw new Error(`DSLRuntime: field '${path}' must be ${type}, got ${typeof value}`);
} }
@@ -220,6 +300,14 @@ export class DSLRuntime {
return this.arbiter.updateNodeData(key, data); return this.arbiter.updateNodeData(key, data);
} }
/** Remove a node (passthrough to the arbiter's node manager). */
removeNode(key) {
if (this.arbiter.nodeManager && typeof this.arbiter.nodeManager.removeNode === 'function') {
return this.arbiter.nodeManager.removeNode(key);
}
return this.arbiter.removeNode?.(key);
}
_relationOrThrow(relation) { _relationOrThrow(relation) {
const meta = this.relations.get(relation); const meta = this.relations.get(relation);
if (!meta) { if (!meta) {
@@ -254,6 +342,11 @@ export class DSLRuntime {
return this.arbiter.addRelation(src, relation, dst, attrs); return this.arbiter.addRelation(src, relation, dst, attrs);
} }
/** Remove a relation edge (passthrough to the arbiter). */
removeRelation(src, relation, dst) {
return this.arbiter.removeRelation(src, relation, dst);
}
_validateRelationEndpoints(relation, meta, src, dst, attrs) { _validateRelationEndpoints(relation, meta, src, dst, attrs) {
const params = meta.params; const params = meta.params;
if (params.length === 0) { if (params.length === 0) {
@@ -261,14 +354,14 @@ export class DSLRuntime {
} }
// First param is always the subject (entity). // First param is always the subject (entity).
const subjectType = params[0].type; 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}'`); throw new Error(`DSLRuntime: relation '${relation}' subject param must be an entity type, got '${subjectType}'`);
} }
this._checkNodeType(src, subjectType, 'subject'); this._checkNodeType(src, subjectType, 'subject');
if (params.length >= 2) { if (params.length >= 2) {
const secondType = params[1].type; const secondType = params[1].type;
if (this._isPrimitive(secondType)) { if (this._isValueType(secondType)) {
// Value-carrying fact (e.g. session(user, token: string)): the value // 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 // 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. // the subject so the value is discoverable by value extraction.
@@ -309,6 +402,13 @@ export class DSLRuntime {
* evidence's injectable facts, inject them into a partial graph, and delegate * evidence's injectable facts, inject them into a partial graph, and delegate
* to the arbiter. * 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} user - subject key
* @param {string} relation - evidence (or fact) relation name * @param {string} relation - evidence (or fact) relation name
* @param {string} object - object key * @param {string} object - object key
@@ -316,47 +416,70 @@ export class DSLRuntime {
* @param {object} options.partialGraph - caller-supplied partial graph edges * @param {object} options.partialGraph - caller-supplied partial graph edges
* ({ relations: [{ src, relation, dst, possibility, value }], nodes, challenges }) * ({ relations: [{ src, relation, dst, possibility, value }], nodes, challenges })
* @param {object} options.factProviders - per-call provider overrides * @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 } * @returns {object} core check result extended with { requiredFacts, providedFacts, missingFacts }
*/ */
async check(user, relation, object, options = {}) { async check(user, relation, object, options = {}) {
const meta = this.relations.get(relation); const meta = this.relations.get(relation);
if (!meta) { if (!meta) {
if (this.strictTypes) throw new Error(`DSLRuntime: unknown relation '${relation}'`); if (this.strictTypes) throw new Error(`DSLRuntime: unknown relation '${relation}'`);
} else if (meta.kind === 'evidence') { } else if (meta.params.length === 2) {
if (meta.params.length === 2) {
this._checkNodeType(user, meta.params[0].type, 'subject'); this._checkNodeType(user, meta.params[0].type, 'subject');
this._checkNodeType(object, meta.params[1].type, 'object'); 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 required = this.requiredFacts(relation);
const providers = options.factProviders || this.factProviders; const providers = { ...this.factProviders, ...(options.factProviders || {}) };
const injectedRelations = []; const maxRounds = options.maxProviderRounds ?? 3;
const missingFacts = [];
const partialRelations = []; 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)) { 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);
}
} }
// Fixed-point provider retrieval loop.
for (let round = 1; round <= maxRounds; round++) {
let newRelationsThisRound = 0;
for (const fact of required) { for (const fact of required) {
if (satisfied.has(fact)) continue;
const factMeta = this.relations.get(fact); const factMeta = this.relations.get(fact);
const provider = providers[fact]; const provider = providers[fact];
if (typeof provider !== 'function') {
missingFacts.push({ relation: fact, reason: 'no_provider' });
satisfied.add(fact);
continue;
}
let result = null; let result = null;
let error = null; let error = null;
if (typeof provider === 'function') {
try { 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) { } catch (err) {
error = err; error = err;
} }
}
if (error) { if (error) {
missingFacts.push({ relation: fact, reason: error.message }); missingFacts.push({ relation: fact, reason: error.message });
satisfied.add(fact);
continue; continue;
} }
if (result === false || result === null || result === undefined) { if (result === false || result === null || result === undefined) {
missingFacts.push({ relation: fact, reason: 'not_provided' }); missingFacts.push({ relation: fact, reason: 'not_provided' });
satisfied.add(fact);
continue; continue;
} }
const edges = Array.isArray(result) ? result : [result]; const edges = Array.isArray(result) ? result : [result];
@@ -365,22 +488,31 @@ export class DSLRuntime {
// - value fact (2nd param value) -> self-edge on the subject carrying the value // - value fact (2nd param value) -> self-edge on the subject carrying the value
// - binary entity fact -> subject → object // - binary entity fact -> subject → object
const secondParamType = factMeta.params[1] && factMeta.params[1].type; const secondParamType = factMeta.params[1] && factMeta.params[1].type;
const defaultDst = factMeta.params.length >= 2 && this._isPrimitive(secondParamType) const defaultDst = factMeta.params.length >= 2 && this._isValueType(secondParamType)
? user ? user
: (factMeta.params.length >= 2 ? object : user); : (factMeta.params.length >= 2 ? object : user);
for (const edge of edges) { for (const edge of edges) {
const normalized = typeof edge === 'boolean' || typeof edge === 'number' const normalized = typeof edge === 'boolean' || typeof edge === 'number'
? { src: user, dst: defaultDst, possibility: edge === true ? 1 : edge } ? { src: user, dst: defaultDst, possibility: edge === true ? 1 : edge }
: { : {
...(edge.relation ? { relation: edge.relation } : {}),
src: edge.src ?? user, src: edge.src ?? user,
dst: edge.dst ?? defaultDst, dst: edge.dst ?? defaultDst,
possibility: edge.possibility ?? 1, possibility: edge.possibility ?? 1,
...(edge.value !== undefined ? { value: edge.value } : {}), ...(edge.value !== undefined ? { value: edge.value } : {}),
...(edge.reliability !== undefined ? { reliability: edge.reliability } : {}) ...(edge.reliability !== undefined ? { reliability: edge.reliability } : {})
}; };
partialRelations.push({ relation: fact, ...normalized }); // A provider may return edges for relations other than its own; the
// injected relation names satisfy those facts too (fixed point).
const injectedRelation = normalized.relation ?? fact;
partialRelations.push({ relation: injectedRelation, ...normalized });
satisfied.add(injectedRelation);
} }
injectedRelations.push({ relation: fact, edges: edges.length }); injectedRelations.push({ relation: fact, edges: edges.length, round });
newRelationsThisRound += edges.length;
satisfied.add(fact);
}
if (newRelationsThisRound === 0) break;
} }
const checkOptions = { ...options }; const checkOptions = { ...options };
@@ -400,4 +532,19 @@ export class DSLRuntime {
missingFacts 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;
}
} }
+32
View File
@@ -41,6 +41,7 @@ export function validateDslText(dslText, options = {}) {
validateSources(program, tables, errors, warnings, dslText); validateSources(program, tables, errors, warnings, dslText);
validateMeasures(program, tables, errors, warnings, dslText); validateMeasures(program, tables, errors, warnings, dslText);
validateEvidence(program, tables, errors, warnings, dslText); validateEvidence(program, tables, errors, warnings, dslText);
validateCrossKindRelationNames(program, errors, warnings, dslText);
return { return {
success: errors.length === 0, success: errors.length === 0,
@@ -335,6 +336,37 @@ function validateEvidence(program, tables, errors, warnings, source) {
} }
} }
/**
* Relation names must be unique across facts, sources, evidence, and measures.
* A fact and an evidence sharing a name would silently overwrite each other's
* relation config during generation (and read as a false cyclic reference).
*/
function validateCrossKindRelationNames(program, errors, warnings, source) {
const seen = new Map();
const kinds = [
['fact', program.facts],
['source', program.sources],
['evidence', program.evidence],
['measure', program.measures]
];
for (const [kind, items] of kinds) {
for (const item of items || []) {
const prev = seen.get(item.name);
if (prev) {
errors.push(createError({
message: `Name '${item.name}' is already used by a ${prev} declaration.`,
rule: 'Relation names must be unique across facts, sources, evidence, and measures.',
fix: `Rename the ${kind} or the ${prev} to a unique name.`,
location: findLocation(source, `${kind} ${item.name}`),
context: formatContext(source, findLocation(source, item.name))
}));
} else {
seen.set(item.name, kind);
}
}
}
}
function validateEvidenceBody(body, scope, tables, errors, warnings, source, parent) { function validateEvidenceBody(body, scope, tables, errors, warnings, source, parent) {
for (const stmt of body.statements || []) { for (const stmt of body.statements || []) {
switch (stmt.type) { switch (stmt.type) {
+101
View File
@@ -0,0 +1,101 @@
/**
* tests/ChainConditionStep.test.js — a chain whose FINAL (object-side) hop
* references a defeasible/logical evidence. The compiler lowers it to a
* condition step: `{ rule: <config>, conditionStep: true }`, which the engine
* verifies at (intermediate, object) rather than traversing an edge.
*
* Only the final step may be a condition (the object is known); an
* intermediate condition cannot discover nodes and is a compile error.
*/
import { describe, it } from 'node:test';
import assert from 'node:assert/strict';
import { Arbiter } from '@arbiter/core';
import { DSLCompiler } from '../src/DSLCompiler.js';
const DEFS = `
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)
fact can_edit(group: Group, doc: Doc)
`;
function compile(dsl, name = 'chain-cond') {
const arb = new Arbiter();
const compiler = new DSLCompiler(arb);
const result = compiler.compile(dsl, name);
return { arb, result };
}
describe('Chain condition step (logical evidence as final hop)', () => {
it('lowers a defeasible final step to a condition step and grants', () => {
const { arb, result } = compile(`
${DEFS}
evidence gated(group: Group, doc: Doc) { WHEN can_view(group, doc) UNLESS banned(group) }
evidence can_via(user: Employee, doc: Doc) { member_of(user, *g) { gated(g, doc) } }
`);
assert.ok(result.success, JSON.stringify(result.errors));
const steps = arb.relationConfigs.get('can_via').steps;
assert.equal(steps[0], 'member_of');
assert.equal(steps[1].conditionStep, true);
assert.equal(steps[1].rule.type, 'logical');
// transitive dependency collection through the condition step
assert.deepEqual(arb.relationConfigs.get('can_via').dependsOn, ['member_of', 'can_view', 'banned']);
arb.addNode('u:1', 'Employee'); arb.addNode('g:1', 'Group'); arb.addNode('doc:9', 'Doc');
arb.addRelation('u:1', 'member_of', 'g:1', { possibility: 1.0 });
arb.addRelation('g:1', 'can_view', 'doc:9', { possibility: 0.7 });
assert.equal(arb.check('u:1', 'can_via', 'doc:9').possibility, 0.7);
// banning the intermediate defeats the condition hop
arb.addRelation('g:1', 'banned', 'g:1', { possibility: 1.0 });
assert.equal(arb.check('u:1', 'can_via', 'doc:9').possibility, 0);
});
it('supports ALWAYS/NEVER evidence as a condition step', () => {
const { arb, result } = compile(`
${DEFS}
evidence gated(group: Group, doc: Doc) { ALWAYS can_edit(group, doc) }
evidence can_via(user: Employee, doc: Doc) { member_of(user, *g) { gated(g, doc) } }
`);
assert.ok(result.success, JSON.stringify(result.errors));
const steps = arb.relationConfigs.get('can_via').steps;
assert.equal(steps[1].conditionStep, true);
arb.addNode('u:1', 'Employee'); arb.addNode('g:1', 'Group'); arb.addNode('doc:9', 'Doc');
arb.addRelation('u:1', 'member_of', 'g:1', { possibility: 1.0 });
arb.addRelation('g:1', 'can_edit', 'doc:9', { possibility: 0.6 });
assert.equal(arb.check('u:1', 'can_via', 'doc:9').possibility, 0.6);
arb.removeRelation('g:1', 'can_edit', 'doc:9');
assert.equal(arb.check('u:1', 'can_via', 'doc:9').possibility, 0);
});
it('keeps the condition evidence checkable in its own right', () => {
const { arb, result } = compile(`
${DEFS}
evidence gated(group: Group, doc: Doc) { WHEN can_view(group, doc) UNLESS banned(group) }
evidence can_via(user: Employee, doc: Doc) { member_of(user, *g) { gated(g, doc) } }
`);
assert.ok(result.success, JSON.stringify(result.errors));
arb.addNode('g:1', 'Group'); arb.addNode('doc:9', 'Doc');
arb.addRelation('g:1', 'can_view', 'doc:9', { possibility: 0.8 });
assert.equal(arb.check('g:1', 'gated', 'doc:9').possibility, 0.8);
});
it('parallel intermediates aggregate through the condition step', () => {
const { arb, result } = compile(`
${DEFS}
evidence gated(group: Group, doc: Doc) { can_view(group, doc) }
evidence can_via(user: Employee, doc: Doc) { member_of(user, *g) { gated(g, doc) } }
`);
assert.ok(result.success, JSON.stringify(result.errors));
arb.addNode('u:1', 'Employee'); arb.addNode('g:1', 'Group'); arb.addNode('g2:2', 'Group'); arb.addNode('doc:9', 'Doc');
arb.addRelation('u:1', 'member_of', 'g:1', { possibility: 0.5 });
arb.addRelation('g:1', 'can_view', 'doc:9', { possibility: 0.7 });
arb.addRelation('u:1', 'member_of', 'g2:2', { possibility: 1.0 });
arb.addRelation('g2:2', 'can_view', 'doc:9', { possibility: 0.8 });
// 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);
});
});
+127
View File
@@ -0,0 +1,127 @@
/**
* tests/ChainStepComposition.test.js — evidence composition inside CHAIN
* steps. A chain step that references a derived evidence is expanded at
* compile time:
* - a DIRECT evidence step → renamed to its underlying relation
* (member_of(user,*g){ group_read(g,doc) } where group_read = can_view
* becomes step 'can_view');
* - a CHAIN evidence step → its steps are spliced into the parent chain
* (a sub-path flattens into the linear source→…→object traversal);
* - a DEFEASIBLE / LOGICAL / COMPARATOR evidence step is not an edge
* traversal and is rejected at compile time;
* - cycles and self-references through chain steps are compile errors.
*/
import { describe, it } from 'node:test';
import assert from 'node:assert/strict';
import { Arbiter } from '@arbiter/core';
import { DSLCompiler } from '../src/DSLCompiler.js';
const DEFS = `
definition Employee { id: string }
definition Group { id: string }
definition Doc { id: string }
fact member_of(user: Employee, group: Group)
fact group_has(group: Group, sub: Group)
fact can_view(group: Group, doc: Doc)
fact can_access(group: Group, doc: Doc)
fact banned(group: Group)
`;
function compile(dsl, name = 'chain-compose') {
const arb = new Arbiter();
const compiler = new DSLCompiler(arb);
const result = compiler.compile(dsl, name);
return { arb, result };
}
describe('Chain step composition', () => {
it('renames a direct-evidence chain step to its underlying relation', () => {
const { arb, result } = compile(`
${DEFS}
evidence group_read(group: Group, doc: Doc) { can_view(group, doc) }
evidence can_via(user: Employee, doc: Doc) { member_of(user, *g) { group_read(g, doc) } }
`);
assert.ok(result.success, JSON.stringify(result.errors));
// step 'group_read' → 'can_view'
assert.deepEqual(arb.relationConfigs.get('can_via').steps, ['member_of', 'can_view']);
arb.addNode('u:1', 'Employee'); arb.addNode('g:1', 'Group'); arb.addNode('doc:9', 'Doc');
arb.addRelation('u:1', 'member_of', 'g:1', { possibility: 1.0 });
arb.addRelation('g:1', 'can_view', 'doc:9', { possibility: 0.7 });
assert.equal(arb.check('u:1', 'can_via', 'doc:9').possibility, 0.7);
});
it('splices a chain-evidence step into the parent chain', () => {
const { arb, result } = compile(`
${DEFS}
evidence group_enter(group: Group, doc: Doc) { group_has(group, *s) { can_access(s, doc) } }
evidence can_deep(user: Employee, doc: Doc) { member_of(user, *g) { group_enter(g, doc) } }
`);
assert.ok(result.success, JSON.stringify(result.errors));
// step 'group_enter' → its steps [group_has, can_access]
assert.deepEqual(arb.relationConfigs.get('can_deep').steps, ['member_of', 'group_has', 'can_access']);
arb.addNode('u:1', 'Employee'); arb.addNode('g:1', 'Group'); arb.addNode('g2:2', 'Group'); arb.addNode('doc:9', 'Doc');
arb.addRelation('u:1', 'member_of', 'g:1', { possibility: 1.0 });
arb.addRelation('g:1', 'group_has', 'g2:2', { possibility: 0.9 });
arb.addRelation('g2:2', 'can_access', 'doc:9', { possibility: 0.8 });
assert.equal(arb.check('u:1', 'can_deep', 'doc:9').possibility, 0.8);
});
it('expands a chain step whose direct evidence is itself composed', () => {
const { arb, result } = compile(`
${DEFS}
evidence group_view(group: Group, doc: Doc) { can_view(group, doc) }
evidence group_read(group: Group, doc: Doc) { group_view(group, doc) }
evidence can_via(user: Employee, doc: Doc) { member_of(user, *g) { group_read(g, doc) } }
`);
assert.ok(result.success, JSON.stringify(result.errors));
assert.deepEqual(arb.relationConfigs.get('can_via').steps, ['member_of', 'can_view']);
arb.addNode('u:1', 'Employee'); arb.addNode('g:1', 'Group'); arb.addNode('doc:9', 'Doc');
arb.addRelation('u:1', 'member_of', 'g:1', { possibility: 1.0 });
arb.addRelation('g:1', 'can_view', 'doc:9', { possibility: 0.6 });
assert.equal(arb.check('u:1', 'can_via', 'doc:9').possibility, 0.6);
});
it('lowers a logical evidence FINAL step to a condition step', () => {
const { arb, result } = compile(`
${DEFS}
evidence gated(group: Group, doc: Doc) { WHEN can_view(group, doc) UNLESS banned(group) }
evidence can_via(user: Employee, doc: Doc) { member_of(user, *g) { gated(g, doc) } }
`);
assert.ok(result.success, JSON.stringify(result.errors));
// final-step logical evidence → condition step (verified at the object)
const steps = arb.relationConfigs.get('can_via').steps;
assert.equal(steps[0], 'member_of');
assert.equal(steps[1].conditionStep, true);
assert.equal(steps[1].rule.type, 'logical');
});
it('rejects a mutual cycle through chain steps', () => {
const { result } = compile(`
${DEFS}
evidence cyc_a(group: Group, doc: Doc) { group_has(group, *g) { cyc_b(g, doc) } }
evidence cyc_b(group: Group, doc: Doc) { cyc_a(group, doc) }
`);
assert.equal(result.success, false);
assert.ok(result.errors.some(e => /[Cc]yclic/.test(e)), JSON.stringify(result.errors));
});
it('rejects a self-reference through its own chain step', () => {
const { result } = compile(`
${DEFS}
evidence cyc_c(group: Group, doc: Doc) { group_has(group, *g) { cyc_c(g, doc) } }
`);
assert.equal(result.success, false);
assert.ok(result.errors.some(e => /[Cc]yclic/.test(e)), JSON.stringify(result.errors));
});
it('re-derives transitive dependencies through expanded chain steps', () => {
const { arb, result } = compile(`
${DEFS}
evidence group_read(group: Group, doc: Doc) { can_view(group, doc) }
evidence can_via(user: Employee, doc: Doc) { member_of(user, *g) { group_read(g, doc) } }
`);
assert.ok(result.success, JSON.stringify(result.errors));
// dependsOn reflects the expanded step, not the evidence reference
assert.deepEqual(arb.relationConfigs.get('can_via').dependsOn, ['member_of', 'can_view']);
});
});
+44
View File
@@ -161,4 +161,48 @@ describe('DSLRuntime', () => {
rt.addNode('doc:9', 'Doc', {}); rt.addNode('doc:9', 'Doc', {});
await assert.rejects(() => rt.check('u:1', 'does_not_exist', 'doc:9'), /unknown relation/); await assert.rejects(() => rt.check('u:1', 'does_not_exist', 'doc:9'), /unknown relation/);
}); });
it('derives transitive required facts through evidence composition', 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-comp');
rt.addNode('u:1', 'Employee', {});
rt.addNode('doc:9', 'Doc', {});
// can_open composes can_read, so its requirements reach through to owns.
assert.deepEqual(rt.requiredFacts('can_open'), ['owns', 'banned']);
const granted = await rt.check('u:1', 'can_open', 'doc:9', {
factProviders: { owns: async () => 0.9, banned: async () => 0 }
});
assert.equal(granted.possibility, 0.9);
assert.equal(granted.reason, 'allow_rule_matched');
assert.deepEqual(granted.providedFacts, ['owns', 'banned']);
const denied = await rt.check('u:1', 'can_open', 'doc:9', {
factProviders: { owns: async () => 0.9, banned: async () => 1 }
});
assert.equal(denied.possibility, 0);
assert.equal(denied.reason, 'defeated_by_unless');
});
it('derives transitive required facts through a condition-step chain', () => {
const dsl = `
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)
evidence gated(group: Group, doc: Doc) { WHEN can_view(group, doc) UNLESS banned(group) }
evidence can_via(user: Employee, doc: Doc) { member_of(user, *g) { gated(g, doc) } }
`;
const rt = new DSLRuntime(new Arbiter()).compile(dsl, 'rt-cond');
// The condition step's facts (can_view, banned) reach through to the
// evidence's requirements, alongside the edge-traversal fact.
assert.deepEqual(rt.requiredFacts('can_via'), ['member_of', 'can_view', 'banned']);
});
}); });
+147
View File
@@ -0,0 +1,147 @@
/**
* 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/);
});
});
+154
View File
@@ -0,0 +1,154 @@
/**
* tests/EvidenceComposition.test.js — referencing a derived evidence as a
* sub-rule of another evidence (WHEN can_read(user, doc) where can_read is
* itself an evidence).
*
* Composition is resolved at COMPILE time: the generator inlines each
* evidence reference with the referenced evidence's own config (a linker
* pass that handles forward references and rejects cycles), so the engine
* evaluates a fully-resolved, acyclic config tree.
*/
import { describe, it } from 'node:test';
import assert from 'node:assert/strict';
import { Arbiter } from '@arbiter/core';
import { DSLCompiler } from '../src/DSLCompiler.js';
const DEFS = `
definition Employee { id: string }
definition Group { id: string }
definition Doc { id: string }
fact owns(user: Employee, doc: Doc)
fact *trusted(user: Employee)
fact member_of(user: Employee, group: Group)
fact can_access(group: Group, doc: Doc)
`;
function compile(dsl, name = 'compose') {
const arb = new Arbiter();
const compiler = new DSLCompiler(arb);
const result = compiler.compile(dsl, name);
return { arb, result };
}
describe('Evidence composition', () => {
it('composes a direct evidence into another evidence', () => {
const { arb, result } = compile(`
${DEFS}
evidence can_read(user: Employee, doc: Doc) { owns(user, doc) }
evidence can_browse(user: Employee, doc: Doc) { can_read(user, doc) }
`);
assert.ok(result.success, JSON.stringify(result.errors));
arb.addNode('u:1', 'Employee'); arb.addNode('doc:9', 'Doc');
arb.addRelation('u:1', 'owns', 'doc:9', { possibility: 0.8 });
const res = arb.check('u:1', 'can_browse', 'doc:9');
assert.equal(res.possibility, 0.8);
// The reference is inlined to the underlying fact config.
assert.equal(arb.relationConfigs.get('can_browse').type, 'direct');
assert.equal(arb.relationConfigs.get('can_browse').relation, 'owns');
});
it('composes an evidence inside a defeasible WHEN/UNLESS', () => {
const { arb, result } = compile(`
${DEFS}
evidence can_read(user: Employee, doc: Doc) { owns(user, doc) }
evidence can_open(user: Employee, doc: Doc) { WHEN can_read(user, doc) UNLESS trusted(user) }
`);
assert.ok(result.success, JSON.stringify(result.errors));
arb.addNode('u:1', 'Employee'); arb.addNode('doc:9', 'Doc');
arb.addRelation('u:1', 'owns', 'doc:9', { possibility: 0.9 });
assert.equal(arb.check('u:1', 'can_open', 'doc:9').possibility, 0.9);
arb.addRelation('u:1', 'trusted', 'u:1', { possibility: 1.0 });
const denied = arb.check('u:1', 'can_open', 'doc:9');
assert.equal(denied.possibility, 0);
assert.equal(denied.reason, 'defeated_by_unless');
});
it('composes a chain evidence into another evidence', () => {
const { arb, result } = compile(`
${DEFS}
evidence can_enter(user: Employee, doc: Doc) { member_of(user, *g) { can_access(g, doc) } }
evidence can_work(user: Employee, doc: Doc) { can_enter(user, doc) }
`);
assert.ok(result.success, JSON.stringify(result.errors));
arb.addNode('u:1', 'Employee'); arb.addNode('g:1', 'Group'); arb.addNode('doc:9', 'Doc');
arb.addRelation('u:1', 'member_of', 'g:1', { possibility: 1.0 });
arb.addRelation('g:1', 'can_access', 'doc:9', { possibility: 0.7 });
const res = arb.check('u:1', 'can_work', 'doc:9');
assert.equal(res.possibility, 0.7);
assert.equal(arb.relationConfigs.get('can_work').type, 'chain');
});
it('composes transitively (A → B → fact) and re-derives dependencies', () => {
const { arb, result } = compile(`
${DEFS}
evidence can_read(user: Employee, doc: Doc) { owns(user, doc) }
evidence can_browse(user: Employee, doc: Doc) { can_read(user, doc) }
evidence can_open(user: Employee, doc: Doc) { can_browse(user, doc) }
`);
assert.ok(result.success, JSON.stringify(result.errors));
arb.addNode('u:1', 'Employee'); arb.addNode('doc:9', 'Doc');
arb.addRelation('u:1', 'owns', 'doc:9', { possibility: 0.6 });
assert.equal(arb.check('u:1', 'can_open', 'doc:9').possibility, 0.6);
assert.deepEqual(arb.relationConfigs.get('can_open').dependsOn, ['owns']);
});
it('composes a value-carrying evidence and preserves subject-as-object scope', () => {
const { arb, result } = compile(`
${DEFS}
fact *user_risk(user: Employee, value: number)
evidence risk_ok(user: Employee, doc: Doc) { user_risk(user, 1) }
evidence can_proceed(user: Employee, doc: Doc) { risk_ok(user, doc) }
`);
assert.ok(result.success, JSON.stringify(result.errors));
arb.addNode('u:1', 'Employee'); arb.addNode('doc:9', 'Doc');
arb.addRelation('u:1', 'user_risk', 'u:1', { possibility: 1.0, value: 1 });
const res = arb.check('u:1', 'can_proceed', 'doc:9');
assert.equal(res.possibility, 1);
});
it('composes evidence inside a comparator operand', () => {
const { arb, result } = compile(`
${DEFS}
fact *user_risk(user: Employee, value: number)
fact *risk_limit(doc: Doc, value: number)
evidence user_risk_ok(user: Employee, doc: Doc) { user_risk(user, 1) }
evidence can_proceed(user: Employee, doc: Doc) { user_risk_ok(user, doc) }
`);
assert.ok(result.success, JSON.stringify(result.errors));
arb.addNode('u:1', 'Employee'); arb.addNode('doc:9', 'Doc');
arb.addRelation('u:1', 'user_risk', 'u:1', { possibility: 1.0, value: 1 });
assert.equal(arb.check('u:1', 'can_proceed', 'doc:9').possibility, 1);
});
it('rejects cyclic evidence references at compile time', () => {
const { result } = compile(`
${DEFS}
evidence a(user: Employee, doc: Doc) { b(user, doc) }
evidence b(user: Employee, doc: Doc) { a(user, doc) }
`);
assert.equal(result.success, false);
assert.ok(result.errors.some(e => /[Cc]yclic/.test(e)), JSON.stringify(result.errors));
});
it('rejects self-referencing evidence at compile time', () => {
const { result } = compile(`
${DEFS}
evidence a(user: Employee, doc: Doc) { a(user, doc) }
`);
assert.equal(result.success, false);
assert.ok(result.errors.some(e => /[Cc]yclic/.test(e)), JSON.stringify(result.errors));
});
it('keeps the referenced evidence checkable in its own right', () => {
const { arb, result } = compile(`
${DEFS}
evidence can_read(user: Employee, doc: Doc) { owns(user, doc) }
evidence can_browse(user: Employee, doc: Doc) { can_read(user, doc) }
`);
assert.ok(result.success);
arb.addNode('u:1', 'Employee'); arb.addNode('doc:9', 'Doc');
arb.addRelation('u:1', 'owns', 'doc:9', { possibility: 0.5 });
assert.equal(arb.check('u:1', 'can_read', 'doc:9').possibility, 0.5);
assert.equal(arb.check('u:1', 'can_browse', 'doc:9').possibility, 0.5);
});
});
+14 -13
View File
@@ -45,6 +45,7 @@ const DSL_SUPPORT = `
fact isMember(user: any, group: any) fact isMember(user: any, group: any)
fact isFriend(user: any, friend: any) fact isFriend(user: any, friend: any)
fact similar(a: any, b: any) fact similar(a: any, b: any)
fact reachable(user: any, doc: any)
fact parentOf(user: any, parent: any) fact parentOf(user: any, parent: any)
fact isEditable(doc: any) fact isEditable(doc: any)
fact isPublic(doc: any) fact isPublic(doc: any)
@@ -159,7 +160,7 @@ describe('Evidence Rules', () => {
{ {
input: `evidence canRead(user: Employee, doc: Document) { input: `evidence canRead(user: Employee, doc: Document) {
isMember(user, *group) { isMember(user, *group) {
canRead(group, doc) reachable(group, doc)
} }
}`, }`,
description: 'Basic pattern matching with wildcard' description: 'Basic pattern matching with wildcard'
@@ -167,7 +168,7 @@ describe('Evidence Rules', () => {
{ {
input: `evidence canRead(user: Employee, doc: Document) { input: `evidence canRead(user: Employee, doc: Document) {
isMember(user, *group) { isMember(user, *group) {
canRead(group, doc) reachable(group, doc)
} limit 5 } limit 5
}`, }`,
description: 'Pattern matching with limit' description: 'Pattern matching with limit'
@@ -175,7 +176,7 @@ describe('Evidence Rules', () => {
{ {
input: `evidence canRead(user: Employee, doc: Document) { input: `evidence canRead(user: Employee, doc: Document) {
similar(doc, *similar) |similarity| { similar(doc, *similar) |similarity| {
canRead(user, similar) reachable(user, similar)
} with similarity > 0.7 } with similarity > 0.7
}`, }`,
description: 'Pattern matching with binding and condition' description: 'Pattern matching with binding and condition'
@@ -183,7 +184,7 @@ describe('Evidence Rules', () => {
{ {
input: `evidence canRead(user: Employee, doc: Document) { input: `evidence canRead(user: Employee, doc: Document) {
similar(doc, *similar) |similarity| { similar(doc, *similar) |similarity| {
canRead(user, similar) reachable(user, similar)
} limit 5 with similarity > 0.7 } limit 5 with similarity > 0.7
}`, }`,
description: 'Pattern matching with binding, condition, and limit' description: 'Pattern matching with binding, condition, and limit'
@@ -192,7 +193,7 @@ describe('Evidence Rules', () => {
input: `evidence canRead(user: Employee, doc: Document) { input: `evidence canRead(user: Employee, doc: Document) {
isMember(user, *group) { isMember(user, *group) {
isMember(group, *parentGroup) { isMember(group, *parentGroup) {
canRead(parentGroup, doc) reachable(parentGroup, doc)
} limit 2 } limit 2
} limit 3 } limit 3
}`, }`,
@@ -202,7 +203,7 @@ describe('Evidence Rules', () => {
input: `evidence canRead(user: Employee, doc: Document) { input: `evidence canRead(user: Employee, doc: Document) {
isFriend(user, *friend) { isFriend(user, *friend) {
isMember(friend, *group) { isMember(friend, *group) {
canRead(group, doc) reachable(group, doc)
} limit 1 } limit 1
} limit 5 } limit 5
}`, }`,
@@ -291,15 +292,15 @@ describe('Evidence Rules', () => {
owns(user, doc) owns(user, doc)
isMember(user, *group) { isMember(user, *group) {
canRead(group, doc) reachable(group, doc)
} limit 5 } limit 5
parentOf(user, *parent) { parentOf(user, *parent) {
canRead(parent, doc) reachable(parent, doc)
} limit 3 } limit 3
similar(doc, *similar) |similarity| { similar(doc, *similar) |similarity| {
canRead(user, similar) reachable(user, similar)
} limit 5 with similarity > 0.7 } limit 5 with similarity > 0.7
WHEN hasRole(user, 'admin') UNLESS isSuspended(user) WHEN hasRole(user, 'admin') UNLESS isSuspended(user)
@@ -337,11 +338,11 @@ describe('Evidence Rules', () => {
owns(user, doc) owns(user, doc)
isMember(user, *group) { isMember(user, *group) {
canModify(group, doc) reachable(group, doc)
} limit 3 } limit 3
similar(doc, *similar) |similarity| { similar(doc, *similar) |similarity| {
canModify(user, similar) reachable(user, similar)
isEditable(similar) isEditable(similar)
} limit 2 with similarity > 0.8 } limit 2 with similarity > 0.8
@@ -385,7 +386,7 @@ describe('Evidence Rules', () => {
{ {
input: `evidence canRead(user: Employee, doc: Document) { input: `evidence canRead(user: Employee, doc: Document) {
isMember(user, *group) { isMember(user, *group) {
canRead(group, doc) reachable(group, doc)
} with } with
}`, }`,
description: 'Incomplete with clause should fail' description: 'Incomplete with clause should fail'
@@ -393,7 +394,7 @@ describe('Evidence Rules', () => {
{ {
input: `evidence canRead(user: Employee, doc: Document) { input: `evidence canRead(user: Employee, doc: Document) {
isMember(user, *group) { isMember(user, *group) {
canRead(group, doc) reachable(group, doc)
} limit } limit
}`, }`,
description: 'Incomplete limit should fail' description: 'Incomplete limit should fail'
+16 -12
View File
@@ -105,6 +105,7 @@ describe('Integration Tests', () => {
fact hasAccess(user: Employee, resource: Resource, level: string) CACHE lazy fact hasAccess(user: Employee, resource: Resource, level: string) CACHE lazy
fact isColleague(user: any, colleague: any) symmetrical CACHE lazy limit 50 fact isColleague(user: any, colleague: any) symmetrical CACHE lazy limit 50
fact isParentOf(parent: Employee, child: Employee) transitive CACHE eager limit 3 fact isParentOf(parent: Employee, child: Employee) transitive CACHE eager limit 3
fact reachable(user: any, doc: any) CACHE lazy
fact hasClearance(user: Employee, level: string) CACHE eager fact hasClearance(user: Employee, level: string) CACHE eager
fact parentOf(user: any, parent: any) CACHE eager fact parentOf(user: any, parent: any) CACHE eager
fact similar(a: any, b: any) CACHE lazy fact similar(a: any, b: any) CACHE lazy
@@ -119,15 +120,15 @@ describe('Integration Tests', () => {
owns(user, doc) owns(user, doc)
isMember(user, *group) { isMember(user, *group) {
canRead(group, doc) reachable(group, doc)
} limit 5 } limit 5
parentOf(user, *parent) { parentOf(user, *parent) {
canRead(parent, doc) reachable(parent, doc)
} limit 3 } limit 3
similar(doc, *similar) |similarity| { similar(doc, *similar) |similarity| {
canRead(user, similar) reachable(user, similar)
} limit 5 with similarity > 0.7 } limit 5 with similarity > 0.7
WHEN hasRole(user, 'admin') UNLESS isSuspended(user) WHEN hasRole(user, 'admin') UNLESS isSuspended(user)
@@ -137,7 +138,7 @@ describe('Integration Tests', () => {
owns(user, doc) owns(user, doc)
isMember(user, *group) { isMember(user, *group) {
canWrite(group, doc) reachable(group, doc)
} limit 3 } limit 3
WHEN hasRole(user, 'admin') UNLESS isSuspended(user) WHEN hasRole(user, 'admin') UNLESS isSuspended(user)
@@ -330,6 +331,7 @@ describe('Integration Tests', () => {
fact isMember(user: any, org: any) transitive CACHE lazy limit 5 fact isMember(user: any, org: any) transitive CACHE lazy limit 5
fact isParentOf(parent: Organization, child: Organization) transitive CACHE eager limit 3 fact isParentOf(parent: Organization, child: Organization) transitive CACHE eager limit 3
fact reachable(user: any, doc: any) CACHE lazy
fact hasRole(user: Employee, role: string) CACHE eager fact hasRole(user: Employee, role: string) CACHE eager
fact hasClearance(user: Employee, level: string) CACHE eager fact hasClearance(user: Employee, level: string) CACHE eager
fact isSuspended(user: any) CACHE lazy fact isSuspended(user: any) CACHE lazy
@@ -339,7 +341,7 @@ describe('Integration Tests', () => {
isMember(user, org) isMember(user, org)
isParentOf(org, *parentOrg) { isParentOf(org, *parentOrg) {
canAccessOrg(user, parentOrg) reachable(user, parentOrg)
} limit 3 } limit 3
WHEN hasRole(user, 'admin') UNLESS isSuspended(user) WHEN hasRole(user, 'admin') UNLESS isSuspended(user)
@@ -347,11 +349,11 @@ describe('Integration Tests', () => {
evidence canAccessResource(user: Employee, resource: Resource) { evidence canAccessResource(user: Employee, resource: Resource) {
isMember(user, *org) { isMember(user, *org) {
canAccessResource(org, resource) reachable(org, resource)
} limit 5 } limit 5
parentOf(user, *parent) { parentOf(user, *parent) {
canAccessResource(parent, resource) reachable(parent, resource)
} limit 2 } limit 2
} }
`; `;
@@ -379,6 +381,7 @@ describe('Integration Tests', () => {
fact hasInterest(user: any, interest: string) CACHE lazy fact hasInterest(user: any, interest: string) CACHE lazy
fact hasTag(doc: any, tag: string) CACHE lazy fact hasTag(doc: any, tag: string) CACHE lazy
fact owns(user: any, doc: any) CACHE eager fact owns(user: any, doc: any) CACHE eager
fact reachable(user: any, doc: any) CACHE lazy
fact similar(a: any, b: any) CACHE lazy fact similar(a: any, b: any) CACHE lazy
fact isPublic(doc: any) CACHE eager fact isPublic(doc: any) CACHE eager
fact hasInterests(user: any) CACHE lazy fact hasInterests(user: any) CACHE lazy
@@ -390,12 +393,12 @@ describe('Integration Tests', () => {
owns(user, doc) owns(user, doc)
similar(doc, *similar) |similarity| { similar(doc, *similar) |similarity| {
canRead(user, similar) reachable(user, similar)
isPublic(similar) isPublic(similar)
} limit 10 with similarity > 0.7 } limit 10 with similarity > 0.7
isFriend(user, *friend) { isFriend(user, *friend) {
canRead(friend, doc) reachable(friend, doc)
} limit 5 } limit 5
fusion majority { fusion majority {
@@ -406,7 +409,7 @@ describe('Integration Tests', () => {
evidence canRecommend(user: Employee, doc: Document) { evidence canRecommend(user: Employee, doc: Document) {
similar(user, *similarUser) |similarity| { similar(user, *similarUser) |similarity| {
canRead(similarUser, doc) reachable(similarUser, doc)
} limit 20 with similarity > 0.8 } limit 20 with similarity > 0.8
fusion average { fusion average {
@@ -556,13 +559,14 @@ describe('Integration Tests', () => {
fact isFriend(user: any, friend: any) symmetrical CACHE eager limit 50 fact isFriend(user: any, friend: any) symmetrical CACHE eager limit 50
fact hasPermission(user: Employee, resource: Resource, action: string) CACHE eager fact hasPermission(user: Employee, resource: Resource, action: string) CACHE eager
fact owns(user: Employee, resource: Resource) CACHE eager fact owns(user: Employee, resource: Resource) CACHE eager
fact reachable(user: any, doc: any) CACHE lazy
// Optimized evidence rules // Optimized evidence rules
evidence canAccess(user: Employee, resource: Resource) { evidence canAccess(user: Employee, resource: Resource) {
owns(user, resource) owns(user, resource)
isMember(user, *group) { isMember(user, *group) {
canAccess(group, resource) reachable(group, resource)
} limit 3 } limit 3
WHEN hasPermission(user, resource, 'read') WHEN hasPermission(user, resource, 'read')
@@ -572,7 +576,7 @@ describe('Integration Tests', () => {
owns(user, resource) owns(user, resource)
isMember(user, *group) { isMember(user, *group) {
canModify(group, resource) reachable(group, resource)
} limit 2 } limit 2
WHEN hasPermission(user, resource, 'write') WHEN hasPermission(user, resource, 'write')
+52 -6
View File
@@ -32,7 +32,9 @@ const FACTS = `
fact can_access(group: Group, doc: Doc) fact can_access(group: Group, doc: Doc)
fact owner(group: Group, doc: Doc) fact owner(group: Group, doc: Doc)
fact granted(user: Employee, doc: Doc) fact granted(user: Employee, doc: Doc)
fact group_perm(group: Group, doc: Doc)
fact banned(user: Employee) fact banned(user: Employee)
fact group_banned(group: Group)
fact mfa(user: Employee) fact mfa(user: Employee)
`; `;
@@ -106,11 +108,52 @@ function buildProgram(kind, ps) {
oracle = pG * pM; oracle = pG * pM;
break; break;
} }
case 'composition': {
// can_via composes the direct evidence can_read, which reads the owns
// edge — an evidence-in-evidence reference resolved at compile time.
const [pOwn] = ps;
evidence = `evidence can_read(user: Employee, doc: Doc) { owns(user, doc) }
evidence can_via(user: Employee, doc: Doc) { can_read(user, doc) }`;
edges.push({ src: 'u:1', relation: 'owns', dst: 'doc:9', possibility: pOwn });
oracle = pOwn;
break;
}
case 'chain_step_composition': {
// group_read (a direct evidence) used as a CHAIN STEP inside can_via:
// the step is expanded at compile time to the underlying can_view edge.
const [pm, pv] = ps;
evidence = `evidence group_read(group: Group, doc: Doc) { group_perm(group, doc) }
evidence can_via(user: Employee, doc: Doc) { member_of(user, *g) { group_read(g, doc) } }`;
edges.push({ src: 'u:1', relation: 'member_of', dst: 'g:1', possibility: pm });
edges.push({ src: 'g:1', relation: 'group_perm', dst: 'doc:9', possibility: pv });
oracle = Math.min(pm, pv);
break;
}
case 'chain_condition_step': {
// gated (a defeasible evidence) as the FINAL chain step → a condition
// step: the engine verifies gated at (intermediate, object). The oracle
// is the chain's min combined with the condition's base*(1-defeat).
const [pm, pv, pb] = ps;
evidence = `evidence gated(group: Group, doc: Doc) { WHEN group_perm(group, doc) UNLESS group_banned(group) }
evidence can_via(user: Employee, doc: Doc) { member_of(user, *g) { gated(g, doc) } }`;
edges.push({ src: 'u:1', relation: 'member_of', dst: 'g:1', possibility: pm });
edges.push({ src: 'g:1', relation: 'group_perm', dst: 'doc:9', possibility: pv });
edges.push({ src: 'g:1', relation: 'group_banned', dst: 'g:1', possibility: pb });
oracle = Math.min(pm, pv * (1 - pb));
break;
}
default: default:
throw new Error(`unknown construct: ${kind}`); throw new Error(`unknown construct: ${kind}`);
} }
return { dsl: FACTS + evidence, edges, oracle, relation: evidence.match(/evidence (\w+)/)[1] }; return {
dsl: FACTS + evidence,
edges,
oracle,
// Check the LAST evidence declaration: the composition construct declares
// two evidences (can_read + can_via), and the composed one is the target.
relation: [...evidence.matchAll(/evidence\s+(\w+)/g)].at(-1)[1]
};
} }
function runCheck({ kind, ps }) { function runCheck({ kind, ps }) {
@@ -134,7 +177,8 @@ function runCheck({ kind, ps }) {
} }
const CONSTRUCTS = ['direct', 'chain', 'tuple_to_userset', 'fusion_min', 'fusion_max', const CONSTRUCTS = ['direct', 'chain', 'tuple_to_userset', 'fusion_min', 'fusion_max',
'when_unless', 'never_always', 'requires_when']; 'when_unless', 'never_always', 'requires_when', 'composition', 'chain_step_composition',
'chain_condition_step'];
describe('DSL generative oracle parity (rigor)', () => { describe('DSL generative oracle parity (rigor)', () => {
it('generated legal DSL compiles and every check matches the oracle', async () => { it('generated legal DSL compiles and every check matches the oracle', async () => {
@@ -145,7 +189,7 @@ describe('DSL generative oracle parity (rigor)', () => {
kind: rigor.gen.oneOf(CONSTRUCTS), kind: rigor.gen.oneOf(CONSTRUCTS),
// exactly two edge possibilities (direct uses only the first); // exactly two edge possibilities (direct uses only the first);
// a shorter array would leave pB undefined and produce a NaN oracle // a shorter array would leave pB undefined and produce a NaN oracle
ps: rigor.gen.tuple(rigor.gen.oneOf(P), rigor.gen.oneOf(P)) ps: rigor.gen.tuple(rigor.gen.oneOf(P), rigor.gen.oneOf(P), rigor.gen.oneOf(P))
}) })
)) ))
], ],
@@ -163,13 +207,14 @@ describe('DSL generative oracle parity (rigor)', () => {
}); });
it('exhaustive deterministic sweep: every construct x every possibility value', () => { it('exhaustive deterministic sweep: every construct x every possibility value', () => {
// Anti-vacuity complement to the campaign: sweep the full P × P grid per // Anti-vacuity complement to the campaign: sweep the full P × P × P grid
// construct without any RNG, so a construct the campaign skipped would // per construct without any RNG, so a construct the campaign skipped would
// still be caught here. // still be caught here.
for (const kind of CONSTRUCTS) { for (const kind of CONSTRUCTS) {
for (const a of P) { for (const a of P) {
for (const b of P) { for (const b of P) {
const ps = kind === 'direct' ? [a] : [a, b]; for (const c of P) {
const ps = kind === 'direct' ? [a] : [a, b, c];
const { dsl, edges, oracle, relation } = buildProgram(kind, ps); const { dsl, edges, oracle, relation } = buildProgram(kind, ps);
const arbiter = new Arbiter(); const arbiter = new Arbiter();
arbiter.addNode('u:1', 'Employee'); arbiter.addNode('u:1', 'Employee');
@@ -186,5 +231,6 @@ describe('DSL generative oracle parity (rigor)', () => {
} }
} }
} }
}
}); });
}); });
+15
View File
@@ -81,6 +81,21 @@ const MUTATIONS = {
desc: 'evidence declared with mismatched parameter arity', desc: 'evidence declared with mismatched parameter arity',
mustFail: true, mustFail: true,
apply: () => VALID_DSL.replace('evidence can_read(user: Employee, doc: Doc) { owns(user, doc) }', 'evidence can_read(user: Employee) { owns(user, doc) }') apply: () => VALID_DSL.replace('evidence can_read(user: Employee, doc: Doc) { owns(user, doc) }', 'evidence can_read(user: Employee) { owns(user, doc) }')
},
cyclic_evidence_ref: {
desc: 'two evidences referencing each other (cycle)',
mustFail: true,
apply: () => VALID_DSL + `
evidence can_cyc_a(user: Employee, doc: Doc) { can_cyc_b(user, doc) }
evidence can_cyc_b(user: Employee, doc: Doc) { can_cyc_a(user, doc) }`
},
cross_kind_collision: {
desc: 'fact and evidence sharing a relation name',
mustFail: true,
apply: () => VALID_DSL.replace(
'evidence can_read(user: Employee, doc: Doc) { owns(user, doc) }',
'fact can_read(user: Employee, doc: Doc)\n evidence can_read(user: Employee, doc: Doc) { owns(user, doc) }'
)
} }
}; };