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

Get +ford-turbo tests passing again, running against the vane itself.

Browse Source
This commit is contained in:
Elliot Glaysher 2018-06-01 11:35:56 -07:00
parent 6fae175bba
commit 6f3e1a48a4
2 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gen/ford-turbo.hoon
View File

@ -1,4 +1,9 @@
/+ ford-turbo, tester
/+ tester
::
/= ford-turbo /: /===/sys/vane/turbo
/!noun/
::
=, ford-api
::
:- %say
|= [[now=@da eny=@ bek=beak] ~ ~]
@ -1250,7 +1255,7 @@
=/ results2=tang
%- expect-eq !>
=/ ford *ford-gate
:_ results:(~(got by state-by-ship.+>+<.ford) ~nul)
:_ results:(~(got by state-by-ship.ax.+>+<.ford) ~nul)
%- my :~
:- [~1234.5.6 [%scry %c care=%x rail=[[~nul %desk] /bar/foo]]]
[%value ~1234.5.6 %success %scry %noun !>(42)]
@ -1856,6 +1861,7 @@
::
?> =(1 (lent moves))
?> ?=(^ moves)
::
?> ?=([* %give %made @da %complete %success %call *] i.moves)
::
=/ result=vase |7:i.moves
@ -6313,5 +6319,5 @@
=/ ford *ford-gate
%- expect-eq !>
:- (my [ship *ford-state:ford]~)
state-by-ship.+>+<.ford
state-by-ship.ax.+>+<.ford
--

8
sys/vane/turbo.hoon
View File

@ -4991,7 +4991,7 @@
:::: vane core
::
=| ax=axle
|= [now=@da eny=@ scry=sley]
|= [now=@da eny=@ scry-gate=sley]
:: allow jets to be registered within this core
::
~% %ford-d ..is ~ :: XX why the '-d'?
@ -5025,7 +5025,7 @@
:: with the new :ship-state and produce it along with :moves.
::
=^ ship-state state-by-ship.ax (find-or-create-ship-state our.task)
=* event-args [[our.task duct now scry] ship-state]
=* event-args [[our.task duct now scry-gate] ship-state]
=* start-build start-build:(per-event event-args)
=^ moves ship-state (start-build schematic.task)
=. state-by-ship.ax (~(put by state-by-ship.ax) our.task ship-state)
@ -5037,7 +5037,7 @@
%kill
::
=/ ship-state ~|(our+our.task (~(got by state-by-ship.ax) our.task))
=* event-args [[our.task duct now scry] ship-state]
=* event-args [[our.task duct now scry-gate] ship-state]
=^ moves ship-state cancel:(per-event event-args)
=. state-by-ship.ax (~(put by state-by-ship.ax) our.task ship-state)
::
@ -5127,7 +5127,7 @@
::
=/ our=@p (slav %p i.wire)
=/ ship-state ~|(our+our (~(got by state-by-ship.ax) our))
=* event-args [[our duct now scry] ship-state]
=* event-args [[our duct now scry-gate] ship-state]
:: %clay-sub: response to a clay %mult subscription
::
=^ moves ship-state