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

Merge pull request #6467 from urbit/dr/clean-up-test-thread

Browse Source 
ted/test.hoon: repair vestigial select-by-prefix feature
This commit is contained in:
Ted Blackman 2023-04-19 11:35:58 -04:00 committed by GitHub
commit 5661bfed74
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
pkg/arvo/ted/test.hoon
View File

@ -26,13 +26,6 @@
&+[leaf+"OK {name}"]~ &+[leaf+"OK {name}"]~
|+(flop `tang`[leaf+"FAILED {name}" p.run]) |+(flop `tang`[leaf+"FAILED {name}" p.run])
== ==
:: +filter-tests-by-prefix: TODO document
::
++ filter-tests-by-prefix
|= [prefix=path tests=(list test)]
^+ tests
=/ prefix-length=@ud (lent prefix)
(skim tests |=([p=path *] =(prefix (scag prefix-length p))))
:: +resolve-test-paths: add test names to file paths to form full identifiers :: +resolve-test-paths: add test names to file paths to form full identifiers
:: ::
++ resolve-test-paths ++ resolve-test-paths
@ -130,15 +123,11 @@
gather-tests(fiz t.fiz, build-ok |) gather-tests(fiz t.fiz, build-ok |)
~> %slog.0^leaf+"built {(spud s.beam.i.fiz)}" ~> %slog.0^leaf+"built {(spud s.beam.i.fiz)}"
=/ arms=(list test-arm) (get-test-arms u.cor) =/ arms=(list test-arm) (get-test-arms u.cor)
:: :: if test path specified an arm prefix, filter arms to match
:: XX this logic appears to be vestigial
::
=? arms ?=(^ test.i.fiz) =? arms ?=(^ test.i.fiz)
|- ^+ arms %+ skim arms
?~ arms ~|(no-test-arm+i.fiz !!) |= test-arm
?: =(name.i.arms u.test.i.fiz) =((end [3 (met 3 u.test.i.fiz)] name) u.test.i.fiz)
[i.arms]~
$(arms t.arms)
=. test-arms (~(put by test-arms) (snip s.beam.i.fiz) arms) =. test-arms (~(put by test-arms) (snip s.beam.i.fiz) arms)
gather-tests(fiz t.fiz) gather-tests(fiz t.fiz)
%- pure:m !> ^= ok %- pure:m !> ^= ok