mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 20:02:51 +03:00
90 lines
1.8 KiB
Plaintext
90 lines
1.8 KiB
Plaintext
/+ ford-turbo, tester
|
|
::
|
|
:- %say
|
|
|= [[now=@da eny=@ =beak] ~ ~]
|
|
:- %noun
|
|
=+ our=p.beak
|
|
=+ tester:tester
|
|
=/ ford (ford-turbo now=~1234.5.6 eny=0xdead.beef scry=*sley)
|
|
|^
|
|
^- wall
|
|
;: weld
|
|
test-compiles
|
|
test-literal
|
|
test-autocons-same
|
|
test-autocons-different
|
|
==
|
|
++ test-compiles
|
|
~& %test-compiles
|
|
%- expect-eq !>
|
|
[ford-turbo ford-turbo]
|
|
::
|
|
++ test-literal
|
|
~& %test-literal
|
|
=^ moves ford
|
|
%- call:ford
|
|
:* duct=~
|
|
type=~
|
|
%make
|
|
~nul
|
|
plan=[%$ %noun !>(**)]
|
|
date=`~1234.5.6
|
|
==
|
|
%+ welp
|
|
%- expect-eq !>
|
|
:- moves
|
|
[duct=~ %give %made ~1234.5.6 %complete %result %$ %noun !>(**)]~
|
|
::
|
|
%- expect-eq !>
|
|
:- state-by-ship.+>+<.ford
|
|
(my [~nul *ford-state:ford-turbo]~)
|
|
::
|
|
++ test-autocons-same
|
|
~& %test-autocons-same
|
|
=^ moves ford
|
|
%- call:ford
|
|
:* duct=~
|
|
type=~
|
|
%make
|
|
~nul
|
|
plan=[[%$ %noun !>(**)] [%$ %noun !>(**)]]
|
|
date=`~1234.5.6
|
|
==
|
|
%+ welp
|
|
%- expect-eq !>
|
|
:- moves
|
|
:~ :* duct=~ %give %made ~1234.5.6 %complete
|
|
%result
|
|
[%result %$ %noun !>(**)]
|
|
[%result %$ %noun !>(**)]
|
|
== ==
|
|
::
|
|
%- expect-eq !>
|
|
:- state-by-ship.+>+<.ford
|
|
(my [~nul *ford-state:ford-turbo]~)
|
|
::
|
|
++ test-autocons-different
|
|
~& %test-autocons-different
|
|
=^ moves ford
|
|
%- call:ford
|
|
:* duct=~
|
|
type=~
|
|
%make
|
|
~nul
|
|
plan=[[%$ %noun !>(42)] [%$ %noun !>(43)]]
|
|
date=`~1234.5.6
|
|
==
|
|
%+ welp
|
|
%- expect-eq !>
|
|
:- moves
|
|
:~ :* duct=~ %give %made ~1234.5.6 %complete
|
|
%result
|
|
[%result %$ %noun !>(42)]
|
|
[%result %$ %noun !>(43)]
|
|
== ==
|
|
::
|
|
%- expect-eq !>
|
|
:- state-by-ship.+>+<.ford
|
|
(my [~nul *ford-state:ford-turbo]~)
|
|
--
|