Delete TRANSMETA_ESTIMATE_01a and TRANSMETA_ESTIMATE_01b.

The integration test suite is arguably the wrong place to test that fee
estimates should increase or decrease if the outputs of a transaction
are changed.

Moreover, depending on the initial starting conditions and the random
selection performed for each round of fee estimation, it's not
guaranteed that if the outputs for transaction `a` are smaller than the
outputs for transaction `b`, then the fee estimate for transaction `a`
will be lower than the fee estimate for transaction `b`.

lib/wallet/integration/src/Test/Integration/Scenario/API/Shelley/Transactions.hs

@@ -1114,78 +1114,6 @@ spec = describe "SHELLEY_TRANSACTIONS" $ do
         expectResponseCode HTTP.status403 r
         expectErrorMessage errMsg403TxTooBig r
 
-    it "TRANSMETA_ESTIMATE_01a - \
-        \fee estimation includes metadata" $
-        \ctx -> runResourceT $ do
-
-        (wa, wb) <- (,) <$> fixtureWallet ctx <*> emptyWallet ctx
-        let amt = minUTxOValue (_mainEra ctx) :: Natural
-
-        payload <- mkTxPayload ctx wb amt fixturePassphrase
-
-        let txMeta = [json|{ "1": { "string": "hello" } }|]
-        let payloadWithMetadata = addTxMetadata txMeta payload
-
-        ra <- request @ApiFee ctx
-            (Link.getTransactionFeeOld @'Shelley wa) Default payloadWithMetadata
-        verify ra
-            [ expectSuccess
-            , expectResponseCode HTTP.status202
-            ]
-        let (Quantity feeEstMin) = getFromResponse #estimatedMin ra
-        let (Quantity feeEstMax) = getFromResponse #estimatedMax ra
-
-        -- check that it's estimated to have less fees for transactions without
-        -- metadata.
-        rb <- request @ApiFee ctx
-            (Link.getTransactionFeeOld @'Shelley wa) Default payload
-        verify rb
-            [ expectResponseCode HTTP.status202
-            , expectField (#estimatedMin . #getQuantity) (.< feeEstMin)
-            , expectField (#estimatedMax . #getQuantity) (.< feeEstMax)
-            ]
-
-    it "TRANSMETA_ESTIMATE_01b - \
-        \fee estimation includes no-schema metadata" $
-        \ctx -> runResourceT $ do
-
-        (wa, wb) <- (,) <$> fixtureWallet ctx <*> emptyWallet ctx
-        let amt = minUTxOValue (_mainEra ctx) :: Natural
-
-        payload <- mkTxPayload ctx wb amt fixturePassphrase
-
-        let txMeta = [json|{ "1": "hello" }|]
-        let payloadWithMetadata = addTxMetadata txMeta payload
-
-        ra <-
-            request @ApiFee
-                ctx
-                (Link.getTransactionFeeOld @'Shelley wa)
-                Default
-                payloadWithMetadata
-        verify
-            ra
-            [ expectSuccess
-            , expectResponseCode HTTP.status202
-            ]
-        let (Quantity feeEstMin) = getFromResponse #estimatedMin ra
-        let (Quantity feeEstMax) = getFromResponse #estimatedMax ra
-
-        -- check that it's estimated to have less fees for transactions without
-        -- metadata.
-        rb <-
-            request @ApiFee
-                ctx
-                (Link.getTransactionFeeOld @'Shelley wa)
-                Default
-                payload
-        verify
-            rb
-            [ expectResponseCode HTTP.status202
-            , expectField (#estimatedMin . #getQuantity) (.< feeEstMin)
-            , expectField (#estimatedMax . #getQuantity) (.< feeEstMax)
-            ]
-
     it "TRANSMETA_ESTIMATE_02a - \
         \fee estimation with invalid metadata" $
         \ctx -> runResourceT $ do