[project @ 2004-11-09 17:57:33 by ross]

mark GHC-specific tests

testsuite/tests/ghc-regress/ccall/should_fail/all.T

@@ -6,5 +6,5 @@ setTestOpts(f)
 # Missing:
 # test('cc002', normal, compile_fail, [''])
 
-test('cc005', normal, compile_fail, [''])
+test('cc005', only_compiler_types(['ghc']), compile_fail, [''])
 

testsuite/tests/ghc-regress/codeGen/should_compile/all.T

-test('cg001', normal, compile, [''])
+test('cg001', only_compiler_types(['ghc']), compile, [''])
 test('cg002', normal, compile, [''])
 test('cg003', only_ways(['opt']), compile, ['-fvia-C'])
 test('cg004', normal, compile, [''])

testsuite/tests/ghc-regress/codeGen/should_run/all.T

@@ -9,13 +9,13 @@ test('cg008', normal, compile_and_run, [''])
 test('cg009', normal, compile_and_run, [''])
 test('cg010', normal, compile_and_run, [''])
 test('cg011', normal, compile_and_run, [''])
-test('cg012', normal, compile_and_run, ['-fglasgow-exts'])
+test('cg012', only_compiler_types(['ghc']), compile_and_run, ['-fglasgow-exts'])
 test('cg013', normal, compile_and_run, [''])
 test('cg014', normal, compile_and_run, [''])
-test('cg015', normal, compile_and_run, ['-fglasgow-exts'])
+test('cg015', only_compiler_types(['ghc']), compile_and_run, ['-fglasgow-exts'])
 test('cg016', exit_code(1), compile_and_run, [''])
 test('cg017', normal, compile_and_run, [''])
-test('cg018', normal, compile_and_run, ['-fglasgow-exts'])
+test('cg018', only_compiler_types(['ghc']), compile_and_run, ['-fglasgow-exts'])
 test('cg019', normal, compile_and_run, [''])
 test('cg020', normal, compile_and_run, [''])
 test('cg021', normal, compile_and_run, [''])
@@ -25,12 +25,12 @@ test('cg024', normal, compile_and_run, [''])
 test('cg025', compose(extra_run_opts('cg025.hs'),exit_code(1)), \
 	compile_and_run, [''])
 
-test('cg026', normal, compile_and_run, [''])
+test('cg026', only_compiler_types(['ghc']), compile_and_run, [''])
 test('cg027', normal, compile_and_run, [''])
 test('cg028', normal, compile_and_run, [''])
-test('cg031', normal, compile_and_run, ['-fglasgow-exts'])
-test('cg032', normal, compile_and_run, ['-fglasgow-exts'])
-test('cg033', normal, compile_and_run, ['-fglasgow-exts'])
+test('cg031', only_compiler_types(['ghc']), compile_and_run, ['-fglasgow-exts'])
+test('cg032', only_compiler_types(['ghc']), compile_and_run, ['-fglasgow-exts'])
+test('cg033', only_compiler_types(['ghc']), compile_and_run, ['-fglasgow-exts'])
 test('cg034', normal, compile_and_run, [''])
 test('cg035', normal, compile_and_run, ['-fglasgow-exts'])
 test('cg036', normal, compile_and_run, [''])

testsuite/tests/ghc-regress/concurrent/should_run/all.T

@@ -16,38 +16,45 @@ test('conc003', normal, compile_and_run, [''])
 test('conc004', omit_ways(['ghci']), compile_and_run, [''])
 
 test('conc006', normal, compile_and_run, [''])
