From ce98dc8811465339966379a33d677832bb62cda5 Mon Sep 17 00:00:00 2001
From: Jared Tobin <jared@tlon.io>
Date: Fri, 23 Aug 2019 14:16:57 -0230
Subject: [PATCH] gall: add basic test harness

---
 pkg/arvo/tests/sys/vane/gall.hoon | 80 +++++++++++++++++++++++++++++++
 1 file changed, 80 insertions(+)
 create mode 100644 pkg/arvo/tests/sys/vane/gall.hoon

diff --git a/pkg/arvo/tests/sys/vane/gall.hoon b/pkg/arvo/tests/sys/vane/gall.hoon
new file mode 100644
index 0000000000..568b7cb192
--- /dev/null
+++ b/pkg/arvo/tests/sys/vane/gall.hoon
@@ -0,0 +1,80 @@
+/+  *test
+::
+/=  gall-raw  /:  /===/sys/vane/gall  /!noun/
+::
+=/  test-pit=vase  !>(..zuse)
+=/  gall-gate  (gall-raw test-pit)
+::
+|%
+::  +test-init: test %init
+::
+++  test-init
+  ^-  tang
+  ::
+  =/  time  ~1111.1.1
+  ::
+  =/  call-args
+    =/  =duct  ~[/init]
+    =/  =type  -:!>(*task:able:gall)
+    =/  =task:able:gall  [%init ~nec]
+    [duct type task]
+  ::
+  =/  expected-moves  ~
+  ::
+  =^  results  gall-gate
+    (gall-call gall-gate time *sley call-args expected-moves)
+  ::
+  results
+::  +test-conf: test %conf
+::
+++  test-conf
+  ^-  tang
+  ::
+  =/  =duct  ~[/init]
+  =/  time  (add ~1111.1.1 ~s1)
+  =/  =term  %my-agent
+  =/  ship  ~nec
+  ::
+  =/  call-args
+    =/  =type  -:!>(*task:able:gall)
+    =/  =task:able:gall
+      =/  =dock  [ship term]
+      [%conf dock dock]
+    [duct type task]
+  ::
+  =/  =move:gall-gate
+    =/  =path  /sys/core/[term]/(scot %p ship)/[term]/(scot %da time)
+    =/  =note-arvo
+      =/  =schematic:ford  [%core [ship term] /hoon/[term]/app]
+      =/  =task:able:ford  [%build %.y schematic]
+      [%f task]
+    [duct %pass path note-arvo]
+  ::
+  =/  expected-moves=(list move:gall-gate)  ~[move]
+  ::
+  =^  results  gall-gate
+    (gall-call gall-gate time *sley call-args expected-moves)
+  ::
+  results
+::  +gall-call: have %gall run a +task and assert it produces expected-moves
+::
+++  gall-call
+  |=  $:  gall-gate=_gall-gate
+          now=@da
+          scry=sley
+          call-args=[=duct =type wrapped-task=(hobo task:able:gall)]
+          expected-moves=(list move:gall-gate)
+      ==
+  ^-  [tang _gall-gate]
+  ::
+  =/  gall-core  (gall-gate our=~nec now=now eny=`@`0xdead.beef scry=scry)
+  ::
+  =^  moves  gall-gate  (call:gall-core call-args)
+  ::
+  =/  output=tang
+    %+  expect-eq
+      !>  expected-moves
+      !>  moves
+  ::
+  [output gall-gate]
+--