blob: a65dc717f6f24811f41cc1daeadfc391d2b82c42 (
plain)
1
2
3
4
5
6
7
8
|
#! /usr/bin/env dbqn
⟨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
•Out ("All "∾(⍕≠c)∾" passed!")⍟(0=≠) ∾r
|
