diff options
author | Ian Lynagh <ian@well-typed.com> | 2013-02-11 15:39:12 +0000 |
---|---|---|
committer | Ian Lynagh <ian@well-typed.com> | 2013-02-11 15:39:12 +0000 |
commit | 30a52e41290d889a60b338cdd1ca6fcd22fe31f2 (patch) | |
tree | 81eb88ac18a442f174b9caf14a5129f8c1ff6134 /testsuite/tests/gadt/all.T | |
parent | d36dc348b8de7adbf3399ef4fb39fb73feda179e (diff) | |
download | haskell-30a52e41290d889a60b338cdd1ca6fcd22fe31f2.tar.gz |
More helper conversions
Diffstat (limited to 'testsuite/tests/gadt/all.T')
-rw-r--r-- | testsuite/tests/gadt/all.T | 12 |
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, ['']) |