Supppport trains in bytecode backend

2 files changed, 7 insertions, 3 deletions

diff --git a/test/bcases.bqn b/test/bcases.bqn
new file mode 100644
index 00000000..93388d41
--- /dev/null
+++ b/test/bcases.bqn
@@ -0,0 +1,3 @@
+-4   % (⌈-)4+÷2
+3    % √5(+×-)4
+1    % 4((¬=)∧¬=1+-)6
diff --git a/test/bt b/test/bt
index 4dc0ab21..a6b8eeb3 100755
--- a/test/bt
+++ b/test/bt
@@ -1,6 +1,7 @@
 #! /usr/bin/env dbqn
 
 dRun ← ⟨"dRun"⟩ •EX •path∾"../dcshim.bqn"
-c ← (¬"{"⊑∘∊⊢)¨⊸/ •LNS •path∾"cases.bqn"
-p ← '%' ⍎⊸≡⟜DRun´∘((+`-2⊸×)∘=⊔⊢)¨ c
-• ← "All passed!"⍟(0=≠) /¬p
+c ← (¬"{"⊑∘∊⊢)¨⊸/ ∾(•LNS •path∾∾⟜"cases.bqn")¨""‿"b"
+M ← {e‿b: (⍎e)⊸≢◶""‿{(•UCS 10)∾˜""""∾b∾""": expected "∾e∾" but received "∾𝕩} DRun b}
+r ← '%' M∘((+`-2⊸×)∘=⊔⊢)¨ c
+• ← "All passed!"⍟(0=≠) ∾r