From dac0ef523cbd97e5c8df8678489ef0b9c57badfb Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 14 Apr 2021 22:17:26 -0400
Subject: Generic test script to run in any BQN

---
 test/this | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 test/this

(limited to 'test')

diff --git a/test/this b/test/this
new file mode 100644
index 00000000..179bc0fa
--- /dev/null
+++ b/test/this
@@ -0,0 +1,19 @@
+files ← ⟨"syntax"⟩⍟(0=≠) ('-'≠⊑)¨⊸/ •args
+
+Native ← Exec ← •BQN
+
+Cases ← (0<≠)◶0‿('#'≠⊑)¨⊸/ · •FLines "cases/"∾∾⟜".bqn"
+c ← ∾ Cases¨ files
+Trim ← ((∨`∧∨`⌾⌽)' '⊸≠)⊸/
+M ← {e‿b←𝕩
+  Msg ← {∾⟨
+    """",b,""": expected "
+    "to fail"⍟("!"⊸≡)e
+    " but "
+    0⊸≡◶⟨"received "∾·•Fmt⊑,"evaluation failed"⟩𝕩
+    ⥊@+10
+  ⟩}
+  ("!"⊸≡◶⟨<Native,0˙⟩ e) ≢◶""‿Msg <∘Exec⎊0 b
+}
+r ← (M '%'⊸= (∨´⊣)◶⟨"1"≍○<⊢, Trim¨(+`-2⊸×)⊸⊔⟩ ⊢)¨ c
+•Out ("All "∾(•Fmt≠c)∾" passed!")⍟(0=≠) ¯1↓∾r
-- 
cgit v1.2.3