{-# LANGUAGE CPP #-}
{-# LANGUAGE RankNTypes #-}
{-# OPTIONS_HADDOCK hide #-}
module Data.Array.Accelerate.Test.NoFib (
nofib,
nofibIngredient,
#ifndef ACCELERATE_DISABLE_NOFIB
module Data.Array.Accelerate.Test.NoFib.Sharing,
module Data.Array.Accelerate.Test.NoFib.Prelude,
module Data.Array.Accelerate.Test.NoFib.Imaginary,
module Data.Array.Accelerate.Test.NoFib.Spectral,
module Data.Array.Accelerate.Test.NoFib.Issues,
#endif
) where
import Data.Array.Accelerate.Test.NoFib.Base
import Data.Array.Accelerate.Test.NoFib.Config
#ifndef ACCELERATE_DISABLE_NOFIB
import Data.Array.Accelerate.Test.NoFib.Sharing
import Data.Array.Accelerate.Test.NoFib.Prelude
import Data.Array.Accelerate.Test.NoFib.Imaginary
import Data.Array.Accelerate.Test.NoFib.Spectral
import Data.Array.Accelerate.Test.NoFib.Issues
import Test.Tasty
import System.Environment
#endif
nofib :: RunN -> IO ()
#ifdef ACCELERATE_DISABLE_NOFIB
nofib _ = error $ unlines [ "Data.Array.Accelerate: the nofib test-suite has been disabled."
, "Reinstall package 'accelerate' with '-fnofib' to enable it."
]
#else
nofib runN = do
me <- getProgName
defaultMainWithIngredients (nofibIngredient : defaultIngredients) $
testGroup me
[ test_sharing
, test_prelude runN
, test_imaginary runN
, test_spectral runN
, test_issues runN
]
#endif