diff options
Diffstat (limited to 'testsuite/driver/testlib.py')
| -rw-r--r-- | testsuite/driver/testlib.py | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/testsuite/driver/testlib.py b/testsuite/driver/testlib.py index 2e87925fda..d220110a6b 100644 --- a/testsuite/driver/testlib.py +++ b/testsuite/driver/testlib.py @@ -184,6 +184,16 @@ def req_interp( name, opts ): if not config.have_interp: opts.expect = 'fail' +def req_th( name, opts ): + """ + Mark a test as requiring TemplateHaskell. In addition to having interpreter + support, currently this means that we don't run the test in the profasm when + when GHC is dynamically-linked since we can't load profiled objects in this + case. + """ + req_interp(name, opts) + return when(ghc_dynamic(), omit_ways(['profasm'])) + def req_smp( name, opts ): if not config.have_smp: opts.expect = 'fail' @@ -453,14 +463,6 @@ def unless(b: bool, f): def doing_ghci() -> bool: return 'ghci' in config.run_ways -def requires_th(name, opts): - """ - Mark a test as requiring TemplateHaskell. Currently this means - that we don't run the test in the profasm when when GHC is - dynamically-linked since we can't load profiled objects in this case. - """ - return when(ghc_dynamic(), omit_ways(['profasm'])) - def ghc_dynamic() -> bool: return config.ghc_dynamic |