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 cd026fd..718c7f6 100644 --- a/tests/Language/Haskell/Stylish/Parse/Tests.hs +++ b/tests/Language/Haskell/Stylish/Parse/Tests.hs @@ -20,6 +20,7 @@ tests = testGroup "Language.Haskell.Stylish.Parse" [ testCase "UTF-8 Byte Order Mark" testBom , testCase "Extra extensions" testExtraExtensions , testCase "Multiline CPP" testMultilineCpp + , testCase "Haskell2010 extension" testHaskell2010 ] @@ -49,6 +50,15 @@ testMultilineCpp = assert $ isRight $ parseModule [] Nothing $ unlines -------------------------------------------------------------------------------- +testHaskell2010 :: Assertion +testHaskell2010 = assert $ isRight $ parseModule [] Nothing $ unlines + [ "{-# LANGUAGE Haskell2010 #-}" + , "module X where" + , "foo x | Just y <- x = y" + ] + + +-------------------------------------------------------------------------------- isRight :: Either a b -> Bool isRight (Right _) = True isRight _ = False |