diff --git a/accelerate.cabal b/accelerate.cabal index 71d01be88..334224d34 100644 --- a/accelerate.cabal +++ b/accelerate.cabal @@ -706,6 +706,7 @@ test-suite nofib-interpreter build-depends: base >= 4.10 , accelerate + , tasty ghc-options: -O2 diff --git a/src/Data/Array/Accelerate/Test/NoFib.hs b/src/Data/Array/Accelerate/Test/NoFib.hs index f1b4ec72a..cc01feee3 100644 --- a/src/Data/Array/Accelerate/Test/NoFib.hs +++ b/src/Data/Array/Accelerate/Test/NoFib.hs @@ -37,20 +37,20 @@ import Data.Array.Accelerate.Test.NoFib.Spectral import Data.Array.Accelerate.Test.NoFib.Issues import Data.Array.Accelerate.Test.NoFib.Misc -import Test.Tasty import Test.Tasty.Runners import Test.Tasty.Ingredients.Rerun import System.Environment #endif +import Test.Tasty -nofib :: RunN -> IO () +nofib :: RunN -> TestTree -> IO () #ifdef ACCELERATE_DISABLE_NOFIB -nofib _ = error $ unlines [ "Data.Array.Accelerate: the nofib test-suite has been disabled." +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 +nofib runN test_runq = do me <- getProgName defaultMainWithIngredients [rerunningTests (nofibIngredient : defaultIngredients)] $ localOption (NumThreads 1) -- run each test sequentially with many cores @@ -61,6 +61,7 @@ nofib runN = do , test_spectral runN , test_issues runN , test_misc runN + , test_runq ] #endif diff --git a/test/nofib/Main.hs b/test/nofib/Main.hs index 1e82cce7f..03fa9e41d 100644 --- a/test/nofib/Main.hs +++ b/test/nofib/Main.hs @@ -14,10 +14,11 @@ import Data.Array.Accelerate.Test.NoFib import Data.Array.Accelerate.Interpreter import System.Environment +import Test.Tasty main :: IO () main = do setEnv "TASTY_INTERPRETER" "True" setEnv "TASTY_HEDGEHOG_TESTS" "50" - nofib runN + nofib runN (testGroup "runQ" [])