diff options
Diffstat (limited to 'test/dz_comp')
| -rwxr-xr-x | test/dz_comp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/dz_comp b/test/dz_comp new file mode 100755 index 00000000..52dbcc51 --- /dev/null +++ b/test/dz_comp @@ -0,0 +1,8 @@ +#! /usr/bin/env dbqn + +dRun ← •EX •path∾"../dc.bqn" +c ← ∾(•LNS •path∾∾⟜"cases.bqn")¨""‿"b" +{𝕩: c ∾↩ (¬":"⊑∘∊⊢)¨⊸/ "1 %"⊸∾¨ (3≤≠)◶0‿(('#'≠2⊸⊑)∧" "≡2⊸↑)¨⊸/ •LNS •path∾"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 |