blob: 373bb5f09d4657a791a361426a47fa7995facba1 (
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
|
