Commit 43ebe24a authored by thomie's avatar thomie

Testsuite: delete expect_fail setups for hugs

This makes it easier to grep for expect_fail in the tests directory.

Differential Revision: https://phabricator.haskell.org/D964
parent bb996712
......@@ -72,21 +72,14 @@ test('openFile001', normal, compile_and_run, [''])
test('openFile002', exit_code(1), compile_and_run, [''])
test('openFile003', extra_clean(['openFile003Dir']), compile_and_run, [''])
test('openFile004', extra_clean(['openFile004.out']), compile_and_run, [''])
test('openFile005',
[when(compiler_type('hugs'), expect_fail),
extra_clean(['openFile005.out1', 'openFile005.out2'])],
test('openFile005', extra_clean(['openFile005.out1', 'openFile005.out2']),
compile_and_run, [''])
test('openFile006', extra_clean(['openFile006.out']), compile_and_run, [''])
test('openFile007',
[when(compiler_type('hugs'), expect_fail),
extra_clean(['openFile007.out'])],
compile_and_run, [''])
test('openFile007', extra_clean(['openFile007.out']), compile_and_run, [''])
test('openFile008', cmd_prefix('ulimit -n 1024; '), compile_and_run, [''])
test('putStr001', normal, compile_and_run, [''])
test('readFile001',
[when(compiler_type('hugs'), expect_fail),
extra_clean(['readFile001.out'])],
test('readFile001', extra_clean(['readFile001.out']),
compile_and_run, [''])
test('readwrite001',
extra_clean(['readwrite001.inout']),
......
......@@ -260,7 +260,7 @@ test('mod150', normal, compile_fail, [''])
test('mod151', normal, compile_fail, [''])
test('mod152', normal, compile_fail, [''])
test('mod153', normal, compile_fail, [''])
test('mod154', when(compiler_type('hugs'), expect_fail), compile, [''])
test('mod154', normal, compile, [''])
test('mod155', normal, compile_fail, [''])
test('mod156', normal, compile, [''])
test('mod157',
......
......@@ -45,8 +45,8 @@ test('read029', normal, compile, [''])
test('read030', normal, compile, [''])
test('read031', normal, compile, [''])
test('read032', normal, compile, [''])
test('read033', when(compiler_type('hugs'), expect_fail), compile, [''])
test('read034', when(compiler_type('hugs'), expect_fail), compile, [''])
test('read033', normal, compile, [''])
test('read034', normal, compile, [''])
test('read036', normal, compile, [''])
test('read037', normal, compile, [''])
test('read038', normal, compile, [''])
......
......@@ -23,7 +23,7 @@ test('readFail020', normal, compile_fail, [''])
# empty file (length zero) is not a legal Haskell module. It fails to compile
# because it doesn't contain a definition of Main.main. GHC 5.02 crashed
# on this example.
test('readFail021', when(compiler_type('hugs'), expect_fail), compile_fail, [''])
test('readFail021', normal, compile_fail, [''])
test('readFail022', normal, compile_fail, [''])
test('readFail023', normal, compile_fail, [''])
......
# exhausts Hugs's heap (CAF leak)
test('life_space_leak',
[when(fast(), skip),
extra_clean(['Main.hi', 'Main.o']),
when(compiler_type('hugs'), expect_fail)],
extra_clean(['Main.hi', 'Main.o'])],
multimod_compile_and_run,
['Main', ''])
......@@ -84,7 +84,7 @@ test('tc079', normal, compile, [''])
test('tc080', normal, compile, [''])
test('tc081', normal, compile, [''])
test('tc082', normal, compile, [''])
test('tc084', when(compiler_type('hugs'), expect_fail), compile, [''])
test('tc084', normal, compile, [''])
test('tc085', only_compiler_types(['ghc']), compile, [''])
test('tc086', normal, compile, [''])
test('tc087', normal, compile, [''])
......@@ -96,7 +96,7 @@ test('tc092', normal, compile, [''])
test('tc093', normal, compile, [''])
test('tc094', normal, compile, [''])
test('tc095', normal, compile, [''])
test('tc096', when(compiler_type('hugs'), expect_fail), compile, [''])
test('tc096', normal, compile, [''])
test('tc097', normal, compile, [''])
test('tc098', normal, compile, [''])
test('tc099', normal, compile, [''])
......
......@@ -24,7 +24,7 @@ test('tcfail023', normal, compile_fail, [''])
test('tcfail027', normal, compile_fail, [''])
test('tcfail028', normal, compile_fail, [''])
test('tcfail029', normal, compile_fail, [''])
test('tcfail030', when(compiler_type('hugs'), expect_fail), compile_fail, [''])
test('tcfail030', normal, compile_fail, [''])
test('tcfail031', normal, compile_fail, [''])
test('tcfail032', normal, compile_fail, [''])
test('tcfail033', normal, compile_fail, [''])
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment