From 09411adfffbc6ac10fd744c9231ef068e00f84bd Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Wed, 3 Apr 2024 16:16:42 -0500
Subject: [PATCH] Implement test to validate transparent outputs

---
 test/Spec.hs | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/test/Spec.hs b/test/Spec.hs
index 70bf04a..d631b23 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -792,7 +792,7 @@ main = do
             Nothing -> assertFailure "Couldn't decode"
             Just t' -> do
               let a =
-                    "utest1hhggl4nxfdx63evps6r7qz50cgacgtdpt9k7dl0734w63zn5qmrp6c2xdv9rkqyfkj6kgau4kz48xtm80e67l534qp02teqq86zuzetxql6z5v32yglg9n2un5zsu0hwcvaunzdfg5qnry6syh2dh9x8eu27de03j9pjfvrqda6acgtc6f0emdfh6r5jvfanmjml4ms5wwj9wfqmamq"
+                    "utest13dq4u4dnf3yddw8lq2n6zdclshra6xsp8zgkc5ydyu6k20zrsscmuex46qa4vh84rgd78sqnlleapznnz7mnzx9wv0unts8pv32paj8se5ca3kves2u4a89uy6e8cf4hnarxydxh7hq2e9uu39punfmm53k5h45xn9k3dx35la8j7munh9td7774m8gkqgc4mn40t69w20uu2gtks7a"
               let a' = isValidUnifiedAddress a
               let tb = zt_tBundle t'
               let myTb = fromRawTBundle tb
@@ -801,9 +801,13 @@ main = do
                 Just addr -> do
                   case myTb of
                     Nothing -> assertFailure "Couldn't read transparent bundle"
-                    Just myTb' ->
-                      show ((\(TxOut v s) -> s) (head (tb_vout myTb'))) `shouldBe`
-                      maybe "" (show . ta_bytes) (t_rec addr)
+                    Just myTb' -> do
+                      let pkHash =
+                            BS.take 20 $
+                            BS.drop 3 $
+                            (\(TxOut v s) -> s) (head (tb_vout myTb'))
+                      pkHash `shouldBe`
+                        maybe "" (hexBytes . ta_bytes) (t_rec addr)
               myTb `shouldNotBe` Nothing
         it "Sapling component is read" $ do
           case t of