From eca947a293bcd76faf8d1323ce7ee5f6bf86e76d Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sun, 12 Jul 2020 19:40:08 -0400
Subject: Allow running reference tests with -ref in test/bt

---
 test/bt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'test')

diff --git a/test/bt b/test/bt
index 187c2bf8..7dc27055 100755
--- a/test/bt
+++ b/test/bt
@@ -1,7 +1,9 @@
 #! /usr/bin/env dbqn
 
 dRun ← ⟨"dRun"⟩ •EX •path∾"../dcshim.bqn"
-c ← (¬"{"⊑∘∊⊢)¨⊸/ ∾(•LNS •path∾∾⟜"cases.bqn")¨""‿"b"
+l ← ∾(•LNS •path∾∾⟜"cases.bqn")¨""‿"b"
+{ l ∾↩ "1 %"⊸∾¨ (3≤≠)◶0‿(('#'≠2⊸⊑)∧"  "≡2⊸↑)¨⊸/ •LNS •path∾"testref.bqn" }⍟⊢(<"-ref")∊•args
+c ← (¬"{"⊑∘∊⊢)¨⊸/ l
 M ← {e‿b: (⍎e)⊸≢◶""‿{(•UCS 10)∾˜""""∾b∾""": expected "∾e∾" but received "∾⍕𝕩} DRun b}
 r ← '%' M∘((+`-2⊸×)∘=⊔⊢)¨ c
 • ← "All passed!"⍟(0=≠) ∾r
-- 
cgit v1.2.3