diff options
author | Artyom Kazak <yom@artyom.me> | 2017-04-15 21:01:50 +0300 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2017-04-15 20:01:50 +0200 |
commit | 1e49bebca63bb5237146bfbb6bfee7850dab0240 (patch) | |
tree | 7d3f88a148c13e5fa225c4b448615243637d557f /tests | |
parent | 267cb3c727e3c7f565160dfe084aae12dddacc5a (diff) | |
download | stylish-haskell-1e49bebca63bb5237146bfbb6bfee7850dab0240.tar.gz |
Remove MagicHash from whitelisted extensions (#160)
Fixes #159.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/Language/Haskell/Stylish/Parse/Tests.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/Language/Haskell/Stylish/Parse/Tests.hs b/tests/Language/Haskell/Stylish/Parse/Tests.hs index 3f2d4a7..9806be2 100644 --- a/tests/Language/Haskell/Stylish/Parse/Tests.hs +++ b/tests/Language/Haskell/Stylish/Parse/Tests.hs @@ -27,6 +27,7 @@ tests = testGroup "Language.Haskell.Stylish.Parse" , testCase "StandalonDeriving extension" testStandaloneDeriving , testCase "UnicodeSyntax extension" testUnicodeSyntax , testCase "XmlSyntax regression" testXmlSyntaxRegression + , testCase "MagicHash regression" testMagicHashRegression ] -------------------------------------------------------------------------------- @@ -120,6 +121,11 @@ testXmlSyntaxRegression = assert $ isRight $ parseModule [] Nothing $ unlines [ "smaller a b = a <b" ] +testMagicHashRegression :: Assertion +testMagicHashRegression = assert $ isRight $ parseModule [] Nothing $ unlines + [ "xs = \"foo\"#|1#|'a'#|bar#|Nil" + ] + -------------------------------------------------------------------------------- isRight :: Either a b -> Bool isRight (Right _) = True |