blob: 187c2bf856efae9abfc26f85b0b459c2e3fb7c38 (
plain)
1
2
3
4
5
6
7
|
#! /usr/bin/env dbqn
dRun ← ⟨"dRun"⟩ •EX •path∾"../dcshim.bqn"
c ← (¬"{"⊑∘∊⊢)¨⊸/ ∾(•LNS •path∾∾⟜"cases.bqn")¨""‿"b"
M ← {e‿b: (⍎e)⊸≢◶""‿{(•UCS 10)∾˜""""∾b∾""": expected "∾e∾" but received "∾⍕𝕩} DRun b}
r ← '%' M∘((+`-2⊸×)∘=⊔⊢)¨ c
• ← "All passed!"⍟(0=≠) ∾r
|
