diff --git a/pkg/arvo/tests/lib/naive.hoon b/pkg/arvo/tests/lib/naive.hoon index 59808315c4..cd0d546869 100644 --- a/pkg/arvo/tests/lib/naive.hoon +++ b/pkg/arvo/tests/lib/naive.hoon @@ -366,7 +366,7 @@ =^ f state (n state %bat q:(gen-tx 0 marbud-mproxy %marbud-key-0)) management-proxy.own:(~(got by points.state) ~marbud) :: -++ test-l2-spawn-proxy-deposit ^- tang +++ test-l2-dopbud-spawn-proxy-deposit ^- tang %+ expect-eq !> %spawn :: @@ -375,6 +375,43 @@ =^ f state (init-dopbud state) dominion:(~(got by points.state) ~dopbud) :: +++ test-l2-sambud-spawn-proxy-predeposit ^- tang + %+ expect-eq + !> [(addr %sambud-skey) 0] + :: + !> + =| =^state:naive + =^ f state (init-sambud state) + =^ f state (n state (changed-spawn-proxy:l1 ~sambud (addr %sambud-skey))) + =^ f state (n state (changed-spawn-proxy:l1 ~sambud deposit-address:naive)) + spawn-proxy.own:(~(got by points.state) ~sambud) +:: +++ test-l2-sambud-own-spawn-proxy-postdeposit ^- tang + =/ sambud-sproxy [[~sambud %own] %set-spawn-proxy (addr %sambud-skey-0)] + %+ expect-eq + !> [(addr %sambud-skey-0) 0] + :: + !> + =| =^state:naive + =^ f state (init-sambud state) + =^ f state (n state (changed-spawn-proxy:l1 ~sambud deposit-address:naive)) + =^ f state (n state %bat q:(gen-tx 0 sambud-sproxy %sambud-key-0)) + spawn-proxy.own:(~(got by points.state) ~sambud) +:: +++ test-l2-sambud-spawn-spawn-proxy-postdeposit ^- tang + =/ sambud-sproxy [[~sambud %spawn] %set-spawn-proxy (addr %sambud-skey-1)] + %+ expect-eq + !> [(addr %sambud-skey-1) 0] + :: + !> + =| =^state:naive + =^ f state (init-sambud state) + =^ f state (n state (changed-spawn-proxy:l1 ~sambud (addr %sambud-skey-0))) + =^ f state (n state (changed-spawn-proxy:l1 ~sambud deposit-address:naive)) + =^ f state (n state %bat q:(gen-tx 0 sambud-sproxy %sambud-skey-0)) + spawn-proxy.own:(~(got by points.state) ~sambud) + +:: ++ test-marbud-l2-spawn ^- tang =/ marbud-sproxy [marbud-own %set-spawn-proxy (addr %marbud-skey)] =/ lt-spawn [%spawn ~linnup-torsyx (addr %lt-key-0)]