ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 10:02:47 +03:00
Code Issues Packages Projects Releases Wiki Activity

%ride test with failed scry

Browse Source
This commit is contained in:
Ted Blackman 2018-04-05 14:31:59 -07:00
parent e58986fc73
commit 4ca22b988c
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
gen/ford-turbo.hoon
View File

@ -24,6 +24,7 @@
test-slim test-slim
test-ride test-ride
test-ride-scry-succeed test-ride-scry-succeed
test-ride-scry-fail
test-ride-scry-block test-ride-scry-block
== ==
++ test-is-schematic-live ++ test-is-schematic-live
@ -618,6 +619,33 @@
:- (~(nest ut &8:i.moves) | -:!>(*@)) :- (~(nest ut &8:i.moves) | -:!>(*@))
& &
:: ::
++ test-ride-scry-fail
~& %test-ride-scry-fail
::
=/ scry-failed (scry-fail ~1234.5.6)
=/ ford (ford-turbo now=~1234.5.6 eny=0xdead.beef scry=scry-failed)
::
=/ formula=hoon (ream '!: .^(* %cx /~nul/desk/~1234.5.6/foo/bar)')
=/ subject-schematic=schematic:ford [%$ %noun !>(.)]
::
=^ moves ford
%- call:ford
:* duct=~[/dead] type=~ %make ~nul
[%ride formula subject-schematic]
==
::
?> =(1 (lent moves))
?> ?=(^ moves)
?> ?=([* %give %made @da %complete %error *] i.moves)
::
%- expect-eq !>
:: compare the move to the expected move, omitting check on stack trace
::
:- i.moves(|7 ~)
:* duct=~[/dead] %give %made ~1234.5.6 %complete
[%error [leaf+"ford: %ride failed:" ~]]
==
::
++ test-ride-scry-block ++ test-ride-scry-block
~& %test-ride-scry-block ~& %test-ride-scry-block
:: ::