remove withTmpFile
This commit is contained in:
parent
90960296b1
commit
e1fd5bb326
@ -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)
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user