mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 00:13:12 +03:00
test: 1162
This commit is contained in:
parent
91d390d529
commit
e4b6fe6ad3
@ -11,13 +11,13 @@
|
||||
=^ born-moves khan-gate
|
||||
%- khan-call :*
|
||||
khan-gate
|
||||
now=~1111.1.1
|
||||
now=~1162.1.1
|
||||
scry=scry-provides-mark
|
||||
call-args=[duct=~[/initial-born-duct] ~ [%born ~]]
|
||||
==
|
||||
=/ results-0 (expect-eq !>(~) !>(born-moves))
|
||||
=/ fyrd=(fyrd:khan cast:khan) [%base %nonexistent %noun %noun ~]
|
||||
=/ now=@da (add ~1111.1.1 ~s1)
|
||||
=/ now=@da (add ~1162.1.1 ~s1)
|
||||
=^ start-moves khan-gate
|
||||
%- khan-call :*
|
||||
khan-gate
|
||||
@ -36,7 +36,7 @@
|
||||
?> ?=(%pass -.q.mev)
|
||||
=/ results-3
|
||||
%+ expect-eq
|
||||
!> /fyrd/~nul/base/da/~1111.1.1..00.00.01/noun
|
||||
!> /fyrd/~nul/base/da/~1162.1.1..00.00.01/noun
|
||||
!> wire.q.mev
|
||||
=/ results-4 (expect-eq !>(%k) !>(-.note.q.mev))
|
||||
?> ?=(%fard +<.note.q.mev)
|
||||
@ -53,12 +53,12 @@
|
||||
=^ born-moves khan-gate
|
||||
%- khan-call :*
|
||||
khan-gate
|
||||
now=~1111.1.1
|
||||
now=~1162.1.1
|
||||
scry=scry-provides-mark
|
||||
call-args=[duct=~[/initial-born-duct] ~ [%born ~]]
|
||||
==
|
||||
=/ fard=(fyrd:khan cage) [%base %nonexistent %noun !>(~)]
|
||||
=/ now=@da (add ~1111.1.1 ~s1)
|
||||
=/ now=@da (add ~1162.1.1 ~s1)
|
||||
=^ start-moves khan-gate
|
||||
%- khan-call :*
|
||||
khan-gate
|
||||
@ -113,7 +113,7 @@
|
||||
=^ born-moves khan-gate
|
||||
%- khan-call :*
|
||||
khan-gate
|
||||
now=~1111.1.1
|
||||
now=~1162.1.1
|
||||
scry=scry-provides-mark
|
||||
call-args=[duct=~[/a] ~ [%born ~]]
|
||||
==
|
||||
@ -122,7 +122,7 @@
|
||||
=^ start-moves khan-gate
|
||||
%- khan-call :*
|
||||
khan-gate
|
||||
now=(add ~1111.1.1 ~s1)
|
||||
now=(add ~1162.1.1 ~s1)
|
||||
scry=scry-provides-mark
|
||||
^= call-args
|
||||
:* duct=~[//khan/2/0v0] ~
|
||||
@ -130,7 +130,7 @@
|
||||
== ==
|
||||
=^ take-moves khan-gate
|
||||
%- khan-take-all :*
|
||||
khan-gate now=~1111.1.2 sep=~s1 scry=scry-provides-mark
|
||||
khan-gate now=~1162.1.2 sep=~s1 scry=scry-provides-mark
|
||||
:~ [//g ~[//khan/2/0v0] ~ %gall %unto %watch-ack ~]
|
||||
[//g ~[//khan/2/0v0] ~ %gall %unto %poke-ack ~]
|
||||
[//g ~[//khan/2/0v0] ~ %gall %unto %fact %thread-done !>(%res)]
|
||||
@ -148,14 +148,14 @@
|
||||
=^ born-moves khan-gate
|
||||
%- khan-call :*
|
||||
khan-gate
|
||||
now=~1111.1.1
|
||||
now=~1162.1.1
|
||||
scry=scry-provides-mark
|
||||
call-args=[duct=~[/a] ~ [%born ~]]
|
||||
==
|
||||
=^ fyrd-moves khan-gate
|
||||
%- khan-call :*
|
||||
khan-gate
|
||||
now=(add ~1111.1.1 ~s1)
|
||||
now=(add ~1162.1.1 ~s1)
|
||||
scry=scry-provides-mark
|
||||
^= call-args
|
||||
duct=~[//khan/0v0/1/0v2] ~
|
||||
@ -172,7 +172,7 @@
|
||||
=^ arow-moves khan-gate
|
||||
%- khan-take :*
|
||||
khan-gate
|
||||
now=(add ~1111.1.1 ~s3)
|
||||
now=(add ~1162.1.1 ~s3)
|
||||
scry=scry-provides-mark
|
||||
^= take-args
|
||||
wire=wir
|
||||
@ -194,14 +194,14 @@
|
||||
++ test-khan-fard-watch-ack-fail
|
||||
=^ born-moves khan-gate
|
||||
%- khan-call-all :*
|
||||
khan-gate now=~1111.1.1 sep=~s1 scry=scry-provides-mark
|
||||
khan-gate now=~1162.1.1 sep=~s1 scry=scry-provides-mark
|
||||
:~ [~[/a] ~ %born ~]
|
||||
[~[//khan/0v0/1/0v0] ~ %fard %base %hi %noun %noun ~]
|
||||
==
|
||||
==
|
||||
=^ watch-ack-moves khan-gate
|
||||
%- khan-take :*
|
||||
khan-gate now=~1111.1.2 scry=scry-provides-mark
|
||||
khan-gate now=~1162.1.2 scry=scry-provides-mark
|
||||
^= take-args
|
||||
//g ~[//khan/0v0/1/0v0] ~
|
||||
%gall %unto %watch-ack `~['fail']
|
||||
@ -216,14 +216,14 @@
|
||||
++ test-khan-fard-poke-ack-fail
|
||||
=^ call-moves khan-gate
|
||||
%- khan-call-all :*
|
||||
khan-gate now=~1111.1.1 sep=~s1 scry=scry-provides-mark
|
||||
khan-gate now=~1162.1.1 sep=~s1 scry=scry-provides-mark
|
||||
:~ [~[/a] ~ %born ~]
|
||||
[~[//khan/0v0/1/0v0] ~ %fard %base %hi %noun %noun ~]
|
||||
==
|
||||
==
|
||||
=^ take-moves khan-gate
|
||||
%- khan-take-all :*
|
||||
khan-gate now=~1111.1.2 sep=~s1 scry=scry-provides-mark
|
||||
khan-gate now=~1162.1.2 sep=~s1 scry=scry-provides-mark
|
||||
:~ [//g ~[//khan/0v0/1/0v0] ~ %gall %unto %watch-ack ~]
|
||||
:* //g ~[//khan/0v0/1/0v0] ~
|
||||
%gall %unto %poke-ack `~['fail']
|
||||
@ -241,14 +241,14 @@
|
||||
++ test-khan-fard-thread-fail
|
||||
=^ call-moves khan-gate
|
||||
%- khan-call-all :*
|
||||
khan-gate now=~1111.1.1 sep=~s1 scry=scry-provides-mark
|
||||
khan-gate now=~1162.1.1 sep=~s1 scry=scry-provides-mark
|
||||
:~ [~[/a] ~ %born ~]
|
||||
[~[//khan/0v0/1/0v0] ~ %fard %base %hi %noun %noun ~]
|
||||
==
|
||||
==
|
||||
=^ take-moves khan-gate
|
||||
%- khan-take-all :*
|
||||
khan-gate now=~1111.1.2 sep=~s1 scry=scry-provides-mark
|
||||
khan-gate now=~1162.1.2 sep=~s1 scry=scry-provides-mark
|
||||
:~ [//g ~[//khan/0v0/1/0v0] ~ %gall %unto %watch-ack ~]
|
||||
[//g ~[//khan/0v0/1/0v0] ~ %gall %unto %poke-ack ~]
|
||||
:* //g ~[//khan/0v0/1/0v0] ~
|
||||
@ -270,7 +270,7 @@
|
||||
++ test-khan-fyrd-arow-fail
|
||||
=^ call-moves khan-gate
|
||||
%- khan-call-all :*
|
||||
khan-gate now=~1111.1.1 sep=~s1 scry=scry-provides-mark
|
||||
khan-gate now=~1162.1.1 sep=~s1 scry=scry-provides-mark
|
||||
:~ [~[/a] ~ %born ~]
|
||||
[~[//khan/0v0/1/0v0] ~ %fyrd %base %a %noun %noun ~]
|
||||
==
|
||||
@ -281,7 +281,7 @@
|
||||
=* wir wire.q.fard-move
|
||||
=^ arow-moves khan-gate
|
||||
%- khan-take :*
|
||||
khan-gate now=~1111.1.2 scry=scry-provides-mark
|
||||
khan-gate now=~1162.1.2 scry=scry-provides-mark
|
||||
^= take-args
|
||||
wir ~[//khan/0v0/1/0v0] ~
|
||||
%khan %arow %| %watch-ack ~['fail']
|
||||
@ -297,7 +297,7 @@
|
||||
=^ born-moves khan-gate
|
||||
%- khan-call :*
|
||||
khan-gate
|
||||
~1111.1.1
|
||||
~1162.1.1
|
||||
scry-provides-mark
|
||||
~[/a] ~ %born ~
|
||||
==
|
||||
@ -305,7 +305,7 @@
|
||||
|.
|
||||
%- khan-call :*
|
||||
khan-gate
|
||||
(add ~1111.1.1 ~s1)
|
||||
(add ~1162.1.1 ~s1)
|
||||
scry-provides-mark
|
||||
~[//khan/0v0/1/0v0] ~
|
||||
%fyrd %base %a %noun %bad-mark ~
|
||||
@ -313,7 +313,7 @@
|
||||
++ test-khan-fyrd-no-output-mark
|
||||
=^ call-moves khan-gate
|
||||
%- khan-call-all :*
|
||||
khan-gate ~1111.1.1 ~s1 scry-provides-mark
|
||||
khan-gate ~1162.1.1 ~s1 scry-provides-mark
|
||||
:~ [~[/a] ~ %born ~]
|
||||
[~[//khan/0v0/1/0v0] ~ %fyrd %base %a %bad-mark %noun ~]
|
||||
==
|
||||
@ -322,9 +322,9 @@
|
||||
|.
|
||||
%- khan-take :*
|
||||
khan-gate
|
||||
~1111.1.2
|
||||
~1162.1.2
|
||||
scry-provides-mark
|
||||
/fyrd/~nul/base/da/~1111.1.1..00.00.01/bad-mark
|
||||
/fyrd/~nul/base/da/~1162.1.1..00.00.01/bad-mark
|
||||
~[//khan/0v0/1/0v0] ~
|
||||
[%khan %arow %& %noun !>(~)]
|
||||
==
|
||||
|
Loading…
Reference in New Issue
Block a user