diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-04-03 14:15:14 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2021-04-03 14:15:14 -0400 |
| commit | fb42464503d4e5cef90bf2969f899fedd06f0efa (patch) | |
| tree | 0f7bdbcbcf01598a5d12fb6f5b52e727c704bed9 /test | |
| parent | fce1044b648a3b568ccc080acf2d554ae8251c84 (diff) | |
Extend test/exe to test all non-error cases
Diffstat (limited to 'test')
| -rwxr-xr-x | test/exe | 10 |
1 files changed, 7 insertions, 3 deletions
@@ -7,10 +7,14 @@ files‿exe ← •args ⊔˜ 2 ∾˜ ⊑◶⟨1⌾⊑,«⊸(⊣-<)⟩ ∨`⌾ files ↩ ⟨"prim"⟩⍟(0=≠) files -Include ← '%'⊸(∧´≠) ∧ (0<≠)◶0‿('#'≠⊑) +Include ← ("! %"≢3⊸↑) ∧ (0<≠)◶0‿('#'≠⊑) Cases ← Include¨⊸/ · •FLines "cases/"∾∾⟜".bqn" c ← ∾ Cases¨ files -code‿r‿err ← {inp⇐∾∾⟜(@+10)¨c∾⟨""⟩} •SH exe +Trim ← ((∨`∧∨`⌾⌽)' '⊸≠)⊸/ +i‿e ← <˘⍉> ('%'⊸= (∨´⊣)◶⟨"1"≍○<⊢, Trim¨(+`-2⊸×)⊸⊔⟩ ⊢)¨ c + +lf ← @+10 +code‿r‿err ← {inp⇐∾∾⟜lf¨i∾⟨""⟩} •SH exe err ! 0≡code -rv ← •BQN "⟨"∾r∾"⟩" +rv ← (•BQN¨e) = (•BQN "⟨"∾r∾"⟩") •Out (0<≠)◶⟨"All "∾(⍕≠c)∾" passed!"˙,(⍕≠)∾" failed!"˙⟩ /1≢¨rv |
