cardano-wallet-server no longer takes a mnemonic

test/integration/Main.hs

@@ -33,16 +33,6 @@ import Test.Integration.Framework.Request
 
 import qualified Cardano.NetworkLayer.HttpBridgeSpec as HttpBridge
 
-withWallet :: ((Text, Manager) -> IO a) -> IO a
-withWallet action = do
-    let launch = proc "cardano-wallet-server" testMnemonic
-        testMnemonic = ["ring","congress","face","smile","torch","length","purse","bind","rule","reopen","label","ask","town","town","argue"]
-        baseURL = T.pack "http://localhost:8090/"
-    manager <- newManager defaultManagerSettings
-    withCreateProcess launch $ \_ _ _ _ph -> do
-        threadDelay 1000000
-        action (baseURL, manager)
-
 main :: IO ()
 main = withWallet $ \http -> do
     hspec $ do
@@ -51,6 +41,19 @@ main = withWallet $ \http -> do
         beforeAll (newMVar $ Context () http) $ do
             describe "Integration test framework" dummySpec
 
+-- Runs the wallet server only. The API is not implemented yet, so this is
+-- basically a placeholder until then.
+withWallet :: ((Text, Manager) -> IO a) -> IO a
+withWallet action = do
+    let port = "8091"
+        launch = proc "cardano-wallet-server" ["--wallet-server-port", port]
+        baseURL = T.pack ("http://localhost:" <> port <> "/")
+    manager <- newManager defaultManagerSettings
+    withCreateProcess launch $ \_ _ _ _ph -> do
+        threadDelay 1000000
+        action (baseURL, manager)
+
+-- Exercise the request functions, which just fail at the moment.
 dummySpec :: Scenarios Context
 dummySpec = do
     scenario "Try the API which isn't implemented yet" $ do