{-# LANGUAGE CPP, DeriveDataTypeable, DeriveGeneric #-} module Main (main) where #if 0 import Control.Concurrent.MVar import Control.DeepSeq import Control.Exception import Control.Monad import Data.Bits import Data.IORef import Data.Typeable import Data.Word import GHC.Generics import System.IO.Unsafe (unsafePerformIO) #if 0 -- import Test.Framework (defaultMain, testGroup, testCase) import Test.Framework import Test.Framework.Providers.HUnit #endif import Test.HUnit #endif -- IUT import Control.DeepSeq.Bounded #if ! HASKELL98_FRAGMENT import Control.DeepSeq.Bounded.Generics #endif import Test.HUnit import System.Exit import System.IO ( stdout ) import Debug.Trace ( trace ) import qualified Tests -------------------------------------------- tests = "All" ~: [ Tests.tests ] main = do putStrLn "Running tests for deepseq-bounded..." -- putStrLn "Running tests for deepseq-bounded-generics..." counts <- runTestTT tests if failures counts > 0 then exitFailure else exitSuccess