-test('conc007', extra_run_opts('+RTS -H128M -RTS'), compile_and_run, [''])
-test('conc008', normal, compile_and_run, [''])
-test('conc009', exit_code(1), compile_and_run, [''])
-test('conc010', normal, compile_and_run, [''])
+test('conc007', compose(only_compiler_types(['ghc']),
+			extra_run_opts('+RTS -H128M -RTS')),
+		compile_and_run, [''])
+test('conc008', only_compiler_types(['ghc']), compile_and_run, [''])
+test('conc009', compose(only_compiler_types(['ghc']), exit_code(1)),
+		compile_and_run, [''])
+test('conc010', only_compiler_types(['ghc']), compile_and_run, [''])
 test('conc012', normal, compile_and_run, [''])
 
 # hangs for ever with the threaded RTS
 test('conc013', omit_ways(['threaded']), compile_and_run, [''])
 
-test('conc014', normal, compile_and_run, [''])
-test('conc015', normal, compile_and_run, [''])
-test('conc016', normal, compile_and_run, [''])
-test('conc017', normal, compile_and_run, [''])
-test('conc018', normal, compile_and_run, [''])
-test('conc019', extra_run_opts('+RTS -K4m -RTS'), compile_and_run, [''])
-test('conc020', normal, compile_and_run, [''])
+test('conc014', only_compiler_types(['ghc']), compile_and_run, [''])
+test('conc015', only_compiler_types(['ghc']), compile_and_run, [''])
+test('conc016', only_compiler_types(['ghc']), compile_and_run, [''])
+test('conc017', only_compiler_types(['ghc']), compile_and_run, [''])
+test('conc018', only_compiler_types(['ghc']), compile_and_run, [''])
+test('conc019', compose(only_compiler_types(['ghc']),
+			extra_run_opts('+RTS -K4m -RTS')),
+		compile_and_run, [''])
+test('conc020', only_compiler_types(['ghc']), compile_and_run, [''])
 test('conc021', compose(omit_ways(['ghci']), exit_code(1)),
 	compile_and_run, [''])
-test('conc022', normal, compile_and_run, [''])
-test('conc023', normal, compile_and_run, [''])
-test('conc024', normal, compile_and_run, [''])
+test('conc022', only_compiler_types(['ghc']), compile_and_run, [''])
+test('conc023', only_compiler_types(['ghc']), compile_and_run, [''])
+test('conc024', only_compiler_types(['ghc']), compile_and_run, [''])
 test('conc025', normal, compile_and_run, [''])
-test('conc026', normal, compile_and_run, [''])
+test('conc026', only_compiler_types(['ghc']), compile_and_run, [''])
 test('conc027', normal, compile_and_run, [''])
 test('conc028', normal, compile_and_run, [''])
 test('conc029', normal, compile_and_run, [''])
-test('conc030', extra_run_opts('+RTS -K2M -RTS'), compile_and_run, [''])
+test('conc030', compose(only_compiler_types(['ghc']),
+			extra_run_opts('+RTS -K2M -RTS')),
+		compile_and_run, [''])
 
 # Skip for now, hangs for ever (broken?)
 test('conc031', skip, compile_and_run, [''])
 
-test('conc032', normal, compile_and_run, [''])
+test('conc032', only_compiler_types(['ghc']), compile_and_run, [''])
 
 # Omit for GHCi, because it just sits there waiting for you to press ^C
 # Also hangs with the threaded RTS
@@ -55,12 +62,13 @@ test('conc033', omit_ways(['ghci','threaded']), compile_and_run, [''])
 
 # Omit for GHCi, because it just sits there waiting for you to press ^C
 # Also hangs with the threaded RTS
-test('conc034', compose(omit_ways(['ghci','threaded']), 
-		extra_run_opts('+RTS -C0 -RTS')),
+test('conc034', compose(only_compiler_types(['ghc']),
+			compose(omit_ways(['ghci','threaded']), 
+			extra_run_opts('+RTS -C0 -RTS'))),
 		compile_and_run, [''])
 
-test('conc035', normal, compile_and_run, [''])
-test('conc036', normal, compile_and_run, [''])
+test('conc035', only_compiler_types(['ghc']), compile_and_run, [''])
+test('conc036', only_compiler_types(['ghc']), compile_and_run, [''])
 
 test('conc037', only_ways(['threaded']), compile_and_run, [''])
 test('conc038', only_ways(['threaded']), compile_and_run, [''])

testsuite/tests/ghc-regress/deSugar/should_compile/all.T

@@ -39,7 +39,7 @@ test('ds031', normal, compile, [''])
 test('ds032', normal, compile, [''])
 test('ds033', normal, compile, [''])
 test('ds034', normal, compile, [''])
-test('ds035', normal, compile, [''])
+test('ds035', only_compiler_types(['ghc']), compile, [''])
 test('ds036', normal, compile, [''])
 test('ds037', normal, compile, [''])
 test('ds038', normal, compile, [''])

testsuite/tests/ghc-regress/deriving/should_run/all.T

@@ -19,4 +19,4 @@ test('drvrun013', normal, compile_and_run, [''])
 test('drvrun014', normal, compile_and_run, [''])
 test('drvrun015', normal, compile_and_run, [''])
 test('drvrun016', normal, compile_and_run, ['-funbox-strict-fields'])
-test('drvrun017', normal, compile_and_run, [''])
+test('drvrun017', only_compiler_types(['ghc']), compile_and_run, [''])

testsuite/tests/ghc-regress/lib/net/all.T

 
-test('net001', normal, compile_and_run, ['-package network'])
+test('net001', only_compiler_types(['ghc']), compile_and_run, ['-package network'])
 test('net002', extra_run_opts('3'), compile_and_run, ['-package network'])
 
 test('uri001', normal, compile_and_run, ['-package network -package HUnit'])

testsuite/tests/ghc-regress/mdo/should_compile/all.T

@@ -3,5 +3,5 @@ setTestOpts(only_ways(['normal']));
 test('mdo001', normal, compile_and_run, [''])
 test('mdo002', normal, compile_and_run, [''])
 test('mdo003', normal, compile_and_run, [''])
-test('mdo004', normal, compile_and_run, [''])
+test('mdo004', only_compiler_types(['ghc']), compile_and_run, [''])
 test('mdo005', normal, compile_and_run, [''])

testsuite/tests/ghc-regress/numeric/should_run/all.T

@@ -22,11 +22,11 @@ test('arith011', normal, compile_and_run, [''])
 
 test('arith012', expect_fail_for(['optasm']), compile_and_run, [''])
 
-test('arith013', normal, compile_and_run, [''])
+test('arith013', only_compiler_types(['ghc']), compile_and_run, [''])
 test('arith014', normal, compile_and_run, [''])
 test('arith015', normal, compile_and_run, [''])
 test('num009',   normal, compile_and_run, [''])
 test('num010',   normal, compile_and_run, [''])
 test('num011',   normal, compile_and_run, [''])
-test('arith016', normal, compile_and_run, ['-fglasgow-exts'])
+test('arith016', only_compiler_types(['ghc']), compile_and_run, ['-fglasgow-exts'])
 test('arith017', normal, compile_and_run, [''])

testsuite/tests/ghc-regress/rename/prog005/test.T

-test('rename.prog005', normal, multimod_compile, \
+test('rename.prog005', only_compiler_types(['ghc']), multimod_compile, \
   ['View', '-v0'])
 clean(['VersionGraphClient.hi', 'VersionGraphClient.o', 'ViewType.hi', 'ViewType.o', 'View.hi', 'View.o'])

testsuite/tests/ghc-regress/rename/should_compile/all.T

@@ -3,12 +3,12 @@
 test('rn003', normal, compile, [''])
 test('rn005', normal, compile, [''])
 test('rn006', normal, compile, [''])
-test('rn009', normal, compile, [''])
-test('rn010', normal, compile, [''])
-test('rn011', normal, compile, [''])
-test('rn012', normal, compile, [''])
+test('rn009', only_compiler_types(['ghc']), compile, [''])
+test('rn010', only_compiler_types(['ghc']), compile, [''])
+test('rn011', only_compiler_types(['ghc']), compile, [''])
+test('rn012', only_compiler_types(['ghc']), compile, [''])
 test('rn013', normal, compile, [''])
-test('rn017', normal, compile, [''])
+test('rn017', only_compiler_types(['ghc']), compile, [''])
 test('rn019', normal, compile, [''])
 test('rn020', normal, compile, [''])
 test('rn022', normal, compile, [''])

testsuite/tests/ghc-regress/simplCore/should_compile/all.T

 test('simpl001', normal, compile, [''])
 test('simpl002', normal, compile, [''])
 test('simpl003', normal, compile, [''])
-test('simpl004', normal, compile, [''])
+test('simpl004', only_compiler_types(['ghc']), compile, [''])
 test('simpl005', normal, compile, [''])
 
 # Missing:
 # test('simpl006', normal, compile, [''])
 
 test('simpl007', normal, compile, [''])
-test('simpl008', normal, compile_fail, [''])
+test('simpl008', only_compiler_types(['ghc']), compile_fail, [''])
 test('simpl009', normal, compile, [''])
 test('simpl010', normal, compile, [''])

testsuite/tests/ghc-regress/typecheck/should_compile/all.T

@@ -85,7 +85,7 @@ test('tc080', normal, compile, [''])
 test('tc081', normal, compile, [''])
 test('tc082', normal, compile, [''])
 test('tc084', normal, compile, [''])
-test('tc085', normal, compile, [''])
+test('tc085', only_compiler_types(['ghc']), compile, [''])
 test('tc086', normal, compile, [''])
 test('tc087', normal, compile, ['-fglasgow-exts'])
 test('tc088', normal, compile, [''])
@@ -133,8 +133,8 @@ test('tc130', normal, compile, [''])
 test('tc131', normal, compile, [''])
 test('tc132', normal, compile, [''])
 test('tc133', normal, compile, [''])
-test('tc134', normal, compile, [''])
-test('tc135', normal, compile, [''])
+test('tc134', only_compiler_types(['ghc']), compile, [''])
+test('tc135', only_compiler_types(['ghc']), compile, [''])
 test('tc136', normal, compile, [''])
 test('tc137', normal, compile, [''])
 test('tc140', normal, compile, [''])
@@ -145,26 +145,26 @@ test('tc144', normal, compile, [''])
 test('tc145', normal, compile, [''])
 test('tc146', normal, compile, [''])
 test('tc147', normal, compile, [''])
-test('tc148', normal, compile, [''])
-test('tc149', normal, compile, [''])
+test('tc148', only_compiler_types(['ghc']), compile, [''])
+test('tc149', only_compiler_types(['ghc']), compile, [''])
 test('tc150', normal, compile, [''])
 test('tc151', normal, compile, [''])
-test('tc152', normal, compile, [''])
+test('tc152', only_compiler_types(['ghc']), compile, [''])
 test('tc153', normal, compile, [''])
 test('tc154', normal, compile, [''])
 test('tc155', normal, compile, [''])
-test('tc156', normal, compile, [''])
+test('tc156', only_compiler_types(['ghc']), compile, [''])
 test('tc157', normal, compile, [''])
-test('tc158', normal, compile, [''])
+test('tc158', only_compiler_types(['ghc']), compile, [''])
 test('tc159', normal, compile, [''])
-test('tc160', normal, compile, [''])
+test('tc160', only_compiler_types(['ghc']), compile, [''])
 test('tc161', normal, compile, [''])
-test('tc162', normal, compile_fail, [''])
-test('tc163', normal, compile, [''])
+test('tc162', only_compiler_types(['ghc']), compile_fail, [''])
+test('tc163', only_compiler_types(['ghc']), compile, [''])
 test('tc164', normal, compile, [''])
 test('tc165', normal, compile, [''])
-test('tc166', normal, compile, [''])
-test('tc167', normal, compile, [''])
+test('tc166', only_compiler_types(['ghc']), compile, [''])
+test('tc167', only_compiler_types(['ghc']), compile, [''])
 test('tc168', normal, compile, ['-ddump-types'])
 test('tc169', normal, compile, [''])
 
@@ -183,7 +183,7 @@ test('tc172', normal, compile, [''])
 test('tc173', normal, run_command_ignore_output, ['$MAKE tc173'])
 clean(['Tc173a.hi', 'Tc173a.o', 'Tc173b.hi', 'Tc173b.o'])
 
-test('tc174', normal, compile, [''])
+test('tc174', only_compiler_types(['ghc']), compile, [''])
 test('tc175', expect_fail_if_compiler_type('ghc'), compile, [''])
 test('tc176', normal, compile, [''])
 test('tc177', normal, compile, [''])

testsuite/tests/ghc-regress/typecheck/should_fail/all.T

@@ -55,32 +55,32 @@ test('tcfail062', normal, compile_fail, [''])
 test('tcfail063', normal, compile_fail, [''])
 test('tcfail065', normal, compile_fail, [''])
 test('tcfail067', normal, compile_fail, [''])
-test('tcfail068', normal, compile_fail, ['-fglasgow-exts'])
+test('tcfail068', only_compiler_types(['ghc']), compile_fail, ['-fglasgow-exts'])
 test('tcfail069', normal, compile_fail, [''])
 test('tcfail070', normal, compile_fail, [''])
 test('tcfail071', normal, compile_fail, [''])
 test('tcfail072', normal, compile_fail, [''])
 test('tcfail073', normal, compile_fail, [''])
-test('tcfail075', normal, compile_fail, [''])
+test('tcfail075', only_compiler_types(['ghc']), compile_fail, [''])
 test('tcfail076', normal, compile_fail, [''])
 test('tcfail077', normal, compile_fail, [''])
 test('tcfail078', normal, compile_fail, [''])
-test('tcfail079', normal, compile_fail, [''])
+test('tcfail079', only_compiler_types(['ghc']), compile_fail, [''])
 test('tcfail080', expect_fail_if_compiler_type('ghc'), compile_fail, ['-fglasgow-exts'])
 test('tcfail082', normal, compile_fail, [''])
 test('tcfail083', normal, compile_fail, [''])
 test('tcfail084', normal, compile_fail, [''])
 test('tcfail085', normal, compile_fail, [''])
 test('tcfail086', normal, compile_fail, [''])
-test('tcfail087', normal, compile_fail, [''])
+test('tcfail087', only_compiler_types(['ghc']), compile_fail, [''])
 test('tcfail088', normal, compile_fail, [''])
 test('tcfail089', normal, compile_fail, [''])
-test('tcfail090', normal, compile_fail, [''])
+test('tcfail090', only_compiler_types(['ghc']), compile_fail, [''])
 test('tcfail091', normal, compile_fail, [''])
 test('tcfail092', normal, compile_fail, [''])
 test('tcfail093', normal, compile_fail, [''])
 test('tcfail094', normal, compile_fail, [''])
-test('tcfail095', normal, compile_fail, [''])
+test('tcfail095', only_compiler_types(['ghc']), compile_fail, [''])
 test('tcfail096', normal, compile_fail, [''])
 test('tcfail097', normal, compile_fail, [''])
 test('tcfail098', normal, compile_fail, [''])
@@ -88,8 +88,8 @@ test('tcfail099', normal, compile_fail, [''])
 test('tcfail100', normal, compile_fail, [''])
 test('tcfail101', normal, compile_fail, [''])
 test('tcfail102', normal, compile_fail, [''])
-test('tcfail103', normal, compile_fail, [''])
-test('tcfail104', normal, compile_fail, [''])
+test('tcfail103', only_compiler_types(['ghc']), compile_fail, [''])
+test('tcfail104', only_compiler_types(['ghc']), compile_fail, [''])
 test('tcfail105', normal, compile_fail, [''])
 test('tcfail106', normal, compile_fail, [''])
 test('tcfail107', normal, compile_fail, [''])
@@ -100,16 +100,16 @@ test('tcfail111', normal, compile_fail, [''])
 test('tcfail112', normal, compile_fail, [''])
 test('tcfail113', normal, compile_fail, [''])
 test('tcfail114', normal, compile_fail, [''])
-test('tcfail115', normal, compile_fail, [''])
+test('tcfail115', only_compiler_types(['ghc']), compile_fail, [''])
 test('tcfail116', normal, compile_fail, [''])
 test('tcfail117', normal, compile_fail, [''])
 test('tcfail118', normal, compile_fail, [''])
 test('tcfail119', normal, compile_fail, [''])
-test('tcfail120', normal, compile_fail, ['-farrows'])
+test('tcfail120', only_compiler_types(['ghc']), compile_fail, ['-farrows'])
 test('tcfail121', normal, compile_fail, [''])
-test('tcfail122', normal, compile_fail, [''])
-test('tcfail123', normal, compile_fail, [''])
-test('tcfail124', normal, compile_fail, [''])
+test('tcfail122', only_compiler_types(['ghc']), compile_fail, [''])
+test('tcfail123', only_compiler_types(['ghc']), compile_fail, [''])
+test('tcfail124', only_compiler_types(['ghc']), compile_fail, [''])
 test('tcfail125', normal, compile_fail, [''])
 test('tcfail126', normal, compile_fail, [''])
 test('tcfail127', normal, compile_fail, [''])

testsuite/tests/ghc-regress/typecheck/should_run/all.T

@@ -4,12 +4,12 @@
 #	expected process return value, if not zero
 
 test('tcrun001', normal, compile_and_run, [''])
-test('tcrun002', normal, compile_and_run, [''])
+test('tcrun002', only_compiler_types(['ghc']), compile_and_run, [''])
 test('tcrun003', normal, compile_and_run, ['-fglasgow-exts'])
 test('tcrun004', normal, compile_and_run, ['-fglasgow-exts'])
 test('tcrun005', normal, compile_and_run, [''])
 test('tcrun006', normal, compile_and_run, [''])
-test('tcrun007', normal, compile_and_run, [''])
+test('tcrun007', only_compiler_types(['ghc']), compile_and_run, [''])
 test('tcrun008', normal, compile_and_run, [''])
 test('tcrun009', normal, compile_and_run, [''])
 test('tcrun010', normal, compile_and_run, [''])
@@ -25,7 +25,7 @@ test('tcrun019', normal, compile_and_run, [''])
 test('tcrun020', normal, compile_and_run, [''])
 # Doesn't work with External Core due to datatype with no constructors
 test('tcrun021', expect_fail_for(['extcore','optextcore']), compile_and_run, [''])
-test('tcrun022', normal, compile_and_run, ['-O -fglasgow-exts'])
+test('tcrun022', only_compiler_types(['ghc']), compile_and_run, ['-O -fglasgow-exts'])
 test('tcrun023', normal, compile_and_run, ['-O'])
 test('tcrun024', normal, compile_and_run, ['-O'])
 test('tcrun025', normal, multimod_compile_and_run, ['tcrun025',''])
@@ -36,5 +36,5 @@ test('tcrun027', normal, compile_and_run, [''])
 test('tcrun028', expect_fail_for(['extcore','optextcore']), compile_and_run, [''])
 test('tcrun029', normal, compile_and_run, [''])
 test('tcrun030', normal, compile_and_run, [''])
-test('tcrun031', normal, compile_and_run, [''])
+test('tcrun031', only_compiler_types(['ghc']), compile_and_run, [''])
 test('church', normal, compile_and_run, [''])