rvv040 - Added a decode Testnet Sapling Address test

This commit is contained in:
Rene V. Vergara A. 2024-04-16 14:48:36 -04:00
parent 382284a8ca
commit 058bbfe3f2

View file

@ -922,7 +922,7 @@ main = do
let sa = decodeSaplingAddress "ztestsapling188csdsvhdny25am8ume03qr2026hdy03zpg5pq7jmmfxtxtct0e93p0rg80yfxvynqd4gwlwft5" let sa = decodeSaplingAddress "ztestsapling188csdsvhdny25am8ume03qr2026hdy03zpg5pq7jmmfxtxtct0e93p0rg80yfxvynqd4gwlwft5"
it "Try to decode a valid TestNet Sapling Address " $ do it "Try to decode a valid TestNet Sapling Address " $ do
print sa print sa
sa `shouldBe` Nothing sa `shouldNotBe` Nothing
-- | Properties -- | Properties