diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-04-14 22:17:26 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-04-14 22:17:26 -0400 |
| commit | dac0ef523cbd97e5c8df8678489ef0b9c57badfb (patch) | |
| tree | b083ae44342c038e42cab9cf7dc9b863ac8dcf2d | |
| parent | c04ec4914b6be77d29acc15915b60c072baa6849 (diff) | |
Generic test script to run in any BQN
| -rw-r--r-- | test/this | 19 |
1 files changed, 19 insertions, 0 deletions
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 |