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