make cells test work under heapverify

disables checking whether the result is correct, which is not important during heapverify
This commit is contained in:
dzaima 2024-06-26 03:43:10 +03:00
parent b6bf3f2da6
commit 8e7f19a883
2 changed files with 4 additions and 3 deletions

View File

@ -29,6 +29,7 @@
%USE tcc _tcc 428 1_tcc 428 _tcc 42 1_tcc 42
(
%USE IS_HEAPVERIFY
# big ˝˘ & `˘ tester
_basicArgs { Test _𝕣 ranks:
{𝕊f: {{! f Test 01˜ 𝕩024832}¨ 𝕩3 1}¨ ranks}¨ +=
@ -36,8 +37,8 @@
# TODO replace ○⊢ with some pureness-preserving •internal.Keep
# w F _thing x tests F _thing⎉w x
_testFoldCells {´𝕗=? 0=×´𝕨𝕩? 1; (𝔽˝𝕨 𝔽˝𝕨) 𝕩}
_testScanCells { (𝔽`𝕨 𝔽`𝕨) 𝕩}
_testFoldCells {´𝕗=? 0=×´𝕨𝕩? 1; heapverify? 0=𝕩? 1 𝔽˝𝕨 𝕩; (𝔽˝𝕨 𝔽˝𝕨) 𝕩}
_testScanCells { heapverify? 0=𝕩? 1 𝔽`𝕨 𝕩; (𝔽`𝕨 𝔽`𝕨) 𝕩}
{1 𝕨 _testFoldCells 𝕩} _basicArgs 234
{1 𝕨 _testScanCells 𝕩} _basicArgs 234

View File

@ -63,7 +63,7 @@ searchRefine ← {
exitCode 0
Run { 𝕊 testname:
lns •FLines fullfile "cases"•file.At filename testname".bqn"
defkdefv
defkdefv "IS_HEAPVERIFY""heapverify←"•Repr o.heapverify
i 0
Pos {filename, ":", •Repr 1+𝕩}
Next {𝕊: (i+1) ilns}