add a way to define whole-file tests with test/run.bqn
This commit is contained in:
parent
7d55317ec4
commit
5d7caab374
@ -78,6 +78,12 @@ searchRefine ← {
|
|||||||
exitCode ← 0
|
exitCode ← 0
|
||||||
Run ← { 𝕊 testname:
|
Run ← { 𝕊 testname:
|
||||||
lns ← •FLines fullfile ← "cases"•file.At filename ← ".bqn" ∾˜⍟(⊣≢-∘≠⊸↑) testname
|
lns ← •FLines fullfile ← "cases"•file.At filename ← ".bqn" ∾˜⍟(⊣≢-∘≠⊸↑) testname
|
||||||
|
{
|
||||||
|
1≤≠lns?
|
||||||
|
"### WHOLE-FILE-TEST" ≡ ⊑lns?
|
||||||
|
lns ↩ ⟨"("⟩∾(1↓lns)∾⟨")"⟩
|
||||||
|
;@
|
||||||
|
}
|
||||||
defk‿defv ← ⟨"IS_HEAPVERIFY"⟩‿⟨"heapverify←"∾•Repr o.heapverify⟩
|
defk‿defv ← ⟨"IS_HEAPVERIFY"⟩‿⟨"heapverify←"∾•Repr o.heapverify⟩
|
||||||
i ← 0
|
i ← 0
|
||||||
Pos ← {∾⟨filename, ":", •Repr 1+𝕩⟩}
|
Pos ← {∾⟨filename, ":", •Repr 1+𝕩⟩}
|
||||||
@ -89,7 +95,7 @@ Run ← { 𝕊 testname:
|
|||||||
;
|
;
|
||||||
"":@
|
"":@
|
||||||
;
|
;
|
||||||
'#'≡⊑𝕩? @
|
'#'≡⊑𝕩? ¬⊑(@+10)∊𝕩? @
|
||||||
;
|
;
|
||||||
"("≡𝕩?
|
"("≡𝕩?
|
||||||
Process ∾ ∾⟜(@+10)¨ ¯1↓ ∾⟜<⟜Next•_while_{")"≢¯1⊑𝕩} ⟨Next@⟩
|
Process ∾ ∾⟜(@+10)¨ ¯1↓ ∾⟜<⟜Next•_while_{")"≢¯1⊑𝕩} ⟨Next@⟩
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user