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: combine transfer proxy tests

Browse Source
This commit is contained in:
drbeefsupreme 2021-05-06 11:29:17 -04:00
parent e7c268f53a
commit f39ca44a9d
No known key found for this signature in database
GPG Key ID: B70D5683DE7F9EFC
1 changed files with 8 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -591,7 +591,7 @@
==
::
:: TODO: transfer breach via transfer proxy
++ test-marbud-l2-transfer-breach ^- tang
++ test-marbud-l2-proxies-transfer ^- tang
=/ new-keys [~marbud %marbud-key-0 %own encr auth suit |]
=/ marbud-sproxy [~marbud %marbud-key-0 %own (addr %marbud-skey)]
=/ marbud-mproxy [~marbud %marbud-key-0 %own (addr %marbud-mkey)]
@ -600,7 +600,7 @@
::
;: weld
%+ expect-eq
:: Tests that proxies are reset on transfer breach
:: Tests that proxies are reset on transfer with breach
::
!>
:* [(addr %marbud-key-1) 3] :: ownership
@ -621,7 +621,7 @@
own:(~(got by points.state) ~marbud)
::
%+ expect-eq
:: Tests that networking keys are reset on transfer breach
:: Tests that networking keys are reset on transfer with breach
!>
[0 0 0]
::
@ -631,21 +631,13 @@
=^ f state (n state %bat q:(configure-keys:l2 0 new-keys))
=^ f state (n state %bat q:(transfer-point:l2 1 ~marbud %marbud-key-0 %own (addr %marbud-key-0) &))
|1:keys.net:(~(got by points.state) ~marbud)
==
::
++ test-marbud-l2-transfer-no-breach ^- tang
=/ new-keys [~marbud %marbud-key-0 %own encr auth suit |]
=/ marbud-sproxy [~marbud %marbud-key-0 %own (addr %marbud-skey)]
=/ marbud-mproxy [~marbud %marbud-key-0 %own (addr %marbud-mkey)]
=/ marbud-tproxy [~marbud %marbud-key-0 %own (addr %marbud-key-1)]
::
;: weld
::
%+ expect-eq
:: Tests that proxies are not reset when transfering with no breach
:: Tests that proxies are not reset when transfering without breach
!>
:* [(addr %marbud-key-1) 3] :: ownership
[`@`(addr %marbud-skey) 0] :: spawn-proxy
[`@`(addr %marbud-mkey) 0] :: management-proxy
[(addr %marbud-skey) 0] :: spawn-proxy
[(addr %marbud-mkey) 0] :: management-proxy
[0 0] :: voting-proxy
[0 1] :: transfer-proxy
==
@ -661,7 +653,7 @@
own:(~(got by points.state) ~marbud)
::
%+ expect-eq
:: Tests that networking keys are not reset when transfering with no breach
:: Tests that networking keys are not reset when transfering without breach
!>
[suit auth encr]
::