[commit: testsuite] master: Don't add threaded2_hT unless we have threaded and SMP support (15d657d)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/15d657dffbcf06587faa889898bc3fca96cc6ad9

>---------------------------------------------------------------

commit 15d657dffbcf06587faa889898bc3fca96cc6ad9
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Fri Jan 6 10:29:18 2012 +0000

    Don't add threaded2_hT unless we have threaded and SMP support

>---------------------------------------------------------------

 tests/concurrent/prog002/all.T |    9 +++++++--
 1 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/tests/concurrent/prog002/all.T b/tests/concurrent/prog002/all.T
index de90966..bef9de3 100644
--- a/tests/concurrent/prog002/all.T
+++ b/tests/concurrent/prog002/all.T
@@ -1,12 +1,17 @@
 # Test for bug #713, results in crashes in GHC prior to 20060315 with +RTS -N2
 
+# Add 'threaded2_hT' so that we have at least one test for bug #5127
+if (ghc_with_threaded_rts == 1 and ghc_with_smp == 1):
+   ways = ['threaded2_hT']
+else:
+   ways = []
+
 # the conditions are fairly delicate.  It must be compiled without optimisation,
 # hence -O0:
 
 test('concprog002',
-        # Add 'threaded2_hT' so that we have at least one test for bug #5127
      [only_ways(['threaded2','threaded2_hT']),
-      extra_ways(['threaded2_hT']),
+      extra_ways(ways),
       exit_code(1),
       skip_if_fast,
       reqlib('random'),