mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 16:51:42 +03:00
WIP: standardize tests
This commit is contained in:
timlucmiptev
ixv
parent
1e6ad29f9a
commit
eb797cb4a1
11
TEST.md
11
TEST.md
@ -8,23 +8,20 @@
|
||||
## BTC libs
|
||||
```
|
||||
|commit %home
|
||||
=test -build-file %/tests/btc/hoon
|
||||
=test -build-file %/tests/lib/btc/hoon
|
||||
run:test
|
||||
```
|
||||
|
||||
## BIP158
|
||||
```
|
||||
|commit %home
|
||||
=test -build-file %/tests/bip158/hoon
|
||||
=test -build-file %/tests/lib/bip158/hoon
|
||||
run:test
|
||||
```
|
||||
|
||||
## btc-wallet-store
|
||||
```
|
||||
|commit %home
|
||||
=test -build-file %/tests/btc-wallet-store/hoon
|
||||
run:test
|
||||
=test -build-file %/tests/lib/btc-wallet-store/hoon
|
||||
((slog test-vectors:test) ~)
|
||||
```
|
||||
|
||||
|
||||
5e4affa5aed691d53d548a2705d602b45c9ae553bf44a4689e96a90c2f5e07b6
|
||||
|
||||
@ -1,35 +0,0 @@
|
||||
/+ *btc-wallet-store, btc
|
||||
=/ blank-utxo=utxo:btc
|
||||
:* pos=0
|
||||
[wid=32 dat=0xc493.f6f1.4668.5f76.b44f.0c77.ca88.120c.b8bc.89f5.34fe.69b6.8288.27b9.74e6.8849]
|
||||
height=3
|
||||
value=0
|
||||
~
|
||||
==
|
||||
|%
|
||||
++ utxo-vals `(list sats:btc)`~[200.000 500.000 30 235.000]
|
||||
++ eny1 0v3uc.iuebi.5qilc.l8d87.c1k6n.7iksq.nkobs.8s5he.raq40.9ff0b.5tj3u.kjtg7.aq59e.hatv7.oioam.mlsr4.pqqcd.cnbjn.pnpi2.1m5rt.k4scg
|
||||
++ eny2 0v1gt.mc4ca.lfs0m.q1dal.lqobu.mmlbd.2umnp.lj9dr.4pf4s.pvclr.dps96.4a6i8.rt6n9.krp0r.11kqu.ckqe4.1tmat.gr754.463aj.a4b41.jj7qg
|
||||
++ blank-walt
|
||||
=| w=walt
|
||||
w(bipt %84, confs 6)
|
||||
++ sample-utxo-set
|
||||
^- (list insel)
|
||||
:~ [blank-utxo(value (snag 0 utxo-vals)) %0 0]
|
||||
[blank-utxo(value (snag 1 utxo-vals)) %0 2]
|
||||
[blank-utxo(value (snag 2 utxo-vals)) %0 1]
|
||||
[blank-utxo(value (snag 3 utxo-vals)) %1 2]
|
||||
==
|
||||
::
|
||||
++ run
|
||||
:: random UTXO selection
|
||||
=/ outputs=(list txo)
|
||||
:~ [[%bech32 'bc1q59u5epktervh6fxqay2dlph0wxu9hjnx6v8n66'] value=200.100 ~]
|
||||
[[%bech32 'bc1qlwd7mw33uea5m8r2lsnsrkc7gp2qynrxsfxpfm'] value=200.000 ~]
|
||||
==
|
||||
?. =(1 (lent (need (~(single-random-draw sut [blank-walt eny1 923 ~ 100 outputs]) sample-utxo-set))))
|
||||
~|("Didn't select correct number of UTXOs" !!)
|
||||
?. =(2 (lent (need (~(single-random-draw sut [blank-walt eny2 923 ~ 100 outputs]) sample-utxo-set))))
|
||||
~|("Didn't select correct number of UTXOs" !!)
|
||||
"All tests passed"
|
||||
--
|
||||
111
tests/lib/btc-wallet-store.hoon
Normal file
111
tests/lib/btc-wallet-store.hoon
Normal file
@ -0,0 +1,111 @@
|
||||
/+ *test, *btc-wallet-store, btc
|
||||
|%
|
||||
+$ vector
|
||||
$: =xpub:btc
|
||||
eny=@uv
|
||||
block=@ud
|
||||
feyb=sats
|
||||
ins=(list insel)
|
||||
outs=(list txo)
|
||||
expect=[selected=(unit (list insel)) chng=(unit sats:btc)]
|
||||
==
|
||||
++ mk-utxo
|
||||
|= value=sats:btc
|
||||
^- utxo:btc
|
||||
:* pos=0
|
||||
[wid=32 dat=0xc493.f6f1.4668.5f76.b44f.0c77.ca88.120c.b8bc.89f5.34fe.69b6.8288.27b9.74e6.8849]
|
||||
height=3
|
||||
value
|
||||
recvd=~
|
||||
==
|
||||
::
|
||||
++ fprint 4^0xdead.beef
|
||||
::
|
||||
++ vectors
|
||||
=| w=walt
|
||||
^- (list vector)
|
||||
:~ :* 'zpub6rFR7y4Q2AijBEqTUquhVz398htDFrtymD9xYYfG1m4wAcvPhXNfE3EfH1r1ADqtfSdVCToUG868RvUUkgDKf31mGDtKsAYz2oz2AGutZYs'
|
||||
0v3uc.iuebi.5qilc.l8d87.c1k6n.7iksq.nkobs.8s5he.raq40.9ff0b.5tj3u.kjtg7.aq59e.hatv7.oioam.mlsr4.pqqcd.cnbjn.pnpi2.1m5rt.k4scg
|
||||
999
|
||||
10
|
||||
:~ [(mk-utxo 200.000) %0 1]
|
||||
[(mk-utxo 500.000) %0 2]
|
||||
[(mk-utxo 204) %0 3]
|
||||
[(mk-utxo 235.000) %1 2]
|
||||
==
|
||||
:~ [[%bech32 'bc1q59u5epktervh6fxqay2dlph0wxu9hjnx6v8n66'] 200.100 ~]
|
||||
[[%bech32 'bc1qlwd7mw33uea5m8r2lsnsrkc7gp2qynrxsfxpfm'] 200.000 ~]
|
||||
==
|
||||
:* `~[[(mk-utxo 500.000) %0 2]]
|
||||
`98.400
|
||||
==
|
||||
==
|
||||
::
|
||||
:* '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 200.000) %0 1]
|
||||
[(mk-utxo 500.000) %0 2]
|
||||
[(mk-utxo 204) %0 3]
|
||||
[(mk-utxo 235.000) %1 2]
|
||||
==
|
||||
:~ [[%bech32 'bc1q59u5epktervh6fxqay2dlph0wxu9hjnx6v8n66'] 200.100 ~]
|
||||
[[%bech32 'bc1qlwd7mw33uea5m8r2lsnsrkc7gp2qynrxsfxpfm'] 200.000 ~]
|
||||
==
|
||||
:* `~[[(mk-utxo 235.000) %1 2] [(mk-utxo 200.000) %0 1]]
|
||||
`64.000
|
||||
==
|
||||
==
|
||||
::
|
||||
:* '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'] 299.797 ~]
|
||||
[[%bech32 'bc1qlwd7mw33uea5m8r2lsnsrkc7gp2qynrxsfxpfm'] 200.000 ~]
|
||||
==
|
||||
:* *(unit (list insel))
|
||||
*(unit sats:btc)
|
||||
==
|
||||
==
|
||||
==
|
||||
::
|
||||
++ dust-vectors %.n
|
||||
::
|
||||
++ test-vectors
|
||||
^- tang
|
||||
|^ ;: weld
|
||||
%+ category "single-random-draw"
|
||||
(zing (turn vectors check-single-random-draw))
|
||||
::
|
||||
%+ category "select with change"
|
||||
(zing (turn vectors check-change))
|
||||
::
|
||||
==
|
||||
::
|
||||
++ check-single-random-draw
|
||||
|= v=vector
|
||||
=/ w=walt (from-xpub xpub.v fprint ~ ~ ~)
|
||||
%+ expect-eq
|
||||
!>(selected.expect.v)
|
||||
!>((~(single-random-draw sut [w eny.v block.v ~ feyb.v outs.v]) ins.v))
|
||||
::
|
||||
++ check-change
|
||||
|= v=vector
|
||||
=/ w=walt (from-xpub xpub.v fprint ~ ~ ~)
|
||||
=/ addis=(list [address:btc addi])
|
||||
%+ turn ins.v
|
||||
|= i=insel
|
||||
:- (~(mk-address wad w chyg.i) idx.i)
|
||||
[%.y %0 0 (sy ~[utxo.i])]
|
||||
?~ addis ~
|
||||
=. w w(wach (my addis
|
||||
%+ expect-eq
|
||||
!>(chng.expect.v)
|
||||
!>(+:~(with-change sut [w eny.v block.v ~ feyb.v outs.v]))
|
||||
--
|
||||
:: don't allow dust outputs
|
||||
::
|
||||
--
|
||||
Loading…
Reference in New Issue
Block a user