use on-disk database in integration tests

cardano-foundation · Jan 16, 2020 · 4ed4d42 · 4ed4d42
1 parent d492c8f
commit 4ed4d42
Showing 1 changed file with 11 additions and 2 deletions.
diff --git a/lib/jormungandr/test/integration/Main.hs b/lib/jormungandr/test/integration/Main.hs
@@ -66,6 +66,8 @@ import System.Environment
     ( setEnv )
 import System.FilePath
     ( (</>) )
+import System.IO.Temp
+    ( withSystemTempDirectory )
 import Test.Hspec
     ( Spec, SpecWith, after, describe, hspec, parallel )
 import Test.Hspec.Extra
@@ -171,8 +173,15 @@ specWithServer tr = aroundAll withContext . after tearDown
     withServer setup =
         withConfig $ \jmCfg ->
         withMetadataRegistry $
-            serveWallet @'Testnet tracers (SyncTolerance 10) Nothing "127.0.0.1"
-                ListenOnRandomPort (Launch jmCfg) setup
+        withSystemTempDirectory "cardano-wallet-databases" $ \db ->
+            serveWallet @'Testnet
+                tracers
+                (SyncTolerance 10)
+                (Just db)
+                "127.0.0.1"
+                ListenOnRandomPort
+                (Launch jmCfg)
+                setup
 
     tracers = setupTracers (tracerSeverities (Just Info)) tr