diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2020-10-07 12:55:32 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2020-10-07 12:55:32 +0200 |
| commit | 10ce71bb79cf9f6ab47ac9dfef503529c41bef00 (patch) | |
| tree | 1be19aae13c6a94313d56312db94229c0cde35ea /tests | |
| parent | 986cea995f0272f4db470b24bf390ffc8edaeb00 (diff) | |
| download | stylish-haskell-10ce71bb79cf9f6ab47ac9dfef503529c41bef00.tar.gz | |
ModuleHeader: Add separate_lists option
See #320
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Language/Haskell/Stylish/Step/ModuleHeader/Tests.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/Language/Haskell/Stylish/Step/ModuleHeader/Tests.hs b/tests/Language/Haskell/Stylish/Step/ModuleHeader/Tests.hs index b6d6b89..002be7c 100644 --- a/tests/Language/Haskell/Stylish/Step/ModuleHeader/Tests.hs +++ b/tests/Language/Haskell/Stylish/Step/ModuleHeader/Tests.hs @@ -34,6 +34,7 @@ tests = testGroup "Language.Haskell.Stylish.Printer.ModuleHeader" , testCase "Indents with 2 spaces" ex14 , testCase "Group doc with 2 spaces" ex15 , testCase "Does not sort" ex16 + , testCase "Repects separate_lists" ex17 ] -------------------------------------------------------------------------------- @@ -299,3 +300,14 @@ ex16 = assertSnippet (step defaultConfig {sort = False}) input input , " , no" , " ) where" ] + +ex17 :: Assertion +ex17 = assertSnippet (step defaultConfig {separateLists = False}) + [ "module Foo" + , " ( Bar (..)" + , " ) where" + ] + [ "module Foo" + , " ( Bar(..)" + , " ) where" + ] |