urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-12 10:29:01 +03:00
Code Issues Packages Projects Releases Wiki Activity

deterministic, immediate-printing tests

Browse Source
This commit is contained in:
Anton Dyudin 2018-03-07 15:46:27 -08:00
parent 09303422ef
commit 0a5a1de791
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gen/test.hoon
View File

@ -10,12 +10,15 @@
++ test-runner ++ test-runner
:> run all tests in {a} with a filter. :> run all tests in {a} with a filter.
=| pax=path =| pax=path
|= [filter=path eny=@uvJ a=tests:tester] |= [filter=path [defer=? eny=@uvJ] a=tests:tester]
^- tang ^- tang
%- concat:ls %- concat:ls
%+ turn a %+ turn a
|= b=instance:tester |= b=instance:tester
^- tang ^- tang
=; tan/tang
?: defer tan
((slog (flop tan)) ~)
=^ matches filter (match-filter filter p.b) =^ matches filter (match-filter filter p.b)
?. matches ?. matches
~ ~
@ -69,10 +72,11 @@
:- %say :- %say
|= $: [now=@da eny=@uvJ bec=beak] |= $: [now=@da eny=@uvJ bec=beak]
[filter=$?($~ [pax=path $~])] [filter=$?($~ [pax=path $~])]
$~ [defer=_& seed=?(~ @uvJ)]
== ==
~? !defer %test-compiled
:- %tang :- %tang
%^ test-runner %^ test-runner
?~ filter ~ pax.filter ?~(filter ~ pax.filter)
eny [defer ?~(seed eny seed)]
(test-map-to-test-list:tester all-tests) (test-map-to-test-list:tester all-tests)