module Main where
import System.Process
import Control.Concurrent

main = do
    c <- runCommand "ghc ./tests/stest.hs --make -o server"
    waitForProcess c
    s <- runCommand "./server"
    threadDelay 1000000
    p <- runCommand "runhaskell ./tests/ctest.hs"
    waitForProcess p
    terminateProcess s