diff options
| author | Paolo Capriotti <p.capriotti@gmail.com> | 2012-04-02 13:05:08 +0100 |
|---|---|---|
| committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-04-02 16:13:57 +0100 |
| commit | 9615ede4d51a2f30e6741b9370effc7ddca7d5a3 (patch) | |
| tree | 7a88debeeae8b10912101396e981fc82ebbb4dc1 | |
| parent | b9cc10584fc9f7806ea05f96d1dd1deb188c524a (diff) | |
| download | haskell-9615ede4d51a2f30e6741b9370effc7ddca7d5a3.tar.gz | |
Add testcase for #5555.
| -rw-r--r-- | testsuite/tests/th/T5555.hs | 8 | ||||
| -rw-r--r-- | testsuite/tests/th/T5555.stdout | 1 | ||||
| -rw-r--r-- | testsuite/tests/th/T5555_Lib.hs | 10 | ||||
| -rw-r--r-- | testsuite/tests/th/all.T | 2 |
4 files changed, 21 insertions, 0 deletions
diff --git a/testsuite/tests/th/T5555.hs b/testsuite/tests/th/T5555.hs new file mode 100644 index 0000000000..a874a7349c --- /dev/null +++ b/testsuite/tests/th/T5555.hs @@ -0,0 +1,8 @@ +{-# LANGUAGE TemplateHaskell, QuasiQuotes #-} +import qualified T5555_Lib as L + +test :: String +test = [L.s|hello world|] + +main :: IO () +main = putStrLn test diff --git a/testsuite/tests/th/T5555.stdout b/testsuite/tests/th/T5555.stdout new file mode 100644 index 0000000000..3b18e512db --- /dev/null +++ b/testsuite/tests/th/T5555.stdout @@ -0,0 +1 @@ +hello world diff --git a/testsuite/tests/th/T5555_Lib.hs b/testsuite/tests/th/T5555_Lib.hs new file mode 100644 index 0000000000..66c18d228b --- /dev/null +++ b/testsuite/tests/th/T5555_Lib.hs @@ -0,0 +1,10 @@ +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 diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T index 89b599b278..b428fcac6d 100644 --- a/testsuite/tests/th/all.T +++ b/testsuite/tests/th/all.T @@ -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']) |