Allow test cases to require failure with "! % test"

1 files changed, 6 insertions, 3 deletions

diff --git a/test/js b/test/js
index 0f09b0a9..3f1bcced 100755
--- a/test/js
+++ b/test/js
@@ -12,14 +12,17 @@ let files = onfiles ? args.slice(1) : ['simple','syntax'];
 if (onfiles || args.length==0) {
   let t = [].concat.apply([],files.map(cases));
   let test = t.map(e=>e[1]);
-  let expt = t.map(e=>+e[0]);
+  let expt = t.map(e=>e[0]==='!'?null:+e[0]);
 
-  let rslt = test.map(bqn);
+  let rslt = test.map(t => {try{return bqn(t);}catch(e){return null;}});
   let pass = rslt.map((r,i)=>r===expt[i]);
   let fail = pass.map((p,i)=>p?-1:i).filter(i=>i>=0);
   console.log(
       fail.length
-      ? fail.map(i=>'"'+test[i]+'": expected '+expt[i]+' but received '+rslt[i])
+      ? fail.map(i=>'"'+test[i]+'": expected '
+                   +(e=>e===null?'to fail':e)(expt[i])
+                   +' but '
+                   +(r=>r===null?'evaluation failed':'received '+r)(rslt[i]))
       : "All "+test.length+" passed!"
   );
 } else {