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

Update note position calculation #70

Merged
pitmutt merged 1 commit from rav001 into dev040 2024-04-24 22:28:05 +00:00
Conversation 0 Commits 1 Files changed 2 +15 -21
2 changed files with 15 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
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_in: Vec<u8> = marshall_from_haskell_var(wit, wit_len, RW);
let wit_reader = Cursor::new(wit_in); let wit_reader = Cursor::new(wit_in);
let iw: IncrementalWitness<Node, SAPLING_DEPTH> = read_incremental_witness(wit_reader).unwrap(); let iw: IncrementalWitness<Node, SAPLING_DEPTH> = read_incremental_witness(wit_reader).unwrap();
let path = iw.path(); let pos = iw.witnessed_position();
match path {
Some(p) => {
let pos = p.position();
return u64::from(pos); return u64::from(pos);
},
None => {
return 0;
}
}
} }
#[no_mangle] #[no_mangle]

10
test/Spec.hs
View file

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