Commit c77551ab authored by Simon Marlow's avatar Simon Marlow
Browse files

Make the test fail if compiled without -threaded

Test Plan: validate

Reviewers: bgamari, austin, erikd

Subscribers: rwbarton, thomie

Differential Revision: https://phabricator.haskell.org/D3387
parent 074d13eb
......@@ -10,6 +10,7 @@ import GHC.Conc
import GHC.MVar (MVar(..))
import GHC.Prim
import System.Environment
import System.Exit
-- Measure C to Haskell callback throughput under a workload with
-- several dimensions:
......@@ -29,6 +30,8 @@ import System.Environment
-- hs_try_putmvar() is 9x faster with these parameters.
main = do
when (not rtsSupportsBoundThreads) $
die "This test requires -threaded"
args <- getArgs
case args of
["1",x,y,z] -> experiment False (read x) (read y) (read z)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment