diff options
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 |