From 22222373854d41eb488d00b8cc5ce01109eafae2 Mon Sep 17 00:00:00 2001 From: Philip Monk Date: Tue, 19 Nov 2019 14:09:53 -0800 Subject: [PATCH] ph: add alef tests --- pkg/arvo/ted/aqua/ames.hoon | 1 - pkg/arvo/ted/aqua/eyre-azimuth.hoon | 1 + pkg/arvo/ted/ph/hi-az.hoon | 15 ++++++++------- pkg/arvo/ted/ph/hi-cousin-az.hoon | 19 +++++++++++++++++++ pkg/arvo/ted/ph/hi-linnup-az-backward.hoon | 17 +++++++++++++++++ pkg/arvo/ted/ph/hi-linnup-az.hoon | 17 +++++++++++++++++ pkg/arvo/ted/ph/hi-marbud-az.hoon | 15 +++++++++++++++ pkg/arvo/ted/ph/hi-nephew-az.hoon | 17 +++++++++++++++++ pkg/arvo/ted/ph/hi-uncle-az.hoon | 17 +++++++++++++++++ 9 files changed, 111 insertions(+), 8 deletions(-) create mode 100644 pkg/arvo/ted/ph/hi-cousin-az.hoon create mode 100644 pkg/arvo/ted/ph/hi-linnup-az-backward.hoon create mode 100644 pkg/arvo/ted/ph/hi-linnup-az.hoon create mode 100644 pkg/arvo/ted/ph/hi-marbud-az.hoon create mode 100644 pkg/arvo/ted/ph/hi-nephew-az.hoon create mode 100644 pkg/arvo/ted/ph/hi-uncle-az.hoon diff --git a/pkg/arvo/ted/aqua/ames.hoon b/pkg/arvo/ted/aqua/ames.hoon index ea6bd8984..7c06862d8 100644 --- a/pkg/arvo/ted/aqua/ames.hoon +++ b/pkg/arvo/ted/aqua/ames.hoon @@ -25,7 +25,6 @@ ^- (list card:agent:gall) =/ rcvr=ship (lane-to-ship lan) =/ hear-lane (ship-to-lane sndr) - ~& > [%sending-aqua sndr rcvr hear-lane] %+ emit-aqua-events our [%event rcvr //newt/0v1n.2m9vh %hear hear-lane pac]~ :: +lane-to-ship: decode a ship from an aqua lane diff --git a/pkg/arvo/ted/aqua/eyre-azimuth.hoon b/pkg/arvo/ted/aqua/eyre-azimuth.hoon index 3af5eee18..fdd85c5a6 100644 --- a/pkg/arvo/ted/aqua/eyre-azimuth.hoon +++ b/pkg/arvo/ted/aqua/eyre-azimuth.hoon @@ -260,6 +260,7 @@ |= [who=ship seed=(unit seed:able:jael)] ^- dawn-event:able:jael =/ spon=(list [ship point:azimuth]) + %- flop |- ^- (list [ship point:azimuth]) =/ =ship (^sein:title who) =/ a-point=[^ship point:azimuth] diff --git a/pkg/arvo/ted/ph/hi-az.hoon b/pkg/arvo/ted/ph/hi-az.hoon index b0c5e2b69..b5354cdea 100644 --- a/pkg/arvo/ted/ph/hi-az.hoon +++ b/pkg/arvo/ted/ph/hi-az.hoon @@ -4,11 +4,12 @@ ^- thread:spider |= vase =/ m (strand ,vase) -;< az=tid: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 +;< az=tid: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) diff --git a/pkg/arvo/ted/ph/hi-cousin-az.hoon b/pkg/arvo/ted/ph/hi-cousin-az.hoon new file mode 100644 index 000000000..7facac1aa --- /dev/null +++ b/pkg/arvo/ted/ph/hi-cousin-az.hoon @@ -0,0 +1,19 @@ +/- spider +/+ *ph-io +=, strand=strand:spider +^- thread:spider +|= vase +=/ m (strand ,vase) +;< az=tid:spider + bind:m start-azimuth +;< ~ bind:m (spawn az ~bud) +;< ~ bind:m (spawn az ~marbud) +;< ~ bind:m (spawn az ~dev) +;< ~ bind:m (spawn az ~mardev) +;< ~ bind:m (real-ship az ~bud) +;< ~ bind:m (real-ship az ~marbud) +;< ~ bind:m (real-ship az ~dev) +;< ~ bind:m (real-ship az ~mardev) +;< ~ bind:m (send-hi ~mardev ~marbud) +;< ~ bind:m end-azimuth +(pure:m *vase) diff --git a/pkg/arvo/ted/ph/hi-linnup-az-backward.hoon b/pkg/arvo/ted/ph/hi-linnup-az-backward.hoon new file mode 100644 index 000000000..e072f801a --- /dev/null +++ b/pkg/arvo/ted/ph/hi-linnup-az-backward.hoon @@ -0,0 +1,17 @@ +/- spider +/+ *ph-io +=, strand=strand:spider +^- thread:spider +|= vase +=/ m (strand ,vase) +;< az=tid:spider + bind:m start-azimuth +;< ~ bind:m (spawn az ~bud) +;< ~ bind:m (spawn az ~marbud) +;< ~ bind:m (spawn az ~linnup-torsyx) +;< ~ bind:m (real-ship az ~linnup-torsyx) +;< ~ bind:m (real-ship az ~marbud) +;< ~ bind:m (real-ship az ~bud) +;< ~ bind:m (send-hi ~linnup-torsyx ~marbud) +;< ~ bind:m end-azimuth +(pure:m *vase) diff --git a/pkg/arvo/ted/ph/hi-linnup-az.hoon b/pkg/arvo/ted/ph/hi-linnup-az.hoon new file mode 100644 index 000000000..abcfd4151 --- /dev/null +++ b/pkg/arvo/ted/ph/hi-linnup-az.hoon @@ -0,0 +1,17 @@ +/- spider +/+ *ph-io +=, strand=strand:spider +^- thread:spider +|= vase +=/ m (strand ,vase) +;< az=tid:spider + bind:m start-azimuth +;< ~ bind:m (spawn az ~bud) +;< ~ bind:m (spawn az ~marbud) +;< ~ bind:m (spawn az ~linnup-torsyx) +;< ~ bind:m (real-ship az ~bud) +;< ~ bind:m (real-ship az ~marbud) +;< ~ bind:m (real-ship az ~linnup-torsyx) +;< ~ bind:m (send-hi ~linnup-torsyx ~marbud) +;< ~ bind:m end-azimuth +(pure:m *vase) diff --git a/pkg/arvo/ted/ph/hi-marbud-az.hoon b/pkg/arvo/ted/ph/hi-marbud-az.hoon new file mode 100644 index 000000000..a53d81a85 --- /dev/null +++ b/pkg/arvo/ted/ph/hi-marbud-az.hoon @@ -0,0 +1,15 @@ +/- spider +/+ *ph-io +=, strand=strand:spider +^- thread:spider +|= vase +=/ m (strand ,vase) +;< az=tid:spider + bind:m start-azimuth +;< ~ bind:m (spawn az ~bud) +;< ~ bind:m (spawn az ~marbud) +;< ~ bind:m (real-ship az ~bud) +;< ~ bind:m (real-ship az ~marbud) +;< ~ bind:m (send-hi ~bud ~marbud) +;< ~ bind:m end-azimuth +(pure:m *vase) diff --git a/pkg/arvo/ted/ph/hi-nephew-az.hoon b/pkg/arvo/ted/ph/hi-nephew-az.hoon new file mode 100644 index 000000000..286367edd --- /dev/null +++ b/pkg/arvo/ted/ph/hi-nephew-az.hoon @@ -0,0 +1,17 @@ +/- spider +/+ *ph-io +=, strand=strand:spider +^- thread:spider +|= vase +=/ m (strand ,vase) +;< az=tid:spider + bind:m start-azimuth +;< ~ bind:m (spawn az ~bud) +;< ~ bind:m (spawn az ~marbud) +;< ~ bind:m (spawn az ~dev) +;< ~ bind:m (real-ship az ~bud) +;< ~ bind:m (real-ship az ~marbud) +;< ~ bind:m (real-ship az ~dev) +;< ~ bind:m (send-hi ~dev ~marbud) +;< ~ bind:m end-azimuth +(pure:m *vase) diff --git a/pkg/arvo/ted/ph/hi-uncle-az.hoon b/pkg/arvo/ted/ph/hi-uncle-az.hoon new file mode 100644 index 000000000..c73b10cb4 --- /dev/null +++ b/pkg/arvo/ted/ph/hi-uncle-az.hoon @@ -0,0 +1,17 @@ +/- spider +/+ *ph-io +=, strand=strand:spider +^- thread:spider +|= vase +=/ m (strand ,vase) +;< az=tid:spider + bind:m start-azimuth +;< ~ bind:m (spawn az ~bud) +;< ~ bind:m (spawn az ~marbud) +;< ~ bind:m (spawn az ~dev) +;< ~ bind:m (real-ship az ~bud) +;< ~ bind:m (real-ship az ~marbud) +;< ~ bind:m (real-ship az ~dev) +;< ~ bind:m (send-hi ~marbud ~dev) +;< ~ bind:m end-azimuth +(pure:m *vase)