remove withTmpFile

This commit is contained in:
Efim Poberezkin 2022-02-17 13:40:55 +04:00
parent 90960296b1
commit e1fd5bb326
2 changed files with 27 additions and 28 deletions

View File

@ -108,8 +108,7 @@ testStressServerConnectOnly = do
-- disconnectAgentClient smpAgent
testStressServer :: IO ()
testStressServer =
withTmpFiles $ do
testStressServer = do
sentTVar <- newTVarIO (0 :: Int)
tcpConnectionsTVar <- newTVarIO (0 :: Int)
userConnectionsTVar <- newTVarIO (0 :: Int)

View File

@ -131,8 +131,8 @@ readTerminalOutput t termQ = do
withTmpFiles :: IO () -> IO ()
withTmpFiles =
bracket_
(createDirectoryIfMissing False "tests/tmp")
(removeDirectoryRecursive "tests/tmp")
(createDirectoryIfMissing False "tests")
(removeDirectoryRecursive "test")
testChat2' :: (Int, Profile) -> (Int, Profile) -> (TestCC -> TestCC -> IO ()) -> IO ()
testChat2' (i1, p1) (i2, p2) test = do