mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-11-10 10:05:09 +03:00
tests: receiver ames sends %watch-ack packet
This commit is contained in:
parent
4518cf4838
commit
01f761d07a
@ -68,6 +68,18 @@
|
|||||||
|= [=ames-gate =duct task=(hobo task:ames) =roof]
|
|= [=ames-gate =duct task=(hobo task:ames) =roof]
|
||||||
%. [duct dud=~ task]
|
%. [duct dud=~ task]
|
||||||
call:(ames-gate now=~1111.1.1 eny=`@`0xdead.beef roof)
|
call:(ames-gate now=~1111.1.1 eny=`@`0xdead.beef roof)
|
||||||
|
:: +ames: run ames sign, assert produces expected-moves
|
||||||
|
::
|
||||||
|
++ ames-check-take
|
||||||
|
|= $: =ames-gate
|
||||||
|
[now=@da eny=@ =roof]
|
||||||
|
[=wire =duct =sign:ames-bunt]
|
||||||
|
expected-moves=(list move:ames-bunt)
|
||||||
|
==
|
||||||
|
^- [tang ^ames-gate]
|
||||||
|
=/ ames-core (ames-gate now eny roof)
|
||||||
|
=^ moves ames-gate (take:ames-core wire duct dud=~ sign)
|
||||||
|
[(expect-eq !>(moves) !>(expected-moves)) ames-gate]
|
||||||
::
|
::
|
||||||
++ ames-nec-bud
|
++ ames-nec-bud
|
||||||
:: create ~nec
|
:: create ~nec
|
||||||
|
@ -2,7 +2,7 @@
|
|||||||
::
|
::
|
||||||
/+ *test, v=test-ames-gall
|
/+ *test, v=test-ames-gall
|
||||||
|%
|
|%
|
||||||
++ test-setup-nec-bud
|
++ test-watch
|
||||||
%- run-chain
|
%- run-chain
|
||||||
|. :- %|
|
|. :- %|
|
||||||
=+ nec-bud:v
|
=+ nec-bud:v
|
||||||
@ -45,7 +45,7 @@
|
|||||||
==
|
==
|
||||||
==
|
==
|
||||||
:- t3 |. :- %|
|
:- t3 |. :- %|
|
||||||
=^ t4 ames.nec
|
=^ t4 ames.bud
|
||||||
%: ames-check-call:v ames.bud
|
%: ames-check-call:v ames.bud
|
||||||
[~1111.1.2 0xbeef.dead *roof]
|
[~1111.1.2 0xbeef.dead *roof]
|
||||||
:- ~[//unix]
|
:- ~[//unix]
|
||||||
@ -90,5 +90,17 @@
|
|||||||
:~ :- ~[/bone/~nec/0/1 //unix] [%give %done ~]
|
:~ :- ~[/bone/~nec/0/1 //unix] [%give %done ~]
|
||||||
==
|
==
|
||||||
==
|
==
|
||||||
:- t7 |. :- %& ~
|
:- t7 |. :- %|
|
||||||
|
=^ t8 ames.bud
|
||||||
|
%: ames-check-take:v ames.bud
|
||||||
|
[~1111.1.2 0xbeef.dead *roof]
|
||||||
|
:+ /bone/~nec/0/1 ~[//unix]
|
||||||
|
[%gall %done ~]
|
||||||
|
:~ :- ~[//unix]
|
||||||
|
:* %give %send [%| `@`'lane-bar']
|
||||||
|
0x2.0219.8100.0485.5530.3c88.9068.3cc6.484e.
|
||||||
|
2d9d.076e.6d00.0100.0223.9ae9.5000
|
||||||
|
== ==
|
||||||
|
==
|
||||||
|
:- t8 |. :- %& ~
|
||||||
--
|
--
|
||||||
|
Loading…
Reference in New Issue
Block a user