Run tests in alphabetical order.

This commit is contained in:
Elliot Glaysher 2018-08-30 10:30:32 -07:00
parent 15ee6ba31d
commit e049d6080b

View File

@ -16,6 +16,9 @@
|= paths-to-tests=(map path (list test-arm))
^- (list test)
::
%- sort :_ |=([a=test b=test] !(aor path.a path.b))
::
^- (list test)
%- zing
%+ turn ~(tap by paths-to-tests)
|= [=path test-arms=(list test-arm)]