tricu

asset-cache-probe.mjs (4629B)

---

 // Count requests at the server: cached DevTools entries are not network traffic.
 const el=id=>document.getElementById(id),delay=ms=>new Promise(r=>setTimeout(r,ms));
 const assert=(ok,message)=>{if(!ok)throw Error(message);};
 async function status(wanted){for(let i=0;i<4500;i++){if(el('status').textContent===wanted)return;await delay(20);}throw Error('Waiting for '+wanted+': '+el('status').textContent+' '+el('compile-diagnostic').textContent);}
 const change=(id,value)=>{el(id).value=value;el(id).dispatchEvent(new Event('change'));};
 const input=(id,value)=>{el(id).value=value;el(id).dispatchEvent(new Event('input'));};
 export async function run(control,backend='haskell-wasm'){
  await status('Ready');
  if(el('runtime-backend').value!==backend){change('runtime-backend',backend);await status('Ready');}
  const base=new URL('../',document.querySelector('script[type=module][src]').src);
  assert(/\/assets\/[a-f0-9]{64}\/$/.test(base.pathname),'Testing a versioned release');
  const html=await fetch(new URL('index.html?noProbe=1',location.href));
  assert(html.headers.get('Cache-Control')==='no-cache','HTML selects the current release through revalidation');
  const metadata=await fetch(new URL('compiler.json',base));
  assert(metadata.headers.get('Cache-Control')==='public, max-age=31536000, immutable','Metadata shares the immutable release');
  const requests=async()=>await(await fetch(control+'/requests')).json();
  const code=paths=>paths.filter(p=>p.startsWith(base.pathname)&&/\.(?:js|mjs|wasm)(?:\?|$)/.test(p));
  const evaluate=async()=>{input('expression-editor','42');change('output-type','number');change('mode','pure');el('run').click();await status('Finished');assert(el('result').textContent==='42','Evaluation works');};
  await evaluate(); // Warm the compiler and expression path too.
  const warm=code(await requests());assert(warm.length>=5,'Network observed the initial dependency graph');
  for(const name of ['rgb','microscope','names-values']){
   change('program-picker','demo:'+name);await status('Ready');await evaluate();
  }
  input('source-editor','!export answer\nanswer = 42');await status('Compiled');
  await evaluate();
  // A compile may introduce additional code; warm it before the repeat check.
  const compiled=code(await requests());
  input('source-editor','!export answer\nanswer = 43');await status('Compiled');await evaluate();
  input('expression-editor','(x : x x) (x : x x)');el('run').click();await status('Running');
  el('stop-run').click();await status('Stopped');
  input('source-editor','!export answer\nanswer = 44');await status('Compiled');await evaluate();
  // The separately cancellable local-file validator has its own module Worker.
  const catalogue=await(await fetch(new URL('catalogue.json',base))).json();
  const bytes=await(await fetch('/_arboricx/bundle/hash/'+catalogue[0].hash)).arrayBuffer();
  const open=()=>{const transfer=new DataTransfer();transfer.items.add(new File([bytes],'module.arboricx'));el('local-module-file').files=transfer.files;el('local-module-file').dispatchEvent(new Event('change'));};
  const checked=async()=>{for(let i=0;i<3000;i++){if(!el('local-module-file').disabled&&el('local-module-list').children.length===1)return;await delay(20);}throw Error('Local validation failed');};
  // Check runtime code reuse before warming the additional validator entrypoint.
  const afterStop=code(await requests());
  assert(JSON.stringify(afterStop)===JSON.stringify(compiled),'Fresh compile/Stop Workers reuse cached code: '+JSON.stringify(afterStop.slice(compiled.length)));
  open();await checked();const localWarm=code(await requests());open();await checked();
  const final=code(await requests());
  assert(JSON.stringify(final)===JSON.stringify(localWarm),'Local validator Workers reuse cached code: '+JSON.stringify(final.slice(localWarm.length)));
 
  const counts=new Map();for(const p of final)counts.set(p,(counts.get(p)||0)+1);
  assert([...counts.values()].every(n=>n===1),'Demo changes and fresh Workers fetch each code URL once: '+JSON.stringify([...counts].filter(([,n])=>n>1)));
  // Errors remain retryable; an unknown release must not alias current bytes.
  const missing=new URL(base.href.replace(/assets\/[a-f0-9]{64}/,'assets/'+'0'.repeat(64))+'dist/app.js');
  const response=await fetch(missing);assert(response.status===404,'Unknown release is missing');assert(response.headers.get('Cache-Control')==='no-store','Errors are not cached');
  return {userAgent:navigator.userAgent,checks:['versioned graph; demo switching; Stop/recompile; local validation; each code URL fetched once; missing release no-store'],codeRequests:final.length};
 }