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