courier-0.1.0.0: tests/Tests.hs

module Main where

-- local imports

import Network.Endpoints

-- external imports

import System.Directory
import System.Log.Logger
import System.Log.Handler.Simple

import Test.Framework
import Test.HUnit
import Test.Framework.Providers.HUnit
import Test.Framework.Providers.QuickCheck2

-- Test modules
import qualified TestMemory as M
import qualified TestTCP as T

-----------------------------------------------------------------------------
-----------------------------------------------------------------------------

main :: IO ()
main = do 
  initLogging
  defaultMain tests
  
initLogging :: IO ()  
initLogging = do
  let logFile = "tests.log"
  exists <- doesFileExist logFile
  if exists 
    then removeFile logFile  
    else return ()
  s <- fileHandler logFile INFO
  updateGlobalLogger rootLoggerName (setLevel WARNING)
  updateGlobalLogger rootLoggerName (addHandler s)

tests :: [Test.Framework.Test]
tests = 
  [
    testCase "hunit" (assertBool "HUnit assertion of truth is false" True),
    testProperty "quickcheck" True,
    testCase "endpoints" testEndpoint
  ] 
  ++ M.tests
  ++ T.tests
  -- ++ D.tests
  -- ++ S.tests

-- Endpoint tests

testEndpoint :: Assertion
testEndpoint = do
  _ <- newEndpoint []
  return ()