Add a test for #4255: can't use TH with a profiled compiler

testsuite/driver/testlib.py

@@ -298,6 +298,12 @@ def if_compiler_profiled( f ):
     else:
         return normal
 
+def unless_compiler_profiled( f ):
+    if config.compiler_profiled:
+        return normal
+    else:
+        return f
+
 def if_compiler_lt( compiler, version, f ):
     if config.compiler_type == compiler and \
        version_lt(config.compiler_version, version):

testsuite/tests/ghc-regress/th/T4255.hs

+
+{-# LANGUAGE TemplateHaskell #-}
+module T4255 where
+
+f x = $([| x |])

testsuite/tests/ghc-regress/th/T4255.stderr

+ghc: T4255.hs:2:14-28: You can't use Template Haskell with a profiled compiler
+Usage: For basic information, try the `--help' option.

testsuite/tests/ghc-regress/th/all.T

+
+# This test needs to come before the setTestOpts calls below, as we want
+# to run it !if_compiler_profiled
+test('T4255', unless_compiler_profiled(skip), compile_fail, ['-v0'])
+
 def f(opts):
   opts.extra_hc_opts = '-XTemplateHaskell -package template-haskell'
   if (ghc_with_interpreter == 0):