aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorMarshall Lochbaum <mwlochbaum@gmail.com>2020-10-17 15:26:58 -0400
committerMarshall Lochbaum <mwlochbaum@gmail.com>2020-10-17 15:26:58 -0400
commit5c6c1c73832759cfa1e89705a26b4f90b140a819 (patch)
tree2631b4fbeb6a7afb907fdd563c1bbdd2db69c4fc /test
parent2d381ac8c137d5fc3eb33213c1684c25d6d6e5de (diff)
Remove unnecessary uses of •path now that •Import imcorporates it
Diffstat (limited to 'test')
-rwxr-xr-xtest/dz_comp6
-rwxr-xr-xtest/dz_rt6
2 files changed, 6 insertions, 6 deletions
diff --git a/test/dz_comp b/test/dz_comp
index 73806102..251d7232 100755
--- a/test/dz_comp
+++ b/test/dz_comp
@@ -1,8 +1,8 @@
#! /usr/bin/env dbqn
-⟨DRun⟩ ← •Import •path∾"../dc.bqn"
-c ← ∾(•LNS •path∾∾⟜"cases.bqn")¨""‿"b"
-{𝕩: c ∾↩ (¬":"⊑∘∊⊢)¨⊸/ "1 %"⊸∾¨ (3≤≠)◶0‿(('#'≠2⊸⊑)∧" "≡2⊸↑)¨⊸/ •LNS •path∾"prim.bqn" }⍟⊢⊑(<"-prim")∊•args
+⟨DRun⟩ ← •Import "../dc.bqn"
+c ← ∾(•LNS ∾⟜"cases.bqn")¨""‿"b"
+{𝕩: c ∾↩ (¬":"⊑∘∊⊢)¨⊸/ "1 %"⊸∾¨ (3≤≠)◶0‿(('#'≠2⊸⊑)∧" "≡2⊸↑)¨⊸/ •LNS "prim.bqn" }⍟⊢⊑(<"-prim")∊•args
M ← {e‿b: (⍎e)⊸≢◶""‿{(@+10)∾˜""""∾b∾""": expected "∾e∾" but received "∾⍕𝕩} DRun b}
r ← '%' M∘((+`-2⊸×)∘=⊔⊢)¨ c
• ← ("All "∾(⍕≠c)∾" passed!")⍟(0=≠) ∾r
diff --git a/test/dz_rt b/test/dz_rt
index 06d08adb..c8ac208e 100755
--- a/test/dz_rt
+++ b/test/dz_rt
@@ -2,9 +2,9 @@
# Compile and run the primitive implementations, and prim.bqn
-impl ← •LNS •path∾"../src/r.bqn"
+impl ← •LNS "../src/r.bqn"
-⟨DRun⟩ ← •Import •path∾"../dc.bqn"
+⟨DRun⟩ ← •Import "../dc.bqn"
chrs←⟨
"!+-×÷⋆√⌊⌈∧∨¬|=≠≤<>≥≡≢⊣⊢⥊∾≍↑↓↕«»⌽⍉/⍋⍒⊏⊑⊐⊒∊⍷⊔"
@@ -55,6 +55,6 @@ E_redef ← { # handles [fmd] [←↩]
}
pre ∾↩ E_isdef◶E_proc‿E_redef¨ impl
-t ← (¬∘⊑':'∊⊢)¨⊸/ 3⊸↓⌾(3⊸⊑) •LNS •path∾"prim.bqn"
+t ← (¬∘⊑':'∊⊢)¨⊸/ 3⊸↓⌾(3⊸⊑) •LNS "prim.bqn"
res ← DRun ∾ ∾⟜(@+10)¨ pre ∾ E_proc¨ t
• ← ("All "∾(⍕≠res)∾" passed!")⍟(0=≠) /res