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

move test- check- prefix filter to lib/tester

Browse Source
This commit is contained in:
Anton Dyudin 2018-03-09 18:37:39 -08:00
parent 5e746a9c36
commit 3bb24f1327
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gen/test.hoon
View File

@ -21,10 +21,6 @@
~
?- -.q.b
%&
?. ?| =((end 3 5 p.b) 'test-')
=((end 3 6 p.b) 'check-')
==
~
(run-test [p.b pax] eny p.q.b)
::
%|

8
lib/tester.hoon
View File

@ -44,12 +44,18 @@
|= {key/@ta value/tests}
[key [%| value]]
::
++ has-test-prefix
|= a=term ^- ?
?| =((end 3 5 a) 'test-')
=((end 3 6 a) 'check-')
==
::
++ gen-tests
:> creates a {tests} list out of a vase of a test suite
|= v=vase
^- tests
=+ arms=(sort (sloe p.v) aor)
%+ turn arms
%+ turn (skim arms has-test-prefix)
|= arm/term
::REVIEW fewer asserts? recouple the nock and eat the runtime compile cost?
?> (~(nest ut (~(peek ut p.v) %free 6)) & p:!>((init-test)))