urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-11-28 22:33:06 +03:00
Code Issues Packages Projects Releases Wiki Activity

test: updates vane calling convention

Browse Source
This commit is contained in:
Joe Bryan 2020-02-11 16:12:37 -08:00
parent fa71cc2ae4
commit c38222de9f
6 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkg/arvo/tests/sys/vane/ames.hoon
View File

@ -58,8 +58,8 @@
[%known peer-state]
:: metamorphose
::
=> .(nec +:(call:(nec) ~[//unix] ** %born ~))
=> .(bud +:(call:(bud) ~[//unix] ** %born ~))
=> .(nec +:(call:(nec) ~[//unix] ~ ** %born ~))
=> .(bud +:(call:(bud) ~[//unix] ~ ** %born ~))
:: helper core
::
=>
@ -90,7 +90,7 @@
::
=/ vane-core (vane(now `@da`(add ~s1 now.vane)))
::
(call:vane-core duct ** task)
(call:vane-core duct ~ ** task)
::
++ take
|= [vane=_nec =wire =duct =sign:ames]
@ -98,7 +98,7 @@
::
=/ vane-core (vane(now `@da`(add ~s1 now.vane)))
::
(take:vane-core wire duct ** sign)
(take:vane-core wire duct ~ ** sign)
--
:: test core
::

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

@ -474,7 +474,7 @@
::
=/ clay-core (clay-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
::
=^ moves clay-gate (call:clay-core call-args)
=^ moves clay-gate (call:clay-core [duct ~ type wrapped-task]:call-args)
::
=/ output=tang
%+ expect-eq
@ -495,7 +495,7 @@
::
=/ clay-core (clay-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
::
=^ moves clay-gate (call:clay-core call-args)
=^ moves clay-gate (call:clay-core [duct ~ type wrapped-task]:call-args)
::
=/ output=tang (move-comparator moves)
::
@ -513,7 +513,7 @@
::
=/ clay-core (clay-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
::
=^ moves clay-gate (take:clay-core take-args)
=^ moves clay-gate (take:clay-core [wire duct ~ wrapped-sign]:take-args)
::
=/ output=tang
%+ expect-eq
@ -534,7 +534,7 @@
::
=/ clay-core (clay-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
::
=^ moves clay-gate (take:clay-core take-args)
=^ moves clay-gate (take:clay-core [wire duct ~ wrapped-sign]:take-args)
::
=/ output=tang (move-comparator moves)
::

12
pkg/arvo/tests/sys/vane/eyre.hoon
View File

@ -1956,7 +1956,7 @@
::
=/ http-server-core (http-server-gate our=~nul now=now eny=`@uvJ`0xdead.beef scry=scry)
::
=^ moves http-server-gate (call:http-server-core call-args)
=^ moves http-server-gate (call:http-server-core [duct ~ type wrapped-task]:call-args)
::
=/ output=tang
%+ expect-eq
@ -1976,7 +1976,7 @@
::
=/ http-server-core (http-server-gate our=~nul now=now eny=`@uvJ`0xdead.beef scry=scry)
::
=^ moves http-server-gate (call:http-server-core call-args)
=^ moves http-server-gate (call:http-server-core [duct ~ type wrapped-task]:call-args)
::
=/ output=tang (move-comparator moves)
::
@ -1986,14 +1986,14 @@
|= $: http-server-gate=_http-server-gate
now=@da
scry=sley
take-args=[=wire =duct wrapped-task=(hypo sign:http-server-gate)]
take-args=[=wire =duct wrapped-sign=(hypo sign:http-server-gate)]
expected-moves=(list move:http-server-gate)
==
^- [tang _http-server-gate]
::
=/ http-server-core (http-server-gate our=~nul now=now eny=`@uvJ`0xdead.beef scry=scry)
::
=^ moves http-server-gate (take:http-server-core take-args)
=^ moves http-server-gate (take:http-server-core [wire duct ~ wrapped-sign]:take-args)
::
=/ output=tang
%+ expect-eq
@ -2006,14 +2006,14 @@
|= $: http-server-gate=_http-server-gate
now=@da
scry=sley
take-args=[=wire =duct wrapped-task=(hypo sign:http-server-gate)]
take-args=[=wire =duct wrapped-sign=(hypo sign:http-server-gate)]
move-comparator=$-((list move:http-server-gate) tang)
==
^- [tang _http-server-gate]
::
=/ http-server-core (http-server-gate our=~nul now=now eny=`@uvJ`0xdead.beef scry=scry)
::
=^ moves http-server-gate (take:http-server-core take-args)
=^ moves http-server-gate (take:http-server-core [wire duct ~ wrapped-sign]:take-args)
::
=/ output=tang (move-comparator moves)
::

8
pkg/arvo/tests/sys/vane/ford.hoon
View File

@ -7264,7 +7264,7 @@
=/ ford (ford-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
::
=^ moves ford-gate
%- call:ford call-args
%- call:ford [duct ~ type wrapped-task]:call-args
::
=/ output=tang
%+ expect-eq
@ -7285,7 +7285,7 @@
=/ ford (ford-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
::
=^ moves ford-gate
%- take:ford take-args
%- take:ford [wire duct ~ wrapped-sign]:take-args
::
=/ output=tang
%+ expect-eq
@ -7310,7 +7310,7 @@
=/ ford (ford-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
::
=^ moves ford-gate
%- call:ford call-args
%- call:ford [duct ~ type wrapped-task]:call-args
::
=/ output=tang (move-comparator moves)
::
@ -7329,7 +7329,7 @@
=/ ford (ford-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
::
=^ moves ford-gate
%- take:ford take-args
%- take:ford [wire duct ~ wrapped-sign]:take-args
::
=/ output=tang (move-comparator moves)
::

2
pkg/arvo/tests/sys/vane/gall.hoon
View File

@ -69,7 +69,7 @@
::
=/ gall-core (gall-gate our=~nec now=now eny=`@`0xdead.beef scry=scry)
::
=^ moves gall-gate (call:gall-core call-args)
=^ moves gall-gate (call:gall-core [duct ~ type wrapped-task]:call-args)
::
=/ output=tang
%+ expect-eq

2
pkg/arvo/tests/sys/vane/iris.hoon
View File

@ -523,7 +523,7 @@
=/ http-client-core
(http-client-gate our=~nul now=now eny=`@uvJ`0xdead.beef scry=scry)
::
=^ moves http-client-gate (call:http-client-core call-args)
=^ moves http-client-gate (call:http-client-core [duct ~ type wrapped-task]:call-args)
::
=/ output=tang
%+ expect-eq