From fb42464503d4e5cef90bf2969f899fedd06f0efa Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 3 Apr 2021 14:15:14 -0400
Subject: Extend test/exe to test all non-error cases

---
 test/exe | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'test/exe')

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
-- 
cgit v1.2.3