shaker-0.3: testsuite/tests/RunTestTH.hs

{-# LANGUAGE TemplateHaskell #-}
module Main
 where

import Test.HUnit
import Control.Monad.Trans
import Shaker.TestTH
import Test.QuickCheck
import Shaker.Cabal.CabalInfoTest
import Shaker.Action.CompileTest
import Shaker.CliTest
import Shaker.ListenerTest
import Shaker.ParserTest
import Shaker.RegexTest
import Shaker.IoTest
import Shaker.ReflexiviteTest
import Shaker.SourceHelperTest

main :: IO()
main = do 
  mapM_ liftIO propLists
  _ <- testLists
  return () 

propLists :: [IO()]
propLists = $(thListProperties)

testLists :: IO Counts
testLists = runTestTT  $ TestList $(thListHunit)