%reef schematic and test

gen/ford-turbo.hoon

@@ -5,7 +5,8 @@
 :-  %noun
 =+  tester:tester
 ::
-=/  ford-gate  (ford-turbo pit=!>(.))
+=/  test-pit=vase  !>(.)
+=/  ford-gate  (ford-turbo test-pit)
 ::
 |^
 =-  ((slog -) ~)
@@ -49,6 +50,7 @@
   test-cache-reclamation-live-rebuild
   test-cache-reclamation-live-promote
   test-five-oh-cache-reclamation
+  test-reef
 ==
 ++  test-is-schematic-live
   ~&  %test-is-schematic-live
@@ -2554,6 +2556,32 @@
     (expect-ford-empty ford ~nul)
   ==
 ::
+++  test-reef
+  ~&  %test-reef
+  ::
+  =/  ford  *ford-gate
+  ::
+  =^  results1  ford
+    %-  test-ford-call  :*
+      ford
+      now=~1234.5.6
+      scry=scry-is-forbidden
+      ::
+      ^=  call-args
+        :*  duct=~[/reef]  type=~  %make  ~nul
+            [%pin ~1234.5.6 [%reef ~]]
+        ==
+      ::
+      ^=  moves
+        :~  :*  duct=~[/reef]  %give  %made  ~1234.5.6  %complete
+                %success  %pin  ~1234.5.6  %success  %reef  test-pit
+    ==  ==  ==
+  ::
+  ;:  weld
+    results1
+    (expect-ford-empty ford ~nul)
+  ==
+::
 ::  |utilities: helper arms
 ::
 ::+|  utilities

lib/ford-turbo.hoon

@@ -638,6 +638,7 @@
 --
 ::
 ::  sys/ford/hoon
+::  pit: a +vase of the hoon+zuse kernel, which is a deeply nested core
 ::
 |=  pit=vase
 ::
@@ -2452,7 +2453,7 @@
             %pact  !!
             %path  !!
             %plan  !!
-            %reef  !!
+            %reef  reef
             %ride  (ride [formula subject]:schematic.build)
             %same  (same schematic.schematic.build)
             %slit  (slit [gate sample]:schematic.build)
@@ -2530,6 +2531,10 @@
       ::
       [build [%build-result %success %alts u.result] accessed-builds &]
     ::
+    ++  reef
+      ^-  build-receipt
+      [build [%build-result %success %reef pit] ~ |]
+    ::
     ++  ride
       |=  [formula=hoon =schematic]
       ^-  build-receipt