aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-07-23 15:46:35 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-07-23 15:47:08 -0400
commitb3b3ff6c79718925d4f8b26119da871dc51537ec (patch)
tree6c40fdb29672ad4346415f6ea5a4f7ac6eb6b3a0 /test
parentd693585bb55b3c465d64f28d5de1a0930d2dd3a6 (diff)
Support immediate blocks in dzaima/BQN bytecode backend
Diffstat (limited to 'test')
-rwxr-xr-xtest/bt5
1 files changed, 2 insertions, 3 deletions
diff --git a/test/bt b/test/bt
index 29c1e1e5..c5ca1399 100755
--- a/test/bt
+++ b/test/bt
@@ -1,9 +1,8 @@
#! /usr/bin/env dbqn
dRun ← ⟨"dRun"⟩ •EX •path∾"../cshim.bqn"
-l ← ∾(•LNS •path∾∾⟜"cases.bqn")¨""‿"b"
-{ l ∾↩ "1 %"⊸∾¨ (3≤≠)◶0‿(('#'≠2⊸⊑)∧" "≡2⊸↑)¨⊸/ •LNS •path∾"testref.bqn" }⍟⊢(<"-ref")∊•args
-c ← (¬"{"⊑∘∊⊢)¨⊸/ l
+c ← ∾(•LNS •path∾∾⟜"cases.bqn")¨""‿"b"
+{ c ∾↩ (¬"{"⊑∘∊⊢)¨⊸/ "1 %"⊸∾¨ (3≤≠)◶0‿(('#'≠2⊸⊑)∧" "≡2⊸↑)¨⊸/ •LNS •path∾"testref.bqn" }⍟⊢(<"-ref")∊•args
M ← {e‿b: (⍎e)⊸≢◶""‿{(•UCS 10)∾˜""""∾b∾""": expected "∾e∾" but received "∾⍕𝕩} DRun b}
r ← '%' M∘((+`-2⊸×)∘=⊔⊢)¨ c
• ← ("All "∾(⍕≠c)∾" passed!")⍟(0=≠) ∾r