diff --git a/lib/core-integration/src/Test/Integration/Framework/DSL.hs b/lib/core-integration/src/Test/Integration/Framework/DSL.hs
index 2cc528c5159..ad927b56dcf 100644
--- a/lib/core-integration/src/Test/Integration/Framework/DSL.hs
+++ b/lib/core-integration/src/Test/Integration/Framework/DSL.hs
@@ -113,6 +113,7 @@ module Test.Integration.Framework.DSL
     , listAddresses
     , signTx
     , submitTx
+    , submitTxWithWid
     , getWallet
     , listTransactions
     , listAllTransactions
@@ -2294,6 +2295,21 @@ submitTx ctx tx expectations = do
     verify r expectations
     pure $ getFromResponse Prelude.id  r
 
+submitTxWithWid
+    :: MonadUnliftIO m
+    => Context
+    -> ApiWallet
+    -> ApiSerialisedTransaction
+    -> m (HTTP.Status, Either RequestException ApiTxId)
+submitTxWithWid ctx w tx = do
+    let submitEndpoint = Link.submitTransaction @'Shelley w
+    let payload = Json $ Aeson.toJSON tx
+    let headers = Headers
+            [ ("Content-Type", "application/json")
+            , ("Accept", "application/json")
+            ]
+    request @ApiTxId ctx submitEndpoint headers payload
+
 getWallet
     :: forall w m.
         ( MonadIO m