diff options
| author | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-09-08 21:14:26 -0400 |
|---|---|---|
| committer | Marshall Lochbaum <mwlochbaum@gmail.com> | 2020-09-08 21:14:26 -0400 |
| commit | 2ff502e46f9d7e6929059479da2e160d0cbbf5de (patch) | |
| tree | 4bc056b8ffbdbd3e4f24cec4c7a68d8345b1bb07 /test/dz_comp | |
| parent | 176c78f51809ba3648d7a4cdedc78553df5904ae (diff) | |
Organize tests scripts a little better and add README
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 |