git.iko.soy/project-m36
on master help sign in
Merge https://github.com/agentm/project-m36 to disable server-fs check
commitf6ec1894c6889d1b1ffbf73a6f70c23acd46bbef authorHugh JF Chen <hugh.jf.chen@gmail.com> dateSun 19 Apr 2020, 03:45 (7 years ago) parent6876fffe765b7f
2 files changed+5−3
compare with master
unifiedsplit
test/Server/Main.hs+3−2 test/Server/WebSocket.hs+2−1
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 ())