diff options
| -rw-r--r-- | test/this.bqn | 11 |
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 |