main :: IO ()
main = bracket upDaemon downDaemon runTests >> return () where
  upDaemon   = do m <- runCommand "memcached"
                  sleep 200  -- give it time to start up and bind.
                  return m
  downDaemon = terminateProcess
  runTests _ = runTestTT $ TestList [statsTest, setGetTest, hashTest]

-- vim: set ts=2 sw=2 et :
main :: IO ()
main = bracket upDaemon downDaemon runTests >> return () where
  upDaemon   = do m <- runCommand "memcached"
                  sleep 200  -- give it time to start up and bind.
                  return m
  downDaemon = terminateProcess
  runTests _ = runTestTT $ TestList [statsTest, setGetTest, hashTest]

-- vim: set ts=2 sw=2 et :
main = bracket upDaemon downDaemon runTests >> return () where
  upDaemon   = do m <- runCommand "memcached"
                  sleep 200  -- give it time to start up and bind.
                  return m
  downDaemon = terminateProcess
  runTests _ = runTestTT $ TestList [statsTest, setGetTest, hashTest]

-- vim: set ts=2 sw=2 et :