diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-04-22 20:57:13 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-04-22 20:57:13 -0400 |
| commit | 629b28bd1a34591b5cade195dfb810357bb57cc1 (patch) | |
| tree | 8ecb195141d13e94c80ad8632f7129e9b0701a63 /test/this.bqn | |
| parent | 46b80d891117b04ec032c3087c2271c4bc518840 (diff) | |
Rename test/this to test/this.bqn
Diffstat (limited to 'test/this.bqn')
| -rw-r--r-- | test/this.bqn | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/test/this.bqn b/test/this.bqn new file mode 100644 index 00000000..179bc0fa --- /dev/null +++ b/test/this.bqn @@ -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 |