urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-18 07:42:20 +03:00
Code Issues Packages Projects Releases Wiki Activity

tests: give %clog to gall

Browse Source
This commit is contained in:
Ted Blackman 2022-08-19 17:29:19 +03:00
parent c0adf6c25c
commit 59c5aa0b2a
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
pkg/arvo/tests/sys/grq.hoon
View File

@ -6,6 +6,7 @@
%- run-chain
|. :- %|
=+ nec-bud:v
:: poke %sub to tell it to subscribe
=/ =task:gall [%deal [~nec ~nec] %sub %poke watch+!>(~bud)]
=^ t1 gall.nec
%: gall-check-call:v gall.nec
@ -18,6 +19,7 @@
== ==
==
:- t1 |. :- %|
:: handle gall passing the %watch to itself, which passes to ames
=^ t2 gall.nec
%: gall-check-call:v gall.nec
[~1111.1.1 0xdead.beef *roof]
@ -30,6 +32,7 @@
==
==
:- t2 |. :- %|
:: pass %plea to ames, which gives a packet to vere
=^ t3 ames.nec
%: ames-check-call:v ames.nec
[~1111.1.1 0xdead.beef *roof]
@ -45,6 +48,7 @@
==
==
:- t3 |. :- %|
:: send packet across the network
=^ t4 ames.bud
%: ames-check-call:v ames.bud
[~1111.1.2 0xbeef.dead *roof]
@ -60,6 +64,7 @@
==
==
:- t4 |. :- %|
:: handle pass from ames to gall, which passes the %watch to itself
=^ t5 gall.bud
%: gall-check-call:v gall.bud
[~1111.1.2 0xbeef.dead *roof]
@ -72,6 +77,7 @@
==
==
:- t5 |. :- %|
:: gall runs %pub with %watch, gives ack to itself
=^ t6 gall.bud
%: gall-check-call:v gall.bud
[~1111.1.2 0xbeef.dead *roof]
@ -82,6 +88,7 @@
==
==
:- t6 |. :- %|
:: gall gives ack to ames
=^ t7 gall.bud
%: gall-check-take:v gall.bud
[~1111.1.2 0xbeef.dead *roof]
@ -91,6 +98,7 @@
==
==
:- t7 |. :- %|
:: ames hears ack from gall, sends over the network
=^ t8 ames.bud
%: ames-check-take:v ames.bud
[~1111.1.2 0xbeef.dead *roof]
@ -103,6 +111,7 @@
== ==
==
:- t8 |. :- %|
:: ames hears watch-ack packet, gives to gall
=^ t9 ames.nec
%: ames-check-call:v ames.nec
[~1111.1.3 0xdead.beef *roof]
@ -118,6 +127,7 @@
==
==
:- t9 |. :- %|
:: gall gives watch-ack to itself
=^ t10 gall.nec
%: gall-check-take:v gall.nec
[~1111.1.3 0xdead.beef *roof]
@ -129,11 +139,23 @@
==
==
:- t10 |. :- %|
:: gall delivers %watch-ack to %sub
=^ t11 gall.nec
%: gall-check-take:v gall.nec
[~1111.1.3 0xdead.beef *roof]
[/use/sub/0w1.d6Isf/out/~bud/pub/1/sub ~[/init] %gall %unto %watch-ack ~]
~
==
:- t11 |. :- %& ~
:: start the clog and kick process; give clog to publisher gall
:- t11 |. :- %|
=^ t12 gall.bud
%: gall-check-take:v gall.bud
[~1111.1.4 0xbeef.dead *roof]
:+ /sys/lag ~[/init]
[%ames %clog ~nec]
:~ :- ~[/sys/req/~nec/pub /bone/~nec/0/1 //unix]
[%give %unto %kick ~]
==
==
:- t12 |. :- %& ~
--