urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-22 10:21:31 +03:00
Code Issues Packages Projects Releases Wiki Activity

working tests for wallet-store

Browse Source
This commit is contained in:
timlucmiptev 2021-01-30 19:29:29 +02:00 committed by ixv
parent eb797cb4a1
commit 26fb84f046
2 changed files with 58 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/btc-wallet-store.hoon
View File

@ -67,6 +67,10 @@
add add
(roll (turn txos.t |=(=txo value.txo)) add) (roll (turn txos.t |=(=txo value.txo)) add)
:: ::
++ fee
=/ [in=sats out=sats] value
(sub in out)
::
++ tx-data ++ tx-data
|^ |^
^- data:tx:btc ^- data:tx:btc
@ -86,10 +90,6 @@
value.txo value.txo
-- --
:: ::
++ fee
=/ [in=sats out=sats] value
(sub in out)
::
++ get-txid ++ get-txid
^- txid ^- txid
(get-id:txu:btc tx-data) (get-id:txu:btc tx-data)

62
tests/lib/btc-wallet-store.hoon
View File

@ -37,7 +37,7 @@
[[%bech32 'bc1qlwd7mw33uea5m8r2lsnsrkc7gp2qynrxsfxpfm'] 200.000 ~] [[%bech32 'bc1qlwd7mw33uea5m8r2lsnsrkc7gp2qynrxsfxpfm'] 200.000 ~]
== ==
:* `~[[(mk-utxo 500.000) %0 2]] :* `~[[(mk-utxo 500.000) %0 2]]
`98.400 `332.500
== ==
== ==
:: ::
@ -54,7 +54,7 @@
[[%bech32 'bc1qlwd7mw33uea5m8r2lsnsrkc7gp2qynrxsfxpfm'] 200.000 ~] [[%bech32 'bc1qlwd7mw33uea5m8r2lsnsrkc7gp2qynrxsfxpfm'] 200.000 ~]
== ==
:* `~[[(mk-utxo 235.000) %1 2] [(mk-utxo 200.000) %0 1]] :* `~[[(mk-utxo 235.000) %1 2] [(mk-utxo 200.000) %0 1]]
`64.000 `297.500
== ==
== ==
:: ::
@ -70,9 +70,37 @@
*(unit sats:btc) *(unit sats:btc)
== ==
== ==
:* 'zpub6rFR7y4Q2AijBEqTUquhVz398htDFrtymD9xYYfG1m4wAcvPhXNfE3EfH1r1ADqtfSdVCToUG868RvUUkgDKf31mGDtKsAYz2oz2AGutZYs'
0v1gt.mc4ca.lfs0m.q1dal.lqobu.mmlbd.2umnp.lj9dr.4pf4s.pvclr.dps96.4a6i8.rt6n9.krp0r.11kqu.ckqe4.1tmat.gr754.463aj.a4b41.jj7qg
999
10
~[[(mk-utxo 500.000) %0 2]]
:~ [[%bech32 'bc1q59u5epktervh6fxqay2dlph0wxu9hjnx6v8n66'] 298.580 ~]
[[%bech32 'bc1qlwd7mw33uea5m8r2lsnsrkc7gp2qynrxsfxpfm'] 200.000 ~]
==
:* `~[[(mk-utxo 500.000) %0 2]]
*(unit sats:btc)
==
==
== ==
:: ::
++ dust-vectors %.n ++ dust-output-vectors
=| w=walt
^- (list vector)
:~
:* 'zpub6rFR7y4Q2AijBEqTUquhVz398htDFrtymD9xYYfG1m4wAcvPhXNfE3EfH1r1ADqtfSdVCToUG868RvUUkgDKf31mGDtKsAYz2oz2AGutZYs'
0v1gt.mc4ca.lfs0m.q1dal.lqobu.mmlbd.2umnp.lj9dr.4pf4s.pvclr.dps96.4a6i8.rt6n9.krp0r.11kqu.ckqe4.1tmat.gr754.463aj.a4b41.jj7qg
999
10
~[[(mk-utxo 500.000) %0 2]]
:~ [[%bech32 'bc1q59u5epktervh6fxqay2dlph0wxu9hjnx6v8n66'] 298.580 ~]
[[%bech32 'bc1qlwd7mw33uea5m8r2lsnsrkc7gp2qynrxsfxpfm'] 204 ~]
==
:* `~[[(mk-utxo 500.000) %0 2]]
*(unit sats:btc)
==
==
==
:: ::
++ test-vectors ++ test-vectors
^- tang ^- tang
@ -83,6 +111,8 @@
%+ category "select with change" %+ category "select with change"
(zing (turn vectors check-change)) (zing (turn vectors check-change))
:: ::
%+ category "don't allow dust outputs"
(zing (turn dust-output-vectors check-dust-output))
== ==
:: ::
++ check-single-random-draw ++ check-single-random-draw
@ -95,17 +125,33 @@
++ check-change ++ check-change
|= v=vector |= v=vector
=/ w=walt (from-xpub xpub.v fprint ~ ~ ~) =/ w=walt (from-xpub xpub.v fprint ~ ~ ~)
=/ addis=(list [address:btc addi]) =. wach.w
%- ~(gas by *(map address:btc addi))
%+ turn ins.v %+ turn ins.v
|= i=insel |= i=insel
:- (~(mk-address wad w chyg.i) idx.i) :- (~(mk-address wad w chyg.i) idx.i)
[%.y %0 0 (sy ~[utxo.i])] [%.y %0 0 (sy ~[utxo.i])]
?~ addis ~
=. w w(wach (my addis
%+ expect-eq %+ expect-eq
!>(chng.expect.v) !>(chng.expect.v)
!>(+:~(with-change sut [w eny.v block.v ~ feyb.v outs.v])) !>(chng:~(with-change sut [w eny.v block.v ~ feyb.v outs.v]))
::
++ check-dust-output
|= v=vector
=/ w=walt (from-xpub xpub.v fprint ~ ~ ~)
=. wach.w (insels-to-wach w ins.v)
%- expect-fail
|.(~(with-change sut [w eny.v block.v ~ feyb.v outs.v]))
::
++ insels-to-wach
|= [w=walt is=(list insel)]
^- wach
%- ~(gas by *(map address:btc addi))
%+ turn is
|= i=insel
:- (~(mk-address wad w chyg.i) idx.i)
[%.y %0 0 (sy ~[utxo.i])]
-- --
:: don't allow dust outputs :: if a non-change output is dust, error
:: change shouldn't be returned when change is dust
:: ::
-- --