shrub/gen/ford-turbo.hoon

/+  ford-turbo, tester
::
:-  %say
|=  [[now=@da eny=@ =beak] ~ ~]
:-  %noun
=+  our=p.beak
=+  tester:tester
|^  
^-  wall
;:  weld
  test-compiles
  test-call
==
++  test-compiles
  ~&  %test-compiles
  %-  expect-eq  !>
  [ford-turbo ford-turbo]
::
++  test-call
  ~&  %test-call
  %-  expect-eq  !>
  :-  [duct=~ %give %made now %complete %result %$ %noun !>(**)]~
  =-  -.-
  %-  call:(ford-turbo)
  :*  duct=~
      type=~
      %make
      our
      plan=[%$ %noun !>(**)]
      date=`now
  ==
--
dummy +build; use generator for tests 2018-03-16 03:21:46 +03:00			`/+ ford-turbo, tester`
			`::`
			`:- %say`
			`\|= [[now=@da eny=@ =beak] ~ ~]`
			`:- %noun`
			`=+ our=p.beak`
			`=+ tester:tester`
			`\|^`
			`^- wall`
			`;: weld`
			`test-compiles`
			`test-call`
			`==`
			`++ test-compiles`
			`~& %test-compiles`
			`%- expect-eq !>`
			`[ford-turbo ford-turbo]`
			`::`
			`++ test-call`
			`~& %test-call`
			`%- expect-eq !>`
Builds literal schematics 2018-03-16 04:38:33 +03:00			`:- [duct=~ %give %made now %complete %result %$ %noun !>(**)]~`
dummy +build; use generator for tests 2018-03-16 03:21:46 +03:00			`=- -.-`
			`%- call:(ford-turbo)`
			`:* duct=~`
			`type=~`
			`%make`
			`our`
			`plan=[%$ %noun !>(**)]`
			date=`now
			`==`
			`--`