ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-20 05:11:46 +03:00
Code Issues Packages Projects Releases Wiki Activity

naive: working spawn tests

Browse Source
This commit is contained in:
drbeefsupreme 2021-06-15 18:07:20 -04:00
parent 5581094263
commit e160485eb0
No known key found for this signature in database
GPG Key ID: B70D5683DE7F9EFC
1 changed files with 52 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
pkg/arvo/tests/lib/naive.hoon
View File

@ -318,7 +318,7 @@
|= cur-event=event ^- ?
?+ tx-type.cur-event %.n
%transfer-point %.y
%set-transfer-proxy %.y :: TODO: double check this
%set-transfer-proxy %.n
==
-- :: +star-check
++ planet-check
@ -344,7 +344,7 @@
%detach %.n
%set-management-proxy %.y
%set-spawn-proxy %.n
%set-transfer-proxy %.n
%set-transfer-proxy %.y
==
++ managep-check
|= cur-event=event ^- ?
@ -545,15 +545,16 @@
(cury filter-owner %.y)
(cury filter-proxy %own)
(cury filter-nonce %.y)
:: (cury filter-dominion %l1)
::(cury filter-rank %star)
::(cury filter-dominion %l2)
%- cury
:- filter-tx-type
:* :: %spawn :: currently crashes
:* %spawn :: currently crashes
::%transfer-point
::%configure-keys
%set-management-proxy
%set-spawn-proxy
::%set-transfer-proxy
::%set-spawn-proxy
%set-transfer-proxy
~
==
==
@ -780,20 +781,19 @@
::
=/ state initial-state
=/ expect-state initial-state
|^
%+ expect-eq
!>
|^
?. (~(got by suc-map) cur-event)
=/ new-nonce cur-point(nonce.owner.own +(cur-nonce))
%= expect-state
points (~(put by points.expect-state) cur-ship new-nonce)
==
(alter-state cur-point(nonce.owner.own +(cur-nonce)))
?+ tx-type.cur-event !!
%transfer-point set-xfer
%configure-keys set-keys
%set-management-proxy set-mgmt-proxy
%set-spawn-proxy set-spwn-proxy
%set-transfer-proxy set-xfer-proxy
%spawn (new-point which-spawn)
==
::
++ set-keys ^- ^state:naive
@ -838,8 +838,31 @@
==
(alter-state new-xfer)
::
++ new-point
:: TODO clean up this horrifying gate
|= =ship ^- ^state:naive
=| new-point=point:naive
=/ spawned
%= new-point
dominion %l2
address.owner.own (addr (~(got by default-own-keys) cur-ship))
address.transfer-proxy.own (addr %spawn-test)
sponsor.net [has=%.y who=cur-ship]
==
=/ new-nonce
%= cur-point
nonce.owner.own +(cur-nonce)
==
=/ new-spawn=^state:naive
%= expect-state
points (~(put by points.expect-state) ship spawned)
==
%= new-spawn
points (~(put by points.new-spawn) cur-ship new-nonce)
==
::
++ alter-state
|= new-point=point:naive
|= new-point=point:naive ^- ^state:naive
%= expect-state
points (~(put by points.expect-state) cur-ship new-point)
==
@ -887,6 +910,8 @@
::
-- :: +def-args
::
-- :: end of actual state
::
++ which-spawn ^- ship
?+ cur-ship !!
%~rut ~hasrut
@ -903,7 +928,7 @@
%~disryt-nolpet ~tapfur-fitsep
==
::
-- :: end of actual state
-- :: end of +expect-eq
::
++ test-marbud-l2-change-keys-new ^- tang
=/ new-keys [%configure-keys encr auth suit |]