summaryrefslogtreecommitdiff
path: root/testsuite/tests/concurrent/prog001/all.T
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/concurrent/prog001/all.T')
-rw-r--r--testsuite/tests/concurrent/prog001/all.T26
1 files changed, 26 insertions, 0 deletions
diff --git a/testsuite/tests/concurrent/prog001/all.T b/testsuite/tests/concurrent/prog001/all.T
new file mode 100644
index 0000000000..70f38dca4f
--- /dev/null
+++ b/testsuite/tests/concurrent/prog001/all.T
@@ -0,0 +1,26 @@
+# Test for bug #1285326, results in "internal error: scavenge_one:
+# strange object 47" with GHC 6.4, fixed in 6.4.1.
+
+# Also tests for bug #1466.
+
+# NB. This is a VERY IMPORTANT test! It is the only good test we have
+# for throwTo. It has shown up several bugs that were not caught by the
+# other concurrency tests.
+
+# The program appears to be sensitive to scheduling, and can diverge
+# in some cases. I find that it only reliably completes when given
+# multiple cores, which is why it is only running the 'threaded2' way
+# right now. --SDM 1/4/2010
+
+test('concprog001',
+ [skip_if_fast,
+ only_ways(['threaded2']),
+ extra_clean(['Arithmetic.hi', 'Arithmetic.o',
+ 'Converter.hi', 'Converter.o',
+ 'Mult.hi', 'Mult.o',
+ 'Stream.hi', 'Stream.o',
+ 'Thread.hi', 'Thread.o',
+ 'Trit.hi', 'Trit.o',
+ 'Utilities.hi', 'Utilities.o'])],
+ multimod_compile_and_run,
+ ['Mult',''])