diff options
author | Ian Lynagh <ian@well-typed.com> | 2013-02-11 14:08:58 +0000 |
---|---|---|
committer | Ian Lynagh <ian@well-typed.com> | 2013-02-11 14:08:58 +0000 |
commit | 02bd959be01710efc8d15eca89df2457214f6e57 (patch) | |
tree | 9128420972c09ca77177919a6e42df4d656392c7 /testsuite | |
parent | 5382010aeae8b9fa3ce93cd2f1b714eeb2bd31fb (diff) | |
download | haskell-02bd959be01710efc8d15eca89df2457214f6e57.tar.gz |
Convert more helpers to the new scheme
Diffstat (limited to 'testsuite')
-rw-r--r-- | testsuite/driver/testlib.py | 27 | ||||
-rw-r--r-- | testsuite/tests/driver/all.T | 2 |
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']) |