testsuite: Mark concprog001 as fragile
[ghc.git] / testsuite / tests / concurrent / prog001 / all.T
1 # Test for bug #1285326, results in "internal error: scavenge_one:
2 # strange object 47" with GHC 6.4, fixed in 6.4.1.
3
4 # Also tests for bug #1466.
5
6 # NB. This is a VERY IMPORTANT test!  It is the only good test we have
7 # for throwTo.  It has shown up several bugs that were not caught by the
8 # other concurrency tests.
9
10 # The program appears to be sensitive to scheduling, and can diverge
11 # in some cases.  I find that it only reliably completes when given
12 # multiple cores, which is why it is only running the 'threaded2' way
13 # right now. --SDM 1/4/2010
14
15 test('concprog001', [extra_files(['Arithmetic.hs', 'Converter.hs', 'Mult.hs', 'Stream.hs', 'Thread.hs', 'Trit.hs', 'Utilities.hs']),
16                      when(fast(), skip), only_ways(['threaded2']),
17                      fragile(16604),
18                      run_timeout_multiplier(2)],
19      multimod_compile_and_run, ['Mult', ''])