Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : ghc-7.4
http://hackage.haskell.org/trac/ghc/changeset/71d7d7f1b34cc9cff2daf3f1d82f5f35bb61e465 >--------------------------------------------------------------- commit 71d7d7f1b34cc9cff2daf3f1d82f5f35bb61e465 Author: Simon Marlow <[email protected]> Date: Mon Jan 16 15:53:24 2012 +0000 foreignInterruptible: expect_fail on Windows >--------------------------------------------------------------- tests/concurrent/should_run/all.T | 10 +++++++--- 1 files changed, 7 insertions(+), 3 deletions(-) diff --git a/tests/concurrent/should_run/all.T b/tests/concurrent/should_run/all.T index 26f42e8..6a36360 100644 --- a/tests/concurrent/should_run/all.T +++ b/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, ['']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
