shrub/pkg/arvo/ted/ph/hi-marbud-az.hoon

/-  spider
/+  *ph-io
=,  strand=strand:spider
^-  thread:spider
|=  vase
=/  m  (strand ,vase)
;<  ~  bind:m  start-azimuth
;<  ~  bind:m  (spawn ~bud)
;<  ~  bind:m  (spawn ~marbud)
;<  ~  bind:m  (init-ship ~bud |)
;<  ~  bind:m  (init-ship ~marbud |)
;<  ~  bind:m  (send-hi ~bud ~marbud)
;<  ~  bind:m  end
(pure:m *vase)
ph: add alef tests 2019-11-20 01:09:53 +03:00			`/- spider`
			`/+ *ph-io`
			`=, strand=strand:spider`
			`^- thread:spider`
			`\|= vase`
			`=/ m (strand ,vase)`
ph: migrate tests to new api 2021-06-18 08:54:17 +03:00			`;< ~ bind:m start-azimuth`
			`;< ~ bind:m (spawn ~bud)`
			`;< ~ bind:m (spawn ~marbud)`
			`;< ~ bind:m (init-ship ~bud \|)`
			`;< ~ bind:m (init-ship ~marbud \|)`
ph: add alef tests 2019-11-20 01:09:53 +03:00			`;< ~ bind:m (send-hi ~bud ~marbud)`
ph: migrate tests to new api 2021-06-18 08:54:17 +03:00			`;< ~ bind:m end`
ph: add alef tests 2019-11-20 01:09:53 +03:00			`(pure:m *vase)`