Commit 89f34a49 authored by Ian Lynagh's avatar Ian Lynagh

Fix some more written-but-not-cleaned files

parent aa658153
......@@ -9,14 +9,41 @@ test('SafeLang02', normal, compile, ['-trust base'])
test('SafeLang03', normal, compile, ['-trust base'])
test('SafeLang04', normal, compile_and_run, [''])
test('SafeLang05', normal, compile_and_run, ['-trust base'])
test('SafeLang06', normal, compile_and_run, [''])
test('SafeLang06',
extra_clean(['SafeLang06_A.o', 'SafeLang06_A.hi']),
compile_and_run,
[''])
test('SafeLang07', normal, compile_fail, [''])
test('SafeLang08', normal, compile_fail, [''])
test('SafeLang09', exit_code(1), compile_and_run, [''])
test('SafeLang10', normal, multimod_compile_fail, ['SafeLang10', '-trust base'])
test('SafeLang11', req_interp, multimod_compile_and_run, ['SafeLang11', '-trust base'])
test('SafeLang09',
[exit_code(1),
extra_clean(['SafeLang09_A.o', 'SafeLang09_A.hi',
'SafeLang09_B.o', 'SafeLang09_B.hi'])],
compile_and_run,
[''])
test('SafeLang10',
extra_clean(['SafeLang10_A.o', 'SafeLang10_A.hi',
'SafeLang10_B.o', 'SafeLang10_B.hi']),
multimod_compile_fail,
['SafeLang10', '-trust base'])
test('SafeLang11',
[req_interp,
extra_clean(['SafeLang11_A.o', 'SafeLang11_A.hi',
'SafeLang11_B.o', 'SafeLang11_B.hi'])],
multimod_compile_and_run,
['SafeLang11', '-trust base'])
test('SafeLang12', normal, multimod_compile_fail, ['SafeLang12', '-trust base'])
test('SafeLang13', normal, multimod_compile_and_run, ['SafeLang13', '-trust base'])
test('SafeLang14', normal, multimod_compile_fail, ['SafeLang14', '-trust base -XSafe'])
test('SafeLang15', exit_code(1), multimod_compile_and_run, ['SafeLang15', '-trust base -XSafe'])
test('SafeLang13',
extra_clean(['SafeLang13_A.o', 'SafeLang13_A.hi']),
multimod_compile_and_run,
['SafeLang13', '-trust base'])
test('SafeLang14',
extra_clean(['SafeLang14_A.o', 'SafeLang14_A.hi']),
multimod_compile_fail,
['SafeLang14', '-trust base -XSafe'])
test('SafeLang15',
[exit_code(1),
extra_clean(['SafeLang15_A.o', 'SafeLang15_A.hi'])],
multimod_compile_and_run,
['SafeLang15', '-trust base -XSafe'])
......@@ -16,6 +16,12 @@ test('Dep09', normal, compile, [''])
test('Dep10', normal, compile, [''])
test('BadImport01', normal, compile_fail, [''])
test('BadImport02', normal, multimod_compile_and_run, ['BadImport02', ''])
test('BadImport03', normal, multimod_compile_fail, ['BadImport03', ''])
test('BadImport02',
extra_clean(['BadImport02_A.o', 'BadImport02_A.hi']),
multimod_compile_and_run,
['BadImport02', ''])
test('BadImport03',
extra_clean(['BadImport03_A.o', 'BadImport03_A.hi']),
multimod_compile_fail,
['BadImport03', ''])
setTestOpts(if_compiler_profiled(skip))
test('TH_import_loop', expect_broken(1012), multimod_compile_and_run, ['Main', '-v0'])
test('TH_import_loop',
[extra_clean(['ModuleA.o-boot', 'ModuleA.hi-boot',
'ModuleC.o', 'ModuleC.hi']),
expect_broken(1012)],
multimod_compile_and_run,
['Main', '-v0'])
......@@ -8,4 +8,7 @@ setTestOpts(only_compiler_types(['ghc']))
setTestOpts(only_ways(['normal','ghci']))
setTestOpts(if_compiler_profiled(skip))
test('TH_spliceViewPat', normal, multimod_compile_and_run, [ 'Main', '' ])
test('TH_spliceViewPat',
extra_clean(['Main.o', 'Main.hi', 'A.o', 'A.hi']),
multimod_compile_and_run,
['Main', ''])
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