tests: make pass

This commit is contained in:
Philip Monk 2022-10-13 22:14:12 -07:00
parent 21acf4fdb5
commit fb2919594f
2 changed files with 508 additions and 505 deletions

File diff suppressed because it is too large Load Diff

View File

@ -50,9 +50,11 @@
%& ~ %& ~
%| ['expected success - failed' p.b] %| ['expected success - failed' p.b]
== ==
:: $test-chain: a sequence of tests to be run :: $a-test-chain: a sequence of tests to be run
:: ::
+$ test-chain :: NB: arms shouldn't start with `test-` so that `-test % ~` runs
::
+$ a-test-chain
$_ $_
|? |?
?: =(0 0) ?: =(0 0)
@ -61,7 +63,7 @@
:: +run-chain: run a sequence of tests, stopping at first failure :: +run-chain: run a sequence of tests, stopping at first failure
:: ::
++ run-chain ++ run-chain
|= seq=test-chain |= seq=a-test-chain
^- tang ^- tang
=/ res $:seq =/ res $:seq
?- -.res ?- -.res