diff options
| -rw-r--r-- | testsuite/tests/concurrent/should_run/all.T | 2 | ||||
| -rw-r--r-- | testsuite/tests/concurrent/should_run/throwto002.hs | 1 |
2 files changed, 1 insertions, 2 deletions
diff --git a/testsuite/tests/concurrent/should_run/all.T b/testsuite/tests/concurrent/should_run/all.T index 23d950c908..18b05ef292 100644 --- a/testsuite/tests/concurrent/should_run/all.T +++ b/testsuite/tests/concurrent/should_run/all.T @@ -45,7 +45,7 @@ test('T4030', normal, compile_and_run, ['-O']) # each of these runs for about a second test('throwto001', [reqlib('random'), extra_run_opts('1000 2000')], compile_and_run, ['']) -test('throwto002', [reqlib('random')], compile_and_run, ['']) +test('throwto002', normal, compile_and_run, ['']) test('throwto003', normal, compile_and_run, ['']) test('mask001', normal, compile_and_run, ['']) diff --git a/testsuite/tests/concurrent/should_run/throwto002.hs b/testsuite/tests/concurrent/should_run/throwto002.hs index 7cb5709129..eaaae0c0cb 100644 --- a/testsuite/tests/concurrent/should_run/throwto002.hs +++ b/testsuite/tests/concurrent/should_run/throwto002.hs @@ -2,7 +2,6 @@ import Control.Concurrent import Control.Exception import Data.Array -import System.Random import System.Environment import Control.Monad import GHC.Conc |