Vergara_Tech/zcash-haskell
2
0
Fork 0
Code Issues Pull requests Projects Releases 4 Packages Wiki Activity

Update note position calculation

Browse source
This commit is contained in:
Rene Vergara 2024-04-24 16:04:56 -05:00
parent 586cb4646c
commit b74cd5f354
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
2 changed files with 15 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
librustzcash-wrapper/src/lib.rs
View file

@ -1247,16 +1247,8 @@ pub extern "C" fn rust_wrapper_read_sapling_position(
let wit_in: Vec<u8> = marshall_from_haskell_var(wit, wit_len, RW);
let wit_reader = Cursor::new(wit_in);
let iw: IncrementalWitness<Node, SAPLING_DEPTH> = read_incremental_witness(wit_reader).unwrap();
let path = iw.path();
match path {
Some(p) => {
let pos = p.position();
return u64::from(pos);
},
None => {
return 0;
}
}
let pos = iw.witnessed_position();
return u64::from(pos);
}
#[no_mangle]

24
test/Spec.hs
View file

@ -1113,23 +1113,25 @@ main = do
MainNet
External
p
dn `shouldNotBe` Nothing
dn `shouldBe` Nothing
describe "Generate an ExchangeAddress (MainNet) from transparent address" $ do
let ta = decodeTransparentAddress "t1dMjvesbzdG41xgKaGU3HgwYJwSgbCK54e"
it "Try to generate valid ExchangeAddress from Transparent Address" $ do
case ta of
Nothing -> assertFailure "Failed to decode transparent address"
Just t -> do
case (tr_type (ta_receiver t) ) of
P2SH -> assertFailure "P2SH not supported for ExchengeAddress generation"
case ta of
Nothing -> assertFailure "Failed to decode transparent address"
Just t -> do
case (tr_type (ta_receiver t)) of
P2SH ->
assertFailure
"P2SH not supported for ExchengeAddress generation"
P2PKH -> do
let exch = encodeExchangeAddress (ta_network t) (ta_receiver t)
let exch =
encodeExchangeAddress (ta_network t) (ta_receiver t)
case exch of
Nothing -> assertFailure "Failed to encode Exchange address"
Just addr -> do
Nothing -> assertFailure "Failed to encode Exchange address"
Just addr -> do
let eadr = decodeExchangeAddress addr
eadr `shouldNotBe` Nothing
eadr `shouldNotBe` Nothing
-- | Properties
prop_PhraseLength :: Property