mirror of
https://github.com/urbit/shrub.git
synced 2024-12-22 18:31:44 +03:00
44 lines
932 B
Plaintext
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)
|
||
|
|
::
|
||
|
|
--
|
||
|
|
|