tests: receiver ames sends %watch-ack packet

This commit is contained in:
Ted Blackman 2022-08-19 16:27:12 +03:00
parent 4518cf4838
commit 01f761d07a
2 changed files with 27 additions and 3 deletions

View File

@ -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

View File

@ -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 |. :- %& ~
-- --