From 4944dee972f9ac492f3e6afb8518465100b596e3 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Wed, 8 Jul 2020 09:25:07 -0400
Subject: Supppport trains in bytecode backend

---
 test/bcases.bqn | 3 +++
 test/bt         | 7 ++++---
 2 files changed, 7 insertions(+), 3 deletions(-)
 create mode 100644 test/bcases.bqn

(limited to 'test')

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