actually test for correctness

This commit is contained in:
dzaima 2024-06-26 04:21:46 +03:00
parent 8e7f19a883
commit 445da5a659

View File

@ -32,13 +32,13 @@
%USE IS_HEAPVERIFY
# big ˝˘ & `˘ tester
_basicArgs { Test _𝕣 ranks:
{𝕊f: {{! f Test 01˜ 𝕩024832}¨ 𝕩3 1}¨ ranks}¨ +=
{𝕊f: {{f Test 01˜ 𝕩024832}¨ 𝕩3 1}¨ ranks}¨ +=
}
# TODO replace ○⊢ with some pureness-preserving •internal.Keep
# w F _thing x tests F _thing⎉w x
_testFoldCells {´𝕗=? 0=×´𝕨𝕩? 1; heapverify? 0=𝕩? 1 𝔽˝𝕨 𝕩; (𝔽˝𝕨 𝔽˝𝕨) 𝕩}
_testScanCells { heapverify? 0=𝕩? 1 𝔽`𝕨 𝕩; (𝔽`𝕨 𝔽`𝕨) 𝕩}
_testFoldCells {´𝕗=? 0=×´(-𝕨)𝕩? 1; heapverify? 0=𝕩? 1 𝔽˝𝕨 𝕩; ! (𝔽˝𝕨 𝔽˝𝕨) 𝕩}
_testScanCells { heapverify? 0=𝕩? 1 𝔽`𝕨 𝕩; ! (𝔽`𝕨 𝔽`𝕨) 𝕩}
{1 𝕨 _testFoldCells 𝕩} _basicArgs 234
{1 𝕨 _testScanCells 𝕩} _basicArgs 234
@ -54,5 +54,5 @@
cr 𝕎 _testFoldCells 𝕩
cr 𝕎 _testScanCells 𝕩
} {0=×´sh? 𝕩; 𝕩, ¬¨ 𝕩, ¬(¯1)¨ 𝕩} sh¨ 01
} 0, 1, 2, 8, 81, 48, 42, 59, 60, 63, 80, 81, 200
} 0, 1, 2, 8, 81, 48, 42, 59, 60, 63, 80, 81, 200, 640, 641
)