e765b7f · project-m36 · git.iko.soy

git.iko.soy/project-m36

on master help sign in

disable fs-check during server test run

e765b7fAgentM7 years ago

test/Server/Main.hs+3−2

@@ -94,7 +94,8 @@ launchTestServer ti = do

94 persistenceStrategy = CrashSafePersistence (tempdir </> "db"),

95 perRequestTimeout = ti,

96 testMode = True,

97− bindPort = 0

97+ bindPort = 0,

98+ checkFS = False --not stricly needed for these tests

98 }

99 }

100

100 launchServer config (Just addressMVar) >> pure ()

101 launchServer config (Just addressMVar) >> pure ()

@@ -244,4 +245,4 @@ fdCount = do

244#else

245#else

245--pass on non-linux platforms

246--pass on non-linux platforms

246testFileDescriptorCount = TestCase (pure ())

247testFileDescriptorCount = TestCase (pure ())

247−#endif

248+#endif

test/Server/WebSocket.hs+2−1

@@ -32,7 +32,8 @@ launchTestServer :: IO (PortNumber, DatabaseName)

32launchTestServer = do

33 addressMVar <- newEmptyMVar

34 let config = defaultServerConfig { databaseName = testDatabaseName,

35− bindPort = 0 }

35+ bindPort = 0,

36+ checkFS = False}

36 testDatabaseName = "test"

37 testDatabaseName = "test"

37 -- start normal server

38 -- start normal server

38 _ <- forkIO (launchServer config (Just addressMVar) >> pure ())

39 _ <- forkIO (launchServer config (Just addressMVar) >> pure ())