{-# LANGUAGE OverloadedLists #-} {-# LANGUAGE OverloadedStrings #-} module Language.Haskell.Stylish.Regressions ( tests ) where import Language.Haskell.Stylish.Step.Imports import Language.Haskell.Stylish.Tests.Util (testStep) import Test.Framework (Test, testGroup) import Test.Framework.Providers.HUnit (testCase) import Test.HUnit (Assertion, (@=?)) tests :: Test tests = testGroup "Language.Haskell.Stylish.Regressions" [ testCase "case 00 (#198)" case00 ] -- | Error parsing '(,) #198 -- -- See https://github.com/haskell/stylish-haskell/issues/198 case00 :: Assertion case00 = expected @=? testStep (step (Just 80) $ importStepConfig Global) input where input = unlines [ "{-# LANGUAGE TemplateHaskell #-}" , "" , "import Language.Haskell.TH.Syntax" , "" , "main = print $ showName '(,)" ] expected = input importStepConfig :: ImportAlign -> Options importStepConfig align = defaultOptions { importAlign = align }