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

ph: get more tests working

Browse Source
This commit is contained in:
Philip Monk 2019-11-14 14:46:39 -08:00
parent c9f437e3c6
commit 06e6545890
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC
6 changed files with 33 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkg/arvo/age/aqua.hoon
View File

@ -391,7 +391,7 @@
[%swap-files ~]
=. userspace-ova.pil
=/ slim-dirs=(list path)
~[/app /gen /lib /mar /sur /hoon/sys /arvo/sys /zuse/sys /age]
~[/app /age /imp /gen /lib /mar /sur /hoon/sys /arvo/sys /zuse/sys]
:_ ~
%- unix-event
%- %*(. file-ovum:pill-lib directories slim-dirs)

8
pkg/arvo/age/eth-watcher.hoon
View File

@ -6,7 +6,7 @@
=, able:jael
::
=> |%
++ refresh-rate ~m5
++ refresh-rate ~m1 :: ~m5
--
::
=> |%
@ -298,8 +298,10 @@
::
=/ =cage [%spider-stop !>([u.running.dog |])]
=. cards
:_ cards
[%pass [%starting path] %agent [our.bowl %spider] %poke cage]
:* [%pass [%starting path] %agent [our.bowl %spider] %poke cage]
(leave-spider path our.bowl)
cards
==
loop(i.dogs i.dogs(running.dog ~))
::
=^ rand iid-gen (raws:iid-gen 128)

1
pkg/arvo/imp/aqua/eyre-azimuth.hoon
View File

@ -260,6 +260,7 @@
::
++ dawn
|= [who=ship seed=(unit seed:able:jael)]
=- ~& >> [%dawn-event -] -
^- dawn-event:able:jael
=/ spon=(list [ship point:azimuth])
|- ^- (list [ship point:azimuth])

15
pkg/arvo/imp/ph/breach-hi.hoon
View File

@ -4,15 +4,16 @@
^- imp:spider
|= [=bowl:spider vase]
=/ m (thread ,vase)
;< ~ bind:m start-azimuth
;< ~ bind:m (spawn ~bud)
;< ~ bind:m (spawn ~dev)
;< ~ bind:m (real-ship ~bud)
;< ~ bind:m (real-ship ~dev)
;< az=iid:spider bind:m
start-azimuth
;< ~ bind:m (spawn az ~bud)
;< ~ bind:m (spawn az ~dev)
;< ~ bind:m (real-ship az ~bud)
;< ~ bind:m (real-ship az ~dev)
;< ~ bind:m (send-hi ~bud ~dev)
;< ~ bind:m (breach-and-hear ~dev ~bud)
;< ~ bind:m (breach-and-hear az ~dev ~bud)
;< ~ bind:m (send-hi-not-responding ~bud ~dev)
;< ~ bind:m (real-ship ~dev)
;< ~ bind:m (real-ship az ~dev)
;< ~ bind:m (wait-for-output ~bud "hi ~dev successful")
;< ~ bind:m end-azimuth
(pure:m *vase)

14
pkg/arvo/imp/ph/hi-az.hoon
View File

@ -4,11 +4,11 @@
^- imp:spider
|= [=bowl:spider vase]
=/ m (thread ,vase)
;< ~ bind:m start-azimuth
;< ~ bind:m (spawn ~bud)
;< ~ bind:m (spawn ~dev)
;< ~ bind:m (real-ship ~bud)
;< ~ bind:m (real-ship ~dev)
;< ~ bind:m (send-hi ~bud ~dev)
;< ~ bind:m end-azimuth
;< az=iid:spider bind:m start-azimuth
;< ~ bind:m (spawn az ~bud)
;< ~ bind:m (spawn az ~dev)
;< ~ bind:m (real-ship az ~bud)
;< ~ bind:m (real-ship az ~dev)
;< ~ bind:m (send-hi ~bud ~dev)
;< ~ bind:m end-azimuth
(pure:m *vase)

21
pkg/arvo/imp/ph/moon-az.hoon
View File

@ -4,18 +4,19 @@
^- imp:spider
|= [=bowl:spider vase]
=/ m (thread ,vase)
;< ~ bind:m start-azimuth
;< ~ bind:m (spawn ~bud)
;< ~ bind:m (spawn ~marbud)
;< ~ bind:m (spawn ~linnup-torsyx)
;< ~ bind:m (spawn ~dev)
;< ~ bind:m (real-ship ~bud)
;< ~ bind:m (real-ship ~marbud)
;< ~ bind:m (real-ship ~linnup-torsyx)
;< ~ bind:m (real-ship ~linnup-torsyx-linnup-torsyx)
;< az=iid:spider bind:m
start-azimuth
;< ~ bind:m (spawn az ~bud)
;< ~ bind:m (spawn az ~marbud)
;< ~ bind:m (spawn az ~linnup-torsyx)
;< ~ bind:m (spawn az ~dev)
;< ~ bind:m (real-ship az ~bud)
;< ~ bind:m (real-ship az ~marbud)
;< ~ bind:m (real-ship az ~linnup-torsyx)
;< ~ bind:m (real-ship az ~linnup-torsyx-linnup-torsyx)
;< ~ bind:m (send-hi ~bud ~linnup-torsyx-linnup-torsyx)
;< ~ bind:m (send-hi ~linnup-torsyx-linnup-torsyx ~marbud)
;< ~ bind:m (real-ship ~dev)
;< ~ bind:m (real-ship az ~dev)
;< ~ bind:m (send-hi ~linnup-torsyx-linnup-torsyx ~dev)
;< ~ bind:m (send-hi ~dev ~linnup-torsyx-linnup-torsyx)
;< ~ bind:m end-azimuth