diff options
Diffstat (limited to 'tests/Language/Haskell/Stylish/Step/LanguagePragmas/Tests.hs')
| -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" + ] |