deepseq-bounded-0.5.0: test/Suite.hs

{-# 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