aboutsummaryrefslogtreecommitdiff
path: root/test/exe
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2021-04-03 14:15:14 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2021-04-03 14:15:14 -0400
commitfb42464503d4e5cef90bf2969f899fedd06f0efa (patch)
tree0f7bdbcbcf01598a5d12fb6f5b52e727c704bed9 /test/exe
parentfce1044b648a3b568ccc080acf2d554ae8251c84 (diff)
Extend test/exe to test all non-error cases
Diffstat (limited to 'test/exe')
-rwxr-xr-xtest/exe10
1 files changed, 7 insertions, 3 deletions
diff --git a/test/exe b/test/exe
index fdf0acd3..73c874dc 100755
--- a/test/exe
+++ b/test/exe
@@ -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