diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-02-14 14:47:23 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-02-14 15:40:21 +0000 |
| commit | a3f1fd1df8bd24e309ea229045c22eab85209f73 (patch) | |
| tree | d5c76f79db61cd5a30e5ddd4a4e7d3f2924b8328 | |
| parent | cc650e13a100b6b766d058f25f42376144331a5c (diff) | |
| download | haskell-a3f1fd1df8bd24e309ea229045c22eab85209f73.tar.gz | |
Remove uses of compose(s) in tests
| -rw-r--r-- | libraries/base/tests/IO/all.T | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/libraries/base/tests/IO/all.T b/libraries/base/tests/IO/all.T index 076c81762f..bb73e99fec 100644 --- a/libraries/base/tests/IO/all.T +++ b/libraries/base/tests/IO/all.T @@ -4,7 +4,7 @@ def expect_fail_if_windows(name, opts): f = when(opsys('mingw32'), expect_fail); return f(normal, opts); -test('IOError001', compose(omit_ways(['ghci']), set_stdin('IOError001.hs')), +test('IOError001', [omit_ways(['ghci']), set_stdin('IOError001.hs')], compile_and_run, ['']) test('IOError002', normal, compile_and_run, ['']) @@ -22,7 +22,7 @@ test('hFlush001', compile_and_run, ['']) test('hGetBuffering001', - compose(omit_ways(['ghci']), set_stdin('hGetBuffering001.hs')), + [omit_ways(['ghci']), set_stdin('hGetBuffering001.hs')], compile_and_run, ['']) test('hGetChar001', normal, compile_and_run, ['']) @@ -52,8 +52,8 @@ test('hSeek004', extra_clean(['hSeek004.out']), compile_and_run, ['-cpp']) test('hSetBuffering002', set_stdin('hSetBuffering002.hs'), compile_and_run, ['']) -test('hSetBuffering003', compose(omit_ways(['ghci']), - set_stdin('hSetBuffering003.hs')), +test('hSetBuffering003', + [omit_ways(['ghci']), set_stdin('hSetBuffering003.hs')], compile_and_run, ['']) test('hSetBuffering004', set_stdin('hSetBuffering004.hs'), compile_and_run, ['']) @@ -102,9 +102,11 @@ test('readwrite002', test('readwrite003', extra_clean(['readwrite003.txt']), compile_and_run, ['']) -test('hGetBuf001', compose(only_compiler_types(['ghc']), - compose(when(fast(), skip), - expect_fail_if_windows)), compile_and_run, ['-package unix']) +test('hGetBuf001', + [only_compiler_types(['ghc']), + when(fast(), skip), + expect_fail_if_windows], + compile_and_run, ['-package unix']) test('hDuplicateTo001', extra_clean(['tmp']), compile_and_run, ['']) |