diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2016-08-28 23:18:26 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2016-08-28 23:18:26 +0200 |
| commit | 59a2b0669c278de6947d39b1922797edca948684 (patch) | |
| tree | 1d51ba29ceacc024f5392bc9acaf749f7cd27e1c /tests | |
| parent | 2c96bb19a8deabd566dcc6d29bf83b30950af94b (diff) | |
| download | stylish-haskell-59a2b0669c278de6947d39b1922797edca948684.tar.gz | |
Remove XmlSyntax from whitelisted extensions
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 4d3400c..3f2d4a7 100644 --- a/tests/Language/Haskell/Stylish/Parse/Tests.hs +++ b/tests/Language/Haskell/Stylish/Parse/Tests.hs @@ -26,6 +26,7 @@ tests = testGroup "Language.Haskell.Stylish.Parse" , testCase "KindSignatures extension" testKindSignatures , testCase "StandalonDeriving extension" testStandaloneDeriving , testCase "UnicodeSyntax extension" testUnicodeSyntax + , testCase "XmlSyntax regression" testXmlSyntaxRegression ] -------------------------------------------------------------------------------- @@ -114,6 +115,11 @@ testUnicodeSyntax = assert $ isRight $ parseModule [] Nothing $ unlines , "monadic = id" ] +testXmlSyntaxRegression :: Assertion +testXmlSyntaxRegression = assert $ isRight $ parseModule [] Nothing $ unlines + [ "smaller a b = a <b" + ] + -------------------------------------------------------------------------------- isRight :: Either a b -> Bool isRight (Right _) = True |