tricu

zig-negative-fixtures.mjs (1654B)

---

 // Constructor-only security fixtures, independent of the compiler/evaluator.
 import {makeBundle} from './bundle-fixture.mjs';
 import {createHash} from 'node:crypto';
 export function fixtures(){
  const result={};
  const fixture=(name,build)=>{
   const nodes=[],memo=new Map();
   const node=(...children)=>{const key=children.join(',');if(memo.has(key))return memo.get(key);const id=nodes.length;nodes.push(children);memo.set(key,id);return id;};
   const leaf=node(),fork=(a,b)=>node(a,b),num=n=>n===0?leaf:fork(n%2?node(leaf):leaf,num(Math.floor(n/2)));
   const list=xs=>xs.reduceRight((tail,x)=>fork(x,tail),leaf),text=s=>list(Array.from(s,c=>num(c.codePointAt(0))));
   const action=(tag,payload)=>fork(num(tag),payload),constant=t=>fork(leaf,t);
   const io=(value,version=1)=>fork(text('tricuIO'),fork(num(version),value));
   const root=build({leaf,fork,num,text,action,constant,io});const bytes=makeBundle(nodes,[['root',root]]);
   result[name]={bytes:[...bytes],hash:createHash('sha256').update(bytes).digest('hex')};
  };
  fixture('version',x=>x.io(x.action(0,x.leaf),2));
  fixture('unsupported',x=>x.io(x.action(99,x.leaf)));
  fixture('abort',x=>{let t=x.leaf;for(let i=0;i<40;i++)t=x.fork(t,t);return x.io(x.action(2,t));});
  fixture('output',x=>{let a=x.action(0,x.leaf);const write=x.action(10,x.text('x'.repeat(4096)));for(let i=0;i<5;i++)a=x.action(1,x.fork(write,x.constant(a)));return x.io(a);});
  fixture('actions',x=>{let a=x.action(0,x.leaf);for(let i=0;i<65;i++)a=x.action(1,x.fork(x.action(0,x.leaf),x.constant(a)));return x.io(a);});
  fixture('sharing',x=>{let t=x.leaf;for(let i=0;i<40;i++)t=x.fork(t,t);return t;});
  return result;
 }