mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-09-22 16:09:13 +03:00
test scry fail
This commit is contained in:
parent
3f5d542b58
commit
ea4c182b19
@ -14,7 +14,8 @@
|
||||
test-literal
|
||||
test-autocons-same
|
||||
test-autocons-different
|
||||
test-scry-clay
|
||||
test-scry-clay-succeed
|
||||
test-scry-clay-fail
|
||||
==
|
||||
++ test-compiles
|
||||
~& %test-compiles
|
||||
@ -98,8 +99,8 @@
|
||||
:- state-by-ship.+>+<.ford
|
||||
(my [~nul *ford-state:ford-turbo]~)
|
||||
::
|
||||
++ test-scry-clay
|
||||
~& %test-scry-clay
|
||||
++ test-scry-clay-succeed
|
||||
~& %test-scry-clay-succeed
|
||||
=/ scry
|
||||
|= [* (unit (set monk)) =term =beam]
|
||||
^- (unit (unit cage))
|
||||
@ -129,4 +130,37 @@
|
||||
%- expect-eq !>
|
||||
:- state-by-ship.+>+<.ford
|
||||
(my [~nul *ford-state:ford-turbo]~)
|
||||
::
|
||||
++ test-scry-clay-fail
|
||||
~& %test-scry-clay-fail
|
||||
=/ scry
|
||||
|= [* (unit (set monk)) =term =beam]
|
||||
^- (unit (unit cage))
|
||||
::
|
||||
?> =(term %cx)
|
||||
?> =(beam [[~nul %desk %da ~1234.5.6] /bar/foo])
|
||||
::
|
||||
[~ ~]
|
||||
::
|
||||
=. ford (ford-turbo now=~1234.5.6 eny=0xdead.beef scry=scry)
|
||||
=^ moves ford
|
||||
%- call:ford
|
||||
:* duct=~
|
||||
type=~
|
||||
%make
|
||||
~nul
|
||||
plan=[%scry %clay-once ren=%x bem=[[~nul %desk %da ~1234.5.6] /bar/foo]]
|
||||
date=`~1234.5.6
|
||||
==
|
||||
%+ welp
|
||||
%- expect-eq !>
|
||||
:- moves
|
||||
:~ :* duct=~ %give %made ~1234.5.6 %complete %error
|
||||
:~ leaf+"clay-live scry failed for"
|
||||
leaf+"%cx /~nul/desk/~1234.5.6/foo/bar"
|
||||
== == ==
|
||||
::
|
||||
%- expect-eq !>
|
||||
:- state-by-ship.+>+<.ford
|
||||
(my [~nul *ford-state:ford-turbo]~)
|
||||
--
|
||||
|
@ -1091,7 +1091,7 @@
|
||||
?~ u.scry-response
|
||||
=/ error=tang
|
||||
:~ leaf+"clay-live scry failed for"
|
||||
leaf+"%{<ren.dependency>} {<(en-beam beam.dependency)>}"
|
||||
leaf+"%c{(trip ren.dependency)} {<(en-beam beam.dependency)>}"
|
||||
==
|
||||
^- make-product
|
||||
[[%build-result %error error] state]
|
||||
|
Loading…
Reference in New Issue
Block a user