add DSL helper in integration tests

Author: paweljakubas

lib/core-integration/src/Test/Integration/Framework/DSL.hs

@@ -54,6 +54,7 @@ module Test.Integration.Framework.DSL
     , emptyByronWalletWith
     , emptyWallet
     , emptyWalletWith
+    , emptyByronWalletFromXPrvWith
     , getFromResponse
     , getFromResponseList
     , json
@@ -601,6 +602,24 @@ emptyByronWalletWith ctx style (name, mnemonic, pass) = do
     expectResponseCode @IO HTTP.status201 r
     return (getFromResponse id r)
 
+emptyByronWalletFromXPrvWith
+    :: forall t. ()
+    => Context t
+    -> String
+    -> (Text, Text, Text)
+    -> IO ApiByronWallet
+emptyByronWalletFromXPrvWith ctx style (name, key, passHash) = do
+    let payload = Json [aesonQQ| {
+            "name": #{name},
+            "encrypted_root_private_key": #{key},
+            "passphrase_hash": #{passHash},
+            "style": #{style}
+        }|]
+    r <- request @ApiByronWallet ctx
+        (Link.postWallet @'Byron) Default payload
+    expectResponseCode @IO HTTP.status201 r
+    return (getFromResponse id r)
+
 -- | Create an empty wallet
 emptyWallet :: Context t -> IO ApiWallet
 emptyWallet ctx = do