buffering
This commit is contained in:
parent
6e606b83eb
commit
90960296b1
@ -4,9 +4,12 @@ import Simplex.StressTest
|
|||||||
import System.Directory
|
import System.Directory
|
||||||
import Test.Hspec
|
import Test.Hspec
|
||||||
import Control.Monad
|
import Control.Monad
|
||||||
|
import System.IO
|
||||||
|
|
||||||
main :: IO ()
|
main :: IO ()
|
||||||
main = do
|
main = do
|
||||||
|
hSetBuffering stdout LineBuffering
|
||||||
|
hSetBuffering stderr LineBuffering
|
||||||
dirExists <- doesDirectoryExist "test"
|
dirExists <- doesDirectoryExist "test"
|
||||||
when dirExists $ removeDirectoryRecursive "test"
|
when dirExists $ removeDirectoryRecursive "test"
|
||||||
createDirectoryIfMissing True "test"
|
createDirectoryIfMissing True "test"
|
||||||
|
@ -20,7 +20,7 @@ Description=SMP server stress test
|
|||||||
|
|
||||||
[Service]
|
[Service]
|
||||||
Type=simple
|
Type=simple
|
||||||
ExecStart=/bin/sh -c "$binary"
|
ExecStart=/bin/sh -c 'exec $binary >> $HOME/test.log 2>&1'
|
||||||
Restart=always
|
Restart=always
|
||||||
RestartSec=3
|
RestartSec=3
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user