summaryrefslogtreecommitdiff
path: root/testsuite
diff options
context:
space:
mode:
authorIan Lynagh <ian@well-typed.com>2013-02-11 14:08:58 +0000
committerIan Lynagh <ian@well-typed.com>2013-02-11 14:08:58 +0000
commit02bd959be01710efc8d15eca89df2457214f6e57 (patch)
tree9128420972c09ca77177919a6e42df4d656392c7 /testsuite
parent5382010aeae8b9fa3ce93cd2f1b714eeb2bd31fb (diff)
downloadhaskell-02bd959be01710efc8d15eca89df2457214f6e57.tar.gz
Convert more helpers to the new scheme
Diffstat (limited to 'testsuite')
-rw-r--r--testsuite/driver/testlib.py27
-rw-r--r--testsuite/tests/driver/all.T2
2 files changed, 7 insertions, 22 deletions
diff --git a/testsuite/driver/testlib.py b/testsuite/driver/testlib.py
index 02c7ba32b8..51e18be8f9 100644
--- a/testsuite/driver/testlib.py
+++ b/testsuite/driver/testlib.py
@@ -328,29 +328,14 @@ def arch( arch ):
def wordsize( ws ):
return config.wordsize == str(ws)
-def if_unregisterised( f ):
- if config.unregisterised:
- return f
- else:
- return normal
+def unregisterised( ):
+ return config.unregisterised
-def unless_unregisterised( f ):
- if config.unregisterised:
- return normal
- else:
- return f
+def msys( ):
+ return config.msys
-def if_msys( f ):
- if config.msys:
- return f
- else:
- return normal
-
-def if_cygwin( f ):
- if config.cygwin:
- return f
- else:
- return normal
+def cygwin( ):
+ return config.cygwin
def when_have_vanilla( f ):
if config.have_vanilla:
diff --git a/testsuite/tests/driver/all.T b/testsuite/tests/driver/all.T
index 1bf7c7e33d..0020f1836c 100644
--- a/testsuite/tests/driver/all.T
+++ b/testsuite/tests/driver/all.T
@@ -362,6 +362,6 @@ test('T7060',
run_command,
['$MAKE -s --no-print-directory T7060'])
test('T7130', normal, compile_fail, ['-fflul-laziness'])
-test('T7563', if_unregisterised(skip), run_command,
+test('T7563', when(unregisterised(), skip), run_command,
['$MAKE -s --no-print-directory T7563'])