summaryrefslogtreecommitdiff
path: root/testsuite/tests/gadt/all.T
diff options
context:
space:
mode:
authorIan Lynagh <ian@well-typed.com>2013-02-11 15:39:12 +0000
committerIan Lynagh <ian@well-typed.com>2013-02-11 15:39:12 +0000
commit30a52e41290d889a60b338cdd1ca6fcd22fe31f2 (patch)
tree81eb88ac18a442f174b9caf14a5129f8c1ff6134 /testsuite/tests/gadt/all.T
parentd36dc348b8de7adbf3399ef4fb39fb73feda179e (diff)
downloadhaskell-30a52e41290d889a60b338cdd1ca6fcd22fe31f2.tar.gz
More helper conversions
Diffstat (limited to 'testsuite/tests/gadt/all.T')
-rw-r--r--testsuite/tests/gadt/all.T12
1 files changed, 6 insertions, 6 deletions
diff --git a/testsuite/tests/gadt/all.T b/testsuite/tests/gadt/all.T
index d55aef64e2..e5f3c5c34b 100644
--- a/testsuite/tests/gadt/all.T
+++ b/testsuite/tests/gadt/all.T
@@ -6,10 +6,10 @@ setTestOpts(only_compiler_types(['ghc']))
# In fast mode, we omit all the compile_and_run tests except a couple
test('gadt1', normal, compile, [''])
-test('gadt2', skip_if_fast, compile_and_run, [''])
+test('gadt2', when(fast(), skip), compile_and_run, [''])
test('gadt3', normal, compile, [''])
-test('gadt4', skip_if_fast, compile_and_run, [''])
-test('gadt5', skip_if_fast, compile_and_run, [''])
+test('gadt4', when(fast(), skip), compile_and_run, [''])
+test('gadt5', when(fast(), skip), compile_and_run, [''])
test('gadt6', normal, compile, [''])
test('gadt7', normal, compile_fail, [''])
test('gadt8', normal, compile, [''])
@@ -40,7 +40,7 @@ test('gadt23',
test('gadt24', normal, compile, [''])
test('red-black', normal, compile, [''])
-test('type-rep', skip_if_fast, compile_and_run, [''])
+test('type-rep', when(fast(), skip), compile_and_run, [''])
test('equal', normal, compile, [''])
test('nbe', normal, compile, [''])
test('while', normal, compile_and_run, [''])
@@ -50,13 +50,13 @@ test('lazypatok', expect_fail, compile, [''])
test('tc', normal, compile_and_run, [''])
test('arrow', normal, compile, [''])
test('tdpe', normal, compile, [''])
-test('Nilsson', skip_if_fast, compile, [''])
+test('Nilsson', when(fast(), skip), compile, [''])
if config.fast:
test('records', normal, compile, [''])
else:
test('records', normal, compile_and_run, [''])
-test('ubx-records', skip_if_fast, compile_and_run, [''])
+test('ubx-records', when(fast(), skip), compile_and_run, [''])
test('records-fail1', normal, compile_fail, [''])
test('doaitse', normal, compile, [''])