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

ford-fusion: test-cycle

Browse Source
This commit is contained in:
Ted Blackman 2020-04-16 16:36:16 -04:00
parent af24318955
commit c043f7872e
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
pkg/arvo/tests/sys/vane/clay.hoon
View File

@ -34,6 +34,33 @@
tssg+[%dbug [/sur/foo/hoon [[1 1] [1 2]]] [%cnts ~[[%.y 1]] ~]]~ tssg+[%dbug [/sur/foo/hoon [[1 1] [1 2]]] [%cnts ~[[%.y 1]] ~]]~
!> (parse-pile:(ford):fusion /sur/foo/hoon ".") !> (parse-pile:(ford):fusion /sur/foo/hoon ".")
:: ::
++ test-cycle ^- tang
=/ source=@t
'''
/+ self
.
'''
=/ =ankh:clay
:- fil=~
%- ~(gas by *(map @tas ankh:clay))
:~ :+ %lib fil=~
%- ~(gas by *(map @tas ankh:clay))
:~ :+ %self fil=~
%- ~(gas by *(map @tas ankh:clay))
:~ :+ %hoon fil=`[*lobe:clay hoon+!>(source)] dir=~
== == ==
%- expect-fail
|.
=/ ford
%: ford:fusion
ankh
deletes=~
changes=~
file-store=~
*ford-cache:fusion
==
(build-file:ford /lib/self/hoon)
::
++ test-parse-fail ^- tang ++ test-parse-fail ^- tang
%- expect-fail %- expect-fail
|. (parse-pile:(ford):fusion /sur/foo/hoon "[") |. (parse-pile:(ford):fusion /sur/foo/hoon "[")