diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-12-05 10:52:37 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-12-05 10:52:37 +0100 |
| commit | 34cc01fd2d2e2110784873d436b7fb5664b69af8 (patch) | |
| tree | 3743e0933e4223552b0a06971bd1e5ad7a5c8467 /tests | |
| parent | ce59999b3d5e113ca4045fe9c86959beed4415ec (diff) | |
| download | stylish-haskell-34cc01fd2d2e2110784873d436b7fb5664b69af8.tar.gz | |
Deal with pragmas in groups0.5.5.0
Closes #26
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Language/Haskell/Stylish/Step/LanguagePragmas/Tests.hs | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/tests/Language/Haskell/Stylish/Step/LanguagePragmas/Tests.hs b/tests/Language/Haskell/Stylish/Step/LanguagePragmas/Tests.hs index 716d56a..d26c6a4 100644 --- a/tests/Language/Haskell/Stylish/Step/LanguagePragmas/Tests.hs +++ b/tests/Language/Haskell/Stylish/Step/LanguagePragmas/Tests.hs @@ -22,6 +22,7 @@ tests = testGroup "Language.Haskell.Stylish.Step.LanguagePragmas.Tests" , testCase "case 02" case02 , testCase "case 03" case03 , testCase "case 04" case04 + , testCase "case 05" case05 ] @@ -91,3 +92,24 @@ case04 = expected @=? testStep (step 80 Compact False) input "TemplateHaskell," , " TypeOperators, ViewPatterns #-}" ] + + +-------------------------------------------------------------------------------- +case05 :: Assertion +case05 = expected @=? testStep (step 80 Vertical False) input + where + input = unlines + [ "{-# LANGUAGE CPP #-}" + , "" + , "#if __GLASGOW_HASKELL__ >= 702" + , "{-# LANGUAGE Trustworthy #-}" + , "#endif" + ] + + expected = unlines + [ "{-# LANGUAGE CPP #-}" + , "" + , "#if __GLASGOW_HASKELL__ >= 702" + , "{-# LANGUAGE Trustworthy #-}" + , "#endif" + ] |