diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2017-03-27 16:09:23 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2017-03-28 11:32:35 +0100 |
| commit | c77551abd42a346d03826d23df710ebf9eacb19f (patch) | |
| tree | 52d96ea30d6967ca686fdc80f049afee7f8a4e8e | |
| parent | 074d13eb3b6489e8b2f555f61496761614a3e207 (diff) | |
| download | haskell-c77551abd42a346d03826d23df710ebf9eacb19f.tar.gz | |
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
| -rw-r--r-- | testsuite/tests/concurrent/should_run/hs_try_putmvar003.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/testsuite/tests/concurrent/should_run/hs_try_putmvar003.hs b/testsuite/tests/concurrent/should_run/hs_try_putmvar003.hs index d74a9cb126..44426986b9 100644 --- a/testsuite/tests/concurrent/should_run/hs_try_putmvar003.hs +++ b/testsuite/tests/concurrent/should_run/hs_try_putmvar003.hs @@ -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) |