1
0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-24 07:26:51 +03:00
urbit/pkg/landscape/tests/lib/pull-hook-virt.hoon

44 lines
932 B
Plaintext

/+ pull-hook-virt, *test, resource
|%
++ bowl *bowl:gall
::
++ virt ~(. pull-hook-virt bowl)
::
++ test-mule-scry-bad-time
%+ expect-eq !>(~)
!> %+ mule-scry:virt **
/gx/(scot %p ~zod)/graph-store/(scot %da ~2010.1.1)/keys/noun
::
++ test-mule-scry-bad-ship
%+ expect-eq !>(~)
!> %+ mule-scry:virt **
/gx/(scot %p ~bus)/graph-store/(scot %da *time)/keys/noun
::
++ test-kick-mule
=/ rid=resource
[~zod %test]
=/ pax=path
/gx/(scot %p ~zod)/graph-store/(scot %da *time)/keys/noun
=/ test-trp=(trap *)
|.
:- ~
.^(path pax)
=/ harness-trp=(trap *)
|.((kick-mule:virt rid test-trp))
%+ expect-eq !>(``/foo)
!>
=/ res=toon
%+ mock [harness-trp %9 2 %0 1]
|= [ref=* raw=*]
=/ pox=(unit path)
((soft path) raw)
?~ pox ~
?: =(u.pox pax)
``/foo
``.^(* u.pox)
?> ?=(%0 -.res)
;;((unit (unit path)) p.res)
::
--