mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-15 18:12:47 +03:00
test: updates vane calling convention
This commit is contained in:
parent
fa71cc2ae4
commit
c38222de9f
@ -58,8 +58,8 @@
|
|||||||
[%known peer-state]
|
[%known peer-state]
|
||||||
:: metamorphose
|
:: metamorphose
|
||||||
::
|
::
|
||||||
=> .(nec +:(call:(nec) ~[//unix] ** %born ~))
|
=> .(nec +:(call:(nec) ~[//unix] ~ ** %born ~))
|
||||||
=> .(bud +:(call:(bud) ~[//unix] ** %born ~))
|
=> .(bud +:(call:(bud) ~[//unix] ~ ** %born ~))
|
||||||
:: helper core
|
:: helper core
|
||||||
::
|
::
|
||||||
=>
|
=>
|
||||||
@ -90,7 +90,7 @@
|
|||||||
::
|
::
|
||||||
=/ vane-core (vane(now `@da`(add ~s1 now.vane)))
|
=/ vane-core (vane(now `@da`(add ~s1 now.vane)))
|
||||||
::
|
::
|
||||||
(call:vane-core duct ** task)
|
(call:vane-core duct ~ ** task)
|
||||||
::
|
::
|
||||||
++ take
|
++ take
|
||||||
|= [vane=_nec =wire =duct =sign:ames]
|
|= [vane=_nec =wire =duct =sign:ames]
|
||||||
@ -98,7 +98,7 @@
|
|||||||
::
|
::
|
||||||
=/ vane-core (vane(now `@da`(add ~s1 now.vane)))
|
=/ vane-core (vane(now `@da`(add ~s1 now.vane)))
|
||||||
::
|
::
|
||||||
(take:vane-core wire duct ** sign)
|
(take:vane-core wire duct ~ ** sign)
|
||||||
--
|
--
|
||||||
:: test core
|
:: test core
|
||||||
::
|
::
|
||||||
|
@ -474,7 +474,7 @@
|
|||||||
::
|
::
|
||||||
=/ clay-core (clay-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
|
=/ 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
|
=/ output=tang
|
||||||
%+ expect-eq
|
%+ expect-eq
|
||||||
@ -495,7 +495,7 @@
|
|||||||
::
|
::
|
||||||
=/ clay-core (clay-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
|
=/ 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)
|
=/ output=tang (move-comparator moves)
|
||||||
::
|
::
|
||||||
@ -513,7 +513,7 @@
|
|||||||
::
|
::
|
||||||
=/ clay-core (clay-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
|
=/ 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
|
=/ output=tang
|
||||||
%+ expect-eq
|
%+ expect-eq
|
||||||
@ -534,7 +534,7 @@
|
|||||||
::
|
::
|
||||||
=/ clay-core (clay-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
|
=/ 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)
|
=/ output=tang (move-comparator moves)
|
||||||
::
|
::
|
||||||
|
@ -1956,7 +1956,7 @@
|
|||||||
::
|
::
|
||||||
=/ http-server-core (http-server-gate our=~nul now=now eny=`@uvJ`0xdead.beef scry=scry)
|
=/ 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
|
=/ output=tang
|
||||||
%+ expect-eq
|
%+ expect-eq
|
||||||
@ -1976,7 +1976,7 @@
|
|||||||
::
|
::
|
||||||
=/ http-server-core (http-server-gate our=~nul now=now eny=`@uvJ`0xdead.beef scry=scry)
|
=/ 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)
|
=/ output=tang (move-comparator moves)
|
||||||
::
|
::
|
||||||
@ -1986,14 +1986,14 @@
|
|||||||
|= $: http-server-gate=_http-server-gate
|
|= $: http-server-gate=_http-server-gate
|
||||||
now=@da
|
now=@da
|
||||||
scry=sley
|
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)
|
expected-moves=(list move:http-server-gate)
|
||||||
==
|
==
|
||||||
^- [tang _http-server-gate]
|
^- [tang _http-server-gate]
|
||||||
::
|
::
|
||||||
=/ http-server-core (http-server-gate our=~nul now=now eny=`@uvJ`0xdead.beef scry=scry)
|
=/ 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
|
=/ output=tang
|
||||||
%+ expect-eq
|
%+ expect-eq
|
||||||
@ -2006,14 +2006,14 @@
|
|||||||
|= $: http-server-gate=_http-server-gate
|
|= $: http-server-gate=_http-server-gate
|
||||||
now=@da
|
now=@da
|
||||||
scry=sley
|
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)
|
move-comparator=$-((list move:http-server-gate) tang)
|
||||||
==
|
==
|
||||||
^- [tang _http-server-gate]
|
^- [tang _http-server-gate]
|
||||||
::
|
::
|
||||||
=/ http-server-core (http-server-gate our=~nul now=now eny=`@uvJ`0xdead.beef scry=scry)
|
=/ 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)
|
=/ output=tang (move-comparator moves)
|
||||||
::
|
::
|
||||||
|
@ -7264,7 +7264,7 @@
|
|||||||
=/ ford (ford-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
|
=/ ford (ford-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
|
||||||
::
|
::
|
||||||
=^ moves ford-gate
|
=^ moves ford-gate
|
||||||
%- call:ford call-args
|
%- call:ford [duct ~ type wrapped-task]:call-args
|
||||||
::
|
::
|
||||||
=/ output=tang
|
=/ output=tang
|
||||||
%+ expect-eq
|
%+ expect-eq
|
||||||
@ -7285,7 +7285,7 @@
|
|||||||
=/ ford (ford-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
|
=/ ford (ford-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
|
||||||
::
|
::
|
||||||
=^ moves ford-gate
|
=^ moves ford-gate
|
||||||
%- take:ford take-args
|
%- take:ford [wire duct ~ wrapped-sign]:take-args
|
||||||
::
|
::
|
||||||
=/ output=tang
|
=/ output=tang
|
||||||
%+ expect-eq
|
%+ expect-eq
|
||||||
@ -7310,7 +7310,7 @@
|
|||||||
=/ ford (ford-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
|
=/ ford (ford-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
|
||||||
::
|
::
|
||||||
=^ moves ford-gate
|
=^ moves ford-gate
|
||||||
%- call:ford call-args
|
%- call:ford [duct ~ type wrapped-task]:call-args
|
||||||
::
|
::
|
||||||
=/ output=tang (move-comparator moves)
|
=/ output=tang (move-comparator moves)
|
||||||
::
|
::
|
||||||
@ -7329,7 +7329,7 @@
|
|||||||
=/ ford (ford-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
|
=/ ford (ford-gate our=~nul now=now eny=`@`0xdead.beef scry=scry)
|
||||||
::
|
::
|
||||||
=^ moves ford-gate
|
=^ moves ford-gate
|
||||||
%- take:ford take-args
|
%- take:ford [wire duct ~ wrapped-sign]:take-args
|
||||||
::
|
::
|
||||||
=/ output=tang (move-comparator moves)
|
=/ output=tang (move-comparator moves)
|
||||||
::
|
::
|
||||||
|
@ -69,7 +69,7 @@
|
|||||||
::
|
::
|
||||||
=/ gall-core (gall-gate our=~nec now=now eny=`@`0xdead.beef scry=scry)
|
=/ 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
|
=/ output=tang
|
||||||
%+ expect-eq
|
%+ expect-eq
|
||||||
|
@ -523,7 +523,7 @@
|
|||||||
=/ http-client-core
|
=/ http-client-core
|
||||||
(http-client-gate our=~nul now=now eny=`@uvJ`0xdead.beef scry=scry)
|
(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
|
=/ output=tang
|
||||||
%+ expect-eq
|
%+ expect-eq
|
||||||
|
Loading…
Reference in New Issue
Block a user