tricu

io-core-probe.mjs (1624B)

---

 // Executes bare computation trees privately on native evaluators. Production IO
 // envelopes and terminal providers remain gated; no JS evaluator substitution.
 export async function run(_control,backend){
  const base=new URL('../',document.querySelector('script[type=module][src]').src);
  const fixtures=await(await fetch('/runtime-fixtures.json')).json(),checks=[];
  let execute,dispose;
   const {CompilerWorker}=await import(new URL('runtime/haskell/client.mjs',base));
   const client=new CompilerWorker();dispose=()=>client.dispose();await client.request({type:'init',compiler:false});
   execute=async fixture=>{await client.request({type:'load',bytes:new Uint8Array(fixture.bytes).buffer,hash:fixture.hash});return JSON.parse((await client.request({type:'io-core',name:'root',arguments:[]})).text);};
  const cases=[['pure','completed'],['bind','completed'],['scope','completed'],['child-0','failed'],['child-1','completed'],['unsupported','completed'],['discard-invalid','completed'],['terminal-2','failed'],['terminal-9','cancelled'],['malformed','failed']];
  try{
   for(const [name,kind]of cases){
    const out=await execute(fixtures['v2-run-'+name]);
    const expected={kind,value:kind==='completed'?'42':null,cleanup:0,tasks:{scopes:0,tasks:0,hosts:0},resources:{resources:0,admissions:0,leases:0},host:{pending:0,replies:0}};
    if(JSON.stringify(out)!==JSON.stringify(expected))throw Error(name+': '+JSON.stringify(out));
    checks.push(name);
   }
   for(let i=0;i<5;i++)await execute(fixtures['v2-run-scope']);
   checks.push('repeated run retirement and reuse');
  }finally{dispose();}
  return {backend,checks};
 }