mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 00:13:12 +03:00
47 lines
955 B
Plaintext
47 lines
955 B
Plaintext
/+ *test
|
|
/= gall-raw /sys/vane/gall
|
|
::
|
|
=/ gall-gate (gall-raw ~nec)
|
|
::
|
|
|%
|
|
:: +test-init: test %init
|
|
::
|
|
++ test-init
|
|
^- tang
|
|
::
|
|
=/ time ~1111.1.1
|
|
::
|
|
=/ call-args
|
|
=/ =duct ~[/init]
|
|
=/ =task:gall [%init ~]
|
|
[duct task]
|
|
::
|
|
=/ expected-moves=(list move:gall-gate) ~
|
|
::
|
|
=/ res
|
|
(gall-call gall-gate time *roof call-args expected-moves)
|
|
::
|
|
-.res
|
|
:: +gall-call: have %gall run a +task and assert it produces expected-moves
|
|
::
|
|
++ gall-call
|
|
|= $: gall-gate=_gall-gate
|
|
now=@da
|
|
scry=roof
|
|
call-args=[=duct wrapped-task=(hobo task:gall)]
|
|
expected-moves=(list move:gall-gate)
|
|
==
|
|
=/ gall-core (gall-gate now=now eny=`@`0xdead.beef scry=scry)
|
|
::
|
|
=/ res
|
|
=/ =type -:!>(*task:gall)
|
|
(call:gall-core duct.call-args dud=~ wrapped-task.call-args)
|
|
::
|
|
=/ output=tang
|
|
%+ expect-eq
|
|
!> expected-moves
|
|
!> -.res
|
|
::
|
|
[output +.res]
|
|
--
|