From ec405358bdbfc9ae3139daf1b26a7cbf03a4df8d Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 15 Dec 2020 10:07:15 -0500
Subject: Proper reporting for failed execution in test/dz_comp

---
 test/dz_comp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'test')

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