shrub/pkg/arvo/tests/lib/naive.hoon
2021-03-17 17:27:30 -07:00

24 lines
494 B
Plaintext

/+ *test, naive, ethereum
|%
++ dumver
^- ^verifier:naive
|= [dat=@ v=@ r=@ s=@]
=, secp256k1:secp:crypto
%- address-from-pub:key:ethereum
%- serialize-point
(ecdsa-raw-recover dat v r s)
--
::
|%
++ test-log
%+ expect-eq
!>
`[[[~bud %*(. *point:naive dominion %l1, owner.own 0x123)] ~ ~] ~ ~]
::
!>
%^ naive dumver *^state:naive
:* %log ~ *@ux *@t
(hash-log-name:naive 'OwnerChanged(uint32,address)') (@ux ~bud) 0x123 ~
==
--