[commit: testsuite] master: Try to set flags for some tests involving TH right (4a8477b)

git at git.haskell.org git at git.haskell.org
Mon Dec 2 13:33:42 UTC 2013


Repository : ssh://git@git.haskell.org/testsuite

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/4a8477b5ebf7acb7933370e392bfff29453821d8/testsuite

>---------------------------------------------------------------

commit 4a8477b5ebf7acb7933370e392bfff29453821d8
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Mon Dec 2 13:31:22 2013 +0000

    Try to set flags for some tests involving TH right
    
    this tries to imporve upon 435c5955359d6e46a2fb905231678ac37ac0e71a.


>---------------------------------------------------------------

4a8477b5ebf7acb7933370e392bfff29453821d8
 tests/plugins/all.T        |    3 +--
 tests/quasiquotation/all.T |    2 +-
 tests/rts/all.T            |    2 +-
 3 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/tests/plugins/all.T b/tests/plugins/all.T
index 7e5f9b4..50406c3 100644
--- a/tests/plugins/all.T
+++ b/tests/plugins/all.T
@@ -34,7 +34,6 @@ test('plugins05',
 
 test('plugins06',
      [ extra_clean(['LinkerTicklingPlugin.hi', 'LinkerTicklingPlugin.o']),
-       unless(have_dynamic(),skip),
        only_ways([config.ghc_plugin_way]) ],
-     multimod_compile_and_run, ['plugins06', '-package ghc'])
+     multimod_compile_and_run, ['plugins06', '-package ghc ' + config.ghc_th_way_flags ])
 
diff --git a/tests/quasiquotation/all.T b/tests/quasiquotation/all.T
index 5ccfc21..2173da6 100644
--- a/tests/quasiquotation/all.T
+++ b/tests/quasiquotation/all.T
@@ -11,7 +11,7 @@ test('T7918',
       [req_interp,
        extra_run_opts('"' + config.libdir + '"'),
        only_compiler_types(['ghc']),
-       only_ways(['normal']),
+       only_ways(config.ghc_th_way),
        unless(have_dynamic(),skip),
        extra_clean(['T7918A.hi', 'T7918A.o', 'T7918A.dyn_hi', 'T7918A.dyn_o', 
                     'T7918B.hi', 'T7918B.o', 'T7918B.dyn_hi', 'T7918B.dyn_o'])],
diff --git a/tests/rts/all.T b/tests/rts/all.T
index d50798b..dfa0e89 100644
--- a/tests/rts/all.T
+++ b/tests/rts/all.T
@@ -185,7 +185,7 @@ test('ffishutdown', [ ignore_output, only_ways(['threaded1','threaded2']) ], com
 test('T7919', [extra_clean(['T7919A.o','T7919A.hi',
                             'T7919A.dyn_o','T7919A.dyn_hi']),
                when(fast(),skip) ],
-             compile_and_run, [''])
+             compile_and_run, [config.ghc_th_way_flags])
 
 test('T8035', normal, compile_and_run, [''])
 



More information about the ghc-commits mailing list