Report tests to be run and number of failures

1 files 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