Fix transaction autobalancing tests

Author: carbolymer

cardano-api/test/cardano-api-test/Test/Cardano/Api/Transaction/Autobalance.hs

@@ -162,7 +162,7 @@ prop_make_transaction_body_autobalance_no_change = H.propertyOnce $ do
     LedgerProtocolParameters
       <$> H.readJsonFileOk "test/cardano-api-test/files/input/protocol-parameters/conway.json"
 
-  let expectedFee = 171_617
+  let expectedFee = 170_077
       utxoValue = 5_000_000
 
   let address =
@@ -357,11 +357,14 @@ prop_make_transaction_body_autobalance_when_deregistering_certs = H.propertyOnce
       deregDeposit = L.Coin 20_000_000
       txOutCoin = L.Coin 20_800_000
 
-  stakeCred <- forAll genStakeCredential
+  -- that's the same stake credential as in UTXO
+  lStakeCred@(L.KeyHashObj kh) <-
+    pure $ mkCredential "keyHash-ebe9de78a37f84cc819c0669791aa0474d4f0a764e54b9f90cfe2137"
+  let stakeCred = StakeCredentialByKey $ StakeKeyHash kh
   let certs =
         [
           ( ConwayCertificate ceo $
-              L.ConwayTxCertDeleg (L.ConwayUnRegCert (toShelleyStakeCredential stakeCred) (L.SJust deregDeposit))
+              L.ConwayTxCertDeleg (L.ConwayUnRegCert lStakeCred (L.SJust deregDeposit))
           , Nothing
           )
         ]
@@ -394,7 +397,7 @@ prop_make_transaction_body_autobalance_when_deregistering_certs = H.propertyOnce
   H.note_ "Sanity check: inputs == outputs"
   mconcat [deregDeposit, txInputsTotalCoin] === mconcat [txOutCoin, fee, changeCoin]
 
-  182_441 === fee
+  176_457 === fee
 
 prop_make_transaction_body_autobalance_multi_asset_collateral :: Property
 prop_make_transaction_body_autobalance_multi_asset_collateral = H.propertyOnce $ do