diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-01-16 15:53:24 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-01-17 12:36:54 +0000 |
| commit | 58759ba3c3f3f511eb7860aa37f0e98b3ae5352c (patch) | |
| tree | 6cc8639a3115f3b93eccf144893a9dad55e4ad18 /testsuite/tests/concurrent | |
| parent | 5262d70ed83f009f2aaed93b9a6a685c7fd34dd3 (diff) | |
| download | haskell-58759ba3c3f3f511eb7860aa37f0e98b3ae5352c.tar.gz | |
foreignInterruptible: expect_fail on Windows
Diffstat (limited to 'testsuite/tests/concurrent')
| -rw-r--r-- | testsuite/tests/concurrent/should_run/all.T | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/testsuite/tests/concurrent/should_run/all.T b/testsuite/tests/concurrent/should_run/all.T index c96f91345b..5c5a914022 100644 --- a/testsuite/tests/concurrent/should_run/all.T +++ b/testsuite/tests/concurrent/should_run/all.T @@ -168,9 +168,13 @@ test('conc036', skip, compile_and_run, ['']) # Interrupting foreign calls only makes sense if we are threaded -test('foreignInterruptible', composes([skip_if_fast, - only_threaded_ways, - only_compiler_types(['ghc'])]), compile_and_run, ['']) +test('foreignInterruptible', [skip_if_fast, + if_os('mingw32',expect_fail), + # I don't think we support interrupting Sleep() + # on Windows. --SDM + only_threaded_ways, + only_compiler_types(['ghc'])], + compile_and_run, ['']) test('conc037', only_ways(['threaded1','threaded2']), compile_and_run, ['']) test('conc038', only_ways(['threaded1','threaded2']), compile_and_run, ['']) |