From 60867dcb5d3aa8f04dbc7b8cb3d0f97a1c15f6eb Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Tue, 1 Jun 2021 16:59:01 -0400
Subject: Report tests to be run and number of failures

---
 test/this.bqn | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/test/this.bqn b/test/this.bqn
index 296a00c1..731cee10 100644
--- a/test/this.bqn
+++ b/test/this.bqn
@@ -6,6 +6,12 @@ Native ← Exec ← •BQN
 
 c ← ∾ ((0<≠)◶0‿('#'≠⊑)¨⊸/ · •FLines "cases/"⊸∾)¨ files
 c ↩ ('!'≠⊑)¨⊸/⍟noerr c
+•Out 1↓∾' '⊸∾¨∾⟨
+  ⟨"Running",•Repr≠c,"tests:"⟩
+  noerr/⟨"(error cases excluded)"⟩
+  ¯4↓¨files
+⟩
+
 Trim ← ((∨`∧∨`⌾⌽)' '⊸≠)⊸/
 M ← {e‿b←𝕩
   Msg ← {∾⟨
@@ -13,9 +19,8 @@ M ← {e‿b←𝕩
     "to fail"⍟("!"⊸≡)e
     " but "
     0⊸≡◶⟨"received "∾·•Repr⊑,"evaluation failed"⟩𝕩
-    ⥊@+10
   ⟩}
-  ("!"⊸≡◶⟨<Native,0˙⟩ e) ≢◶""‿Msg <∘Exec⎊0 b
+  ("!"⊸≡◶⟨<Native,0˙⟩ e) ≢◶⟨0,1∘•Out∘Msg⟩ <∘Exec⎊0 b
 }
 r ← (M '%'⊸= (∨´⊣)◶⟨"1"≍○<⊢, Trim¨(+`-2⊸×)⊸⊔⟩ ⊢)¨ c
-•Out ("All "∾(•Repr≠c)∾" passed!")⍟(0=≠) ¯1↓∾r
+•Out 0⊸<◶⟨"All passed!",•Repr∾" failed!"˙⟩ +´r
-- 
cgit v1.2.3