btc: fix b158 test

This commit is contained in:
ixv 2021-06-11 17:42:37 -07:00
parent fbbda57552
commit 690971c9a9

View File

@ -151,14 +151,11 @@
::
++ check-all-match
|= v=match-vector
=/ b=hexb (from-cord:hxb (crip blockhash.v))
=/ inc=(list [address hexb]) (turn inc-spks.v |=(h=hexb [*address h]))
=/ exc=(list [address hexb]) (turn exc-spks.v |=(h=hexb [*address h]))
%+ expect-eq
!>(`(set hexb)`(sy [*address inc-spks.v]))
!> ^- (set hexb)
%: all-match
filter.v
blockhash.v
%+ turn (weld inc-spks.v exc-spks.v)
|=(h=hexb [*address a])
==
!>(`(set [address hexb])`(sy inc))
!>(`(set [address hexb])`(all-match filter.v b (weld inc exc)))
--
--