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

1 files changed, 8 insertions, 2 deletions

diff --git a/test/dz_comp b/test/dz_comp
index f8d69c57..49847fef 100755
--- a/test/dz_comp
+++ b/test/dz_comp
@@ -30,8 +30,14 @@ Cases ← (0<≠)◶0‿('#'≠⊑)¨⊸/ · •FLines "cases/"∾∾⟜".bqn"
 c ← ∾ Cases¨ files
 Trim ← ((∨`∧∨`⌾⌽)' '⊸≠)⊸/
 M ← {e‿b:
-  Msg ← {(@+10)∾˜""""∾b∾""": expected "∾e∾" but "∾0⊸≢◶⟨"evaluation failed","received "∾·⍕⊑⟩𝕩}
-  (<Native e) ≢◶""‿Msg <∘Exec⎊0 b
+  Msg ← {∾⟨
+    """",b,""": expected "
+    "to fail"⍟("!"⊸≡)e
+    " but "
+    0⊸≡◶⟨"received "∾·⍕⊑,"evaluation failed"⟩𝕩
+    ⥊@+10
+  ⟩}
+  ("!"⊸≡◶⟨<Native,0˙⟩ e) ≢◶""‿Msg <∘Exec⎊0 b
 }
 r ← (M '%'⊸= (∨´⊣)◶⟨"1"≍○<⊢, Trim¨(+`-2⊸×)⊸⊔⟩ ⊢)¨ c
 •Out ("All "∾(⍕≠c)∾" passed!")⍟(0=≠) ∾r