Allow running reference tests with -ref in test/bt

1 files changed, 3 insertions, 1 deletions

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