urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-25 13:04:17 +03:00
Code Issues Packages Projects Releases Wiki Activity

naive: own sponsor escape test

Browse Source
This commit is contained in:
drbeefsupreme 2021-07-21 15:14:20 -04:00
parent 1775b6fa5f
commit f58addc761
No known key found for this signature in database
GPG Key ID: B70D5683DE7F9EFC
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1882,6 +1882,21 @@
[escape.net sponsor.net]:(~(got by points.state) ~rabsum-ravtyd) [escape.net sponsor.net]:(~(got by points.state) ~rabsum-ravtyd)
== ==
:: ::
++ test-own-sponsor-l2-escape
:: You can't escape to your own sponsor on L1, so you shouldn't be able
:: to on L2 either
::
=/ rr-escape [[~rabsum-ravtyd %own] %escape ~holrut]
::
%+ expect-eq
!> [~ %.y ~holrut]
::
!>
=| =^state:naive
=^ f state (init-rut-full state)
=^ f state (n state %bat q:(gen-tx 0 rr-escape %holrut-rr-key-0))
[escape.net sponsor.net]:(~(got by points.state) ~rabsum-ravtyd)
::
++ test-rut-l1-detach-1 ++ test-rut-l1-detach-1
:: L1-detach A1 | * | * | A1 | A1 | -> | * | * | ~ | ~ :: L1-detach A1 | * | * | A1 | A1 | -> | * | * | ~ | ~
:: this checks that if you have the same sponsor on L1 and L2, then :: this checks that if you have the same sponsor on L1 and L2, then
@ -1892,6 +1907,10 @@
:: the L2 state as being sponsored by ~holrut, but we will go through :: the L2 state as being sponsored by ~holrut, but we will go through
:: with adopting ~rabsum-ravtyd on L2 anyways before the L1 detach :: with adopting ~rabsum-ravtyd on L2 anyways before the L1 detach
:: ::
:: TODO: escaping to your own sponsor shouldn't be allowed since it isn't
:: on L1, so I should remove the lines that have RR escaping to its
:: own sponsor
::
=/ rr-escape [[~rabsum-ravtyd %own] %escape ~holrut] =/ rr-escape [[~rabsum-ravtyd %own] %escape ~holrut]
=/ rr-adopt [holrut-own %adopt ~rabsum-ravtyd] =/ rr-adopt [holrut-own %adopt ~rabsum-ravtyd]
%+ expect-eq %+ expect-eq