e765b7f · project-m36 · git.iko.soy

git.iko.soy/project-m36

disable fs-check during server test run

related to #258

commite765b7fe6e002cf32370f81ef425c33d550577e1 authorAgentM <agentm@themactionfaction.com> dateSat 18 Apr 2020, 22:20 (7 years ago) parent6f677d8

2 files changed+5−3

unifiedsplit

test/Server/Main.hs+3−2

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

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

9595 perRequestTimeout = ti,

9696 testMode = True,

97− bindPort = 0

97+ bindPort = 0,

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

9899 }

99100

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

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

244245#else

245246--pass on non-linux platforms

246247testFileDescriptorCount = TestCase (pure ())

247−#endif

248+#endif

test/Server/WebSocket.hs+2−1

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

3232launchTestServer = do

3333 addressMVar <- newEmptyMVar

3434 let config = defaultServerConfig { databaseName = testDatabaseName,

35− bindPort = 0 }

35+ bindPort = 0,

36+ checkFS = False}

3637 testDatabaseName = "test"

3738 -- start normal server

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