diff options
author | Ian Lynagh <ian@well-typed.com> | 2013-02-11 15:11:52 +0000 |
---|---|---|
committer | Ian Lynagh <ian@well-typed.com> | 2013-02-11 15:11:52 +0000 |
commit | d36dc348b8de7adbf3399ef4fb39fb73feda179e (patch) | |
tree | 3d24e2165bd38007e56e99e24219456eb6d5a1f3 /testsuite | |
parent | 8d34b5c785c56d68765e70e74e73be45be419df8 (diff) | |
download | haskell-d36dc348b8de7adbf3399ef4fb39fb73feda179e.tar.gz |
Convert more helpers
Diffstat (limited to 'testsuite')
-rw-r--r-- | testsuite/driver/testlib.py | 13 | ||||
-rw-r--r-- | testsuite/tests/esc/all.T | 2 |
2 files changed, 3 insertions, 12 deletions
diff --git a/testsuite/driver/testlib.py b/testsuite/driver/testlib.py index 942a7222ec..7fcdaefe8e 100644 --- a/testsuite/driver/testlib.py +++ b/testsuite/driver/testlib.py @@ -387,17 +387,8 @@ def _namebase( opts, nb ): # --- -def if_tag( tag, f ): - if tag in config.compiler_tags: - return f - else: - return normal - -def unless_tag( tag, f ): - if not (tag in config.compiler_tags): - return f - else: - return normal +def tag( t ): + return t in config.compiler_tags # --- def high_memory_usage(name, opts): diff --git a/testsuite/tests/esc/all.T b/testsuite/tests/esc/all.T index 55b21ee2a3..31a4ba5254 100644 --- a/testsuite/tests/esc/all.T +++ b/testsuite/tests/esc/all.T @@ -1,4 +1,4 @@ -esc = unless_tag('esc', skip) +esc = unless(tag('esc'), skip) test('TestList', esc, compile, ['-fesc']) test('TestImport', esc, compile, ['-fesc']) |