deepseq-bounded-0.6.0.0: tests/Suite.hs

{-# LANGUAGE CPP #-}
{-  DeriveDataTypeable, DeriveGeneric #-}
--- {-  LANGUAGE CPP, DeriveDataTypeable, DeriveGeneric #-}

  module Main (main) where

#if 0
-- IUT
  import Control.DeepSeq.Bounded
#if ! HASKELL98_FRAGMENT
  import Control.DeepSeq.Bounded.Generic
#endif
#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..."
            counts <- runTestTT tests
            if failures counts > 0
              then exitFailure
              else exitSuccess