pkg: default test everything under /=base=/tests

Checks if args is empty and if so, sets the test path to /=base=/tests.
This commit is contained in:
David Farrell 2022-05-27 20:22:32 -04:00
parent 09fdc43e6b
commit 43b2481bdf

View File

@ -108,8 +108,13 @@
|= arg=vase |= arg=vase
=/ m (strand ,vase) =/ m (strand ,vase)
^- form:m ^- form:m
;< =bowl:strand bind:m get-bowl:strandio
=/ paz=(list path) =/ paz=(list path)
:: promote path to ~[path] if needed :: if no args, test everything under /=base=/tests
::
?~ q.arg
~[/(scot %p our.bowl)/[q.byk.bowl]/(scot %da now.bowl)/tests]
:: else cast path to ~[path] if needed
:: ::
?@ +<.q.arg ?@ +<.q.arg
[(tail !<([~ path] arg)) ~] [(tail !<([~ path] arg)) ~]