mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 08:32:39 +03:00
50 lines
1.3 KiB
Plaintext
50 lines
1.3 KiB
Plaintext
/- *bitcoin
|
|
/+ *test, *bip-b158, bcu=bitcoin-utils, pbt=bip-b174
|
|
|%
|
|
+$ psbt-vector
|
|
$: =hdkey
|
|
hdkey-hex=hexb
|
|
==
|
|
++ fprint 4^0xdead.beef
|
|
++ psbt-vectors
|
|
^- (list psbt-vector)
|
|
:~ :* [fprint 33^0x1 %testnet %44 %0 1]
|
|
20^0x2c00.0080.0100.0080.0000.0080.0000.0000.0100.0000
|
|
==
|
|
::
|
|
:* [fprint 33^0x1 %testnet %49 %0 1]
|
|
20^0x3100.0080.0100.0080.0000.0080.0000.0000.0100.0000
|
|
==
|
|
::
|
|
:* [fprint 33^0x1 %testnet %84 %0 1]
|
|
20^0x5400.0080.0100.0080.0000.0080.0000.0000.0100.0000
|
|
==
|
|
::
|
|
:* [fprint 33^0x1 %main %44 %0 1]
|
|
20^0x2c00.0080.0000.0080.0000.0080.0000.0000.0100.0000
|
|
==
|
|
::
|
|
:* [fprint 33^0x1 %main %49 %0 1]
|
|
20^0x3100.0080.0000.0080.0000.0080.0000.0000.0100.0000
|
|
==
|
|
::
|
|
:* [fprint 33^0x1 %main %84 %0 1]
|
|
20^0x5400.0080.0000.0080.0000.0080.0000.0000.0100.0000
|
|
==
|
|
==
|
|
++ test-all-vectors
|
|
^- tang
|
|
|^ ;: weld
|
|
%+ category "check PSBT"
|
|
(zing (turn psbt-vectors check-psbt))
|
|
==
|
|
++ check-psbt
|
|
|= v=psbt-vector
|
|
=/ key=hexb
|
|
(cat:byt:bcu ~[1^0x6 pubkey.hdkey.v]) :: %input target
|
|
%+ expect-eq
|
|
!>([key (cat:byt:bcu ~[fprint.hdkey.v hdkey-hex.v])])
|
|
!>((hdkey:en:pbt %input hdkey.v))
|
|
--
|
|
--
|