Commit 9615ede4 authored by pcapriotti's avatar pcapriotti

Add testcase for #5555.

parent b9cc1058
{-# LANGUAGE TemplateHaskell, QuasiQuotes #-}
import qualified T5555_Lib as L
test :: String
test = [L.s|hello world|]
main :: IO ()
main = putStrLn test
module T5555_Lib(s) where
import Language.Haskell.TH
import Language.Haskell.TH.Quote
s :: QuasiQuoter
s = QuasiQuoter expr undefined undefined undefined
expr :: String -> Q Exp
expr = stringE
......@@ -230,3 +230,5 @@ test('T5971', normal, compile_fail, ['-v0 -dsuppress-uniques'])
test('T5968', normal, compile, ['-v0'])
test('T5984', extra_clean(['T5984_Lib.hi', 'T5984_Lib.o']),
multimod_compile, ['T5984', '-v0 -ddump-splices'])
test('T5555', extra_clean(['T5555_Lib.hi', 'T5555_Lib.o']),
multimod_compile, ['T5555', '-v0'])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment