summaryrefslogtreecommitdiff
path: root/testsuite
diff options
context:
space:
mode:
authorIan Lynagh <ian@well-typed.com>2013-02-11 14:18:38 +0000
committerIan Lynagh <ian@well-typed.com>2013-02-11 14:18:38 +0000
commit7cc907d310b9be716b50279d6545698dee346fb6 (patch)
tree16ac7e69ad4ada0f3dd67a69e823fa46f78f7d7c /testsuite
parent02bd959be01710efc8d15eca89df2457214f6e57 (diff)
downloadhaskell-7cc907d310b9be716b50279d6545698dee346fb6.tar.gz
Convert more helper functions to the new scheme
Diffstat (limited to 'testsuite')
-rw-r--r--testsuite/driver/testlib.py39
-rw-r--r--testsuite/tests/driver/dynamicToo/all.T4
2 files changed, 8 insertions, 35 deletions
diff --git a/testsuite/driver/testlib.py b/testsuite/driver/testlib.py
index 51e18be8f9..6f6ab4a251 100644
--- a/testsuite/driver/testlib.py
+++ b/testsuite/driver/testlib.py
@@ -337,41 +337,14 @@ def msys( ):
def cygwin( ):
return config.cygwin
-def when_have_vanilla( f ):
- if config.have_vanilla:
- return f
- else:
- return normal
+def have_vanilla( ):
+ return config.have_vanilla
-def unless_have_vanilla( f ):
- if config.have_vanilla:
- return normal
- else:
- return f
+def have_dynamic( ):
+ return config.have_dynamic
-def when_have_dynamic( f ):
- if config.have_dynamic:
- return f
- else:
- return normal
-
-def unless_have_dynamic( f ):
- if config.have_dynamic:
- return normal
- else:
- return f
-
-def when_have_profiling( f ):
- if config.have_profiling:
- return f
- else:
- return normal
-
-def unless_have_profiling( f ):
- if config.have_profiling:
- return normal
- else:
- return f
+def have_profiling( ):
+ return config.have_profiling
# ---
diff --git a/testsuite/tests/driver/dynamicToo/all.T b/testsuite/tests/driver/dynamicToo/all.T
index 25d48b05fb..6465d1e1fb 100644
--- a/testsuite/tests/driver/dynamicToo/all.T
+++ b/testsuite/tests/driver/dynamicToo/all.T
@@ -7,8 +7,8 @@ test('dynamicToo001',
'A001.dyn_hi', 'B001.dyn_hi', 'C001.dyn_hi',
's001', 'd001']),
when(opsys('mingw32'), expect_broken(7665)),
- unless_have_vanilla(skip),
- unless_have_dynamic(skip)],
+ unless(have_vanilla(), skip),
+ unless(have_dynamic(), skip)],
run_command,
['$MAKE -s --no-print-directory dynamicToo001'])