From cc7047945efc69d54e27efc2f53f2378e36da098 Mon Sep 17 00:00:00 2001 From: ross Date: Tue, 9 Nov 2004 17:57:37 +0000 Subject: [PATCH] [project @ 2004-11-09 17:57:33 by ross] mark GHC-specific tests --- .../tests/ghc-regress/ccall/should_fail/all.T | 2 +- .../ghc-regress/codeGen/should_compile/all.T | 2 +- .../ghc-regress/codeGen/should_run/all.T | 14 +++--- .../ghc-regress/concurrent/should_run/all.T | 50 +++++++++++-------- .../ghc-regress/deSugar/should_compile/all.T | 2 +- .../ghc-regress/deriving/should_run/all.T | 2 +- testsuite/tests/ghc-regress/lib/net/all.T | 2 +- .../ghc-regress/mdo/should_compile/all.T | 2 +- .../ghc-regress/numeric/should_run/all.T | 4 +- .../tests/ghc-regress/rename/prog005/test.T | 2 +- .../ghc-regress/rename/should_compile/all.T | 10 ++-- .../simplCore/should_compile/all.T | 4 +- .../typecheck/should_compile/all.T | 28 +++++------ .../ghc-regress/typecheck/should_fail/all.T | 26 +++++----- .../ghc-regress/typecheck/should_run/all.T | 8 +-- 15 files changed, 83 insertions(+), 75 deletions(-) diff --git a/testsuite/tests/ghc-regress/ccall/should_fail/all.T b/testsuite/tests/ghc-regress/ccall/should_fail/all.T index 8139210aae..5e0a011fbe 100644 --- a/testsuite/tests/ghc-regress/ccall/should_fail/all.T +++ b/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, ['']) diff --git a/testsuite/tests/ghc-regress/codeGen/should_compile/all.T b/testsuite/tests/ghc-regress/codeGen/should_compile/all.T index cd44e51479..2864a7d0b7 100644 --- a/testsuite/tests/ghc-regress/codeGen/should_compile/all.T +++ b/testsuite/tests/ghc-regress/codeGen/should_compile/all.T @@ -1,4 +1,4 @@ -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, ['']) diff --git a/testsuite/tests/ghc-regress/codeGen/should_run/all.T b/testsuite/tests/ghc-regress/codeGen/should_run/all.T index f05fc50ebd..a5fdf730c6 100644 --- a/testsuite/tests/ghc-regress/codeGen/should_run/all.T +++ b/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, ['']) diff --git a/testsuite/tests/ghc-regress/concurrent/should_run/all.T b/testsuite/tests/ghc-regress/concurrent/should_run/all.T index 3943fe354f..162e07a5b9 100644 --- a/testsuite/tests/ghc-regress/concurrent/should_run/all.T +++ b/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, ['']) diff --git a/testsuite/tests/ghc-regress/deSugar/should_compile/all.T b/testsuite/tests/ghc-regress/deSugar/should_compile/all.T index 1ec81230f4..10c6767bcc 100644 --- a/testsuite/tests/ghc-regress/deSugar/should_compile/all.T +++ b/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, ['']) diff --git a/testsuite/tests/ghc-regress/deriving/should_run/all.T b/testsuite/tests/ghc-regress/deriving/should_run/all.T index 48e1688e6f..911d09d908 100644 --- a/testsuite/tests/ghc-regress/deriving/should_run/all.T +++ b/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, ['']) diff --git a/testsuite/tests/ghc-regress/lib/net/all.T b/testsuite/tests/ghc-regress/lib/net/all.T index e1bdec84e7..c9491c62bf 100644 --- a/testsuite/tests/ghc-regress/lib/net/all.T +++ b/testsuite/tests/ghc-regress/lib/net/all.T @@ -1,5 +1,5 @@ -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']) diff --git a/testsuite/tests/ghc-regress/mdo/should_compile/all.T b/testsuite/tests/ghc-regress/mdo/should_compile/all.T index 6ad293a1b9..1bcab03dd3 100644 --- a/testsuite/tests/ghc-regress/mdo/should_compile/all.T +++ b/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, ['']) diff --git a/testsuite/tests/ghc-regress/numeric/should_run/all.T b/testsuite/tests/ghc-regress/numeric/should_run/all.T index 2df59c93b3..b1783700af 100644 --- a/testsuite/tests/ghc-regress/numeric/should_run/all.T +++ b/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, ['']) diff --git a/testsuite/tests/ghc-regress/rename/prog005/test.T b/testsuite/tests/ghc-regress/rename/prog005/test.T index c8235e19fe..0d1e893838 100644 --- a/testsuite/tests/ghc-regress/rename/prog005/test.T +++ b/testsuite/tests/ghc-regress/rename/prog005/test.T @@ -1,3 +1,3 @@ -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']) diff --git a/testsuite/tests/ghc-regress/rename/should_compile/all.T b/testsuite/tests/ghc-regress/rename/should_compile/all.T index 1fc506b8b8..034bfd417b 100644 --- a/testsuite/tests/ghc-regress/rename/should_compile/all.T +++ b/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, ['']) diff --git a/testsuite/tests/ghc-regress/simplCore/should_compile/all.T b/testsuite/tests/ghc-regress/simplCore/should_compile/all.T index 6ad3d6a543..0fb67f0214 100644 --- a/testsuite/tests/ghc-regress/simplCore/should_compile/all.T +++ b/testsuite/tests/ghc-regress/simplCore/should_compile/all.T @@ -1,13 +1,13 @@ 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, ['']) diff --git a/testsuite/tests/ghc-regress/typecheck/should_compile/all.T b/testsuite/tests/ghc-regress/typecheck/should_compile/all.T index 52abbad0a4..65a4620b6b 100644 --- a/testsuite/tests/ghc-regress/typecheck/should_compile/all.T +++ b/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, ['']) diff --git a/testsuite/tests/ghc-regress/typecheck/should_fail/all.T b/testsuite/tests/ghc-regress/typecheck/should_fail/all.T index c352228280..071beb8088 100644 --- a/testsuite/tests/ghc-regress/typecheck/should_fail/all.T +++ b/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, ['']) diff --git a/testsuite/tests/ghc-regress/typecheck/should_run/all.T b/testsuite/tests/ghc-regress/typecheck/should_run/all.T index 3381e3ade9..9004f8e028 100644 --- a/testsuite/tests/ghc-regress/typecheck/should_run/all.T +++ b/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, ['']) -- GitLab