diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-02-06 22:59:24 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2013-02-06 22:59:24 +0100 |
commit | 00328cbf36029949832e2e39fe65f247b42c579e (patch) | |
tree | b6ee341a8f395bf2048385683f522f099558f2b8 /tests | |
parent | 79415286b04f95fc0ba035fd2f28715b9427cfbf (diff) | |
download | stylish-haskell-00328cbf36029949832e2e39fe65f247b42c579e.tar.gz |
Add failing test to confirm #31
Diffstat (limited to 'tests')
-rw-r--r-- | tests/Language/Haskell/Stylish/Parse/Tests.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/Language/Haskell/Stylish/Parse/Tests.hs b/tests/Language/Haskell/Stylish/Parse/Tests.hs index 19f4fe1..cd026fd 100644 --- a/tests/Language/Haskell/Stylish/Parse/Tests.hs +++ b/tests/Language/Haskell/Stylish/Parse/Tests.hs @@ -19,6 +19,7 @@ tests :: Test tests = testGroup "Language.Haskell.Stylish.Parse" [ testCase "UTF-8 Byte Order Mark" testBom , testCase "Extra extensions" testExtraExtensions + , testCase "Multiline CPP" testMultilineCpp ] @@ -39,6 +40,15 @@ testExtraExtensions = assert $ isRight $ -------------------------------------------------------------------------------- +testMultilineCpp :: Assertion +testMultilineCpp = assert $ isRight $ parseModule [] Nothing $ unlines + [ "{-# LANGUAGE CPP #-}" + , "#define foo bar \\" + , " qux" + ] + + +-------------------------------------------------------------------------------- isRight :: Either a b -> Bool isRight (Right _) = True isRight _ = False |