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