diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2013-12-18 01:54:56 -0800 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2013-12-18 01:54:56 -0800 |
| commit | 062d78eaf4ad1bc78ff03fc5d6831df26b558691 (patch) | |
| tree | 5186e125bf61cf981872a7c45e1a8bb90c8f4fee /tests | |
| parent | 2188b248a37157ba1f5c35a8674890ed80d0a3ef (diff) | |
| parent | d2773448c20fef4439080f61c5262588be3992cb (diff) | |
| download | stylish-haskell-062d78eaf4ad1bc78ff03fc5d6831df26b558691.tar.gz | |
Merge pull request #34 from konn/master
Added new pragma style `line'
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Language/Haskell/Stylish/Step/LanguagePragmas/Tests.hs | 24 |
1 files changed, 19 insertions, 5 deletions
diff --git a/tests/Language/Haskell/Stylish/Step/LanguagePragmas/Tests.hs b/tests/Language/Haskell/Stylish/Step/LanguagePragmas/Tests.hs index d26c6a4..b4f06b6 100644 --- a/tests/Language/Haskell/Stylish/Step/LanguagePragmas/Tests.hs +++ b/tests/Language/Haskell/Stylish/Step/LanguagePragmas/Tests.hs @@ -5,14 +5,14 @@ module Language.Haskell.Stylish.Step.LanguagePragmas.Tests -------------------------------------------------------------------------------- -import Test.Framework (Test, testGroup) -import Test.Framework.Providers.HUnit (testCase) -import Test.HUnit (Assertion, (@=?)) +import Test.Framework (Test, testGroup) +import Test.Framework.Providers.HUnit (testCase) +import Test.HUnit (Assertion, (@=?)) -------------------------------------------------------------------------------- -import Language.Haskell.Stylish.Step.LanguagePragmas -import Language.Haskell.Stylish.Tests.Util +import Language.Haskell.Stylish.Step.LanguagePragmas +import Language.Haskell.Stylish.Tests.Util -------------------------------------------------------------------------------- @@ -113,3 +113,17 @@ case05 = expected @=? testStep (step 80 Vertical False) input , "{-# LANGUAGE Trustworthy #-}" , "#endif" ] + +case06 :: Assertion +case06 = expected @=? testStep (step 80 CompactLine True) input + where + input = unlines + [ "{-# LANGUAGE TypeOperators, StandaloneDeriving, DeriveDataTypeable," + , " TemplateHaskell #-}" + , "{-# LANGUAGE TemplateHaskell, ViewPatterns #-}" + ] + expected = unlines + [ "{-# LANGUAGE DeriveDataTypeable, StandaloneDeriving, " ++ + "TemplateHaskell #-}" + , "{-# LANGUAGE TypeOperators, ViewPatterns #-}" + ] |