cardano-api-test: adapt to deprecations

Author: smelc

cardano-api/internal/Cardano/Api/Tx/Sign.hs

@@ -749,7 +749,7 @@ instance IsCardanoEra era => HasTextEnvelope (KeyWitness era) where
 getTxBodyAndWitnesses :: Tx era -> (TxBody era, [KeyWitness era])
 getTxBodyAndWitnesses tx = (getTxBody tx, getTxWitnesses tx)
 
-{-# Deprecated Tx "Use getTxBodyAndWitnesses instead." #-}
+{-# DEPRECATED Tx "Use getTxBodyAndWitnesses instead." #-}
 pattern Tx :: TxBody era -> [KeyWitness era] -> Tx era
 pattern Tx txbody ws <- (getTxBodyAndWitnesses -> (txbody, ws))
   where

cardano-api/test/cardano-api-test/Test/Cardano/Api/Address.hs

@@ -24,11 +24,11 @@ import           Test.Tasty.Hedgehog (testProperty)
 
 prop_roundtrip_shelley_address :: Property
 prop_roundtrip_shelley_address =
-  roundtrip_serialise_address AsShelleyAddress genAddressShelley
+  roundtrip_serialise_address (AsAddress AsShelleyAddr) genAddressShelley
 
 prop_roundtrip_byron_address :: Property
 prop_roundtrip_byron_address =
-  roundtrip_serialise_address AsByronAddress genAddressByron
+  roundtrip_serialise_address (AsAddress AsByronAddr) genAddressByron
 
 -- -----------------------------------------------------------------------------
 

cardano-api/test/cardano-api-test/Test/Cardano/Api/Bech32.hs

@@ -3,7 +3,7 @@ module Test.Cardano.Api.Bech32
   )
 where
 
-import           Cardano.Api (AsType (AsShelleyAddress, AsStakeAddress))
+import           Cardano.Api (AsType (AsAddress, AsShelleyAddr, AsStakeAddress))
 
 import           Test.Gen.Cardano.Api.Typed (genAddressShelley, genStakeAddress)
 
@@ -13,7 +13,7 @@ import           Test.Tasty (TestTree, testGroup)
 import           Test.Tasty.Hedgehog (testProperty)
 
 prop_roundtrip_Address_Shelley :: Property
-prop_roundtrip_Address_Shelley = roundtrip_Bech32 AsShelleyAddress genAddressShelley
+prop_roundtrip_Address_Shelley = roundtrip_Bech32 (AsAddress AsShelleyAddr) genAddressShelley
 
 prop_roundtrip_StakeAddress :: Property
 prop_roundtrip_StakeAddress = roundtrip_Bech32 AsStakeAddress genStakeAddress

cardano-api/test/cardano-api-test/Test/Cardano/Api/RawBytes.hs

@@ -23,11 +23,11 @@ import           Test.Tasty.Hedgehog (testProperty)
 
 prop_roundtrip_shelley_address_raw :: Property
 prop_roundtrip_shelley_address_raw =
-  roundtrip_raw_bytes AsShelleyAddress genAddressShelley
+  roundtrip_raw_bytes (AsAddress AsShelleyAddr) genAddressShelley
 
 prop_roundtrip_byron_address_raw :: Property
 prop_roundtrip_byron_address_raw =
-  roundtrip_raw_bytes AsByronAddress genAddressByron
+  roundtrip_raw_bytes (AsAddress AsByronAddr) genAddressByron
 
 prop_roundtrip_stake_address_raw :: Property
 prop_roundtrip_stake_address_raw =