diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-06-06 09:54:10 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-06-06 09:54:10 +0200 |
| commit | 6d815f4b4d3aeec8ad5b352eb9a29c124a47846c (patch) | |
| tree | 5030b18a3129cd48ec2d35634b562a9ab4b568b3 /tests | |
| parent | 306b889e7e4bf808e7f2c8acd77ff35951344fed (diff) | |
| download | stylish-haskell-6d815f4b4d3aeec8ad5b352eb9a29c124a47846c.tar.gz | |
Different import alignment styles
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/StylishHaskell/Step/Imports/Tests.hs | 28 |
1 files changed, 23 insertions, 5 deletions
diff --git a/tests/StylishHaskell/Step/Imports/Tests.hs b/tests/StylishHaskell/Step/Imports/Tests.hs index e86282f..45a821d 100644 --- a/tests/StylishHaskell/Step/Imports/Tests.hs +++ b/tests/StylishHaskell/Step/Imports/Tests.hs @@ -20,6 +20,7 @@ tests :: Test tests = testGroup "StylishHaskell.Step.Imports.Tests" [ case01 , case02 + , case03 ] @@ -32,7 +33,7 @@ input = unlines , "import Control.Monad" , "import Data.Map (lookup, (!), insert, Map)" , "" - , "import Herp.Derp.Internals" + , "import Herp.Derp.Internals hiding (foo)" , "" , "herp = putStrLn \"import Hello world\"" ] @@ -40,7 +41,7 @@ input = unlines -------------------------------------------------------------------------------- case01 :: Test -case01 = testCase "case 01" $ expected @=? testStep (step True) input +case01 = testCase "case 01" $ expected @=? testStep (step Global) input where expected = unlines [ "module Herp where" @@ -49,7 +50,7 @@ case01 = testCase "case 01" $ expected @=? testStep (step True) input , "import Data.Map (Map, insert, lookup, (!))" , "import qualified Data.Map as M" , "" - , "import Herp.Derp.Internals" + , "import Herp.Derp.Internals hiding (foo)" , "" , "herp = putStrLn \"import Hello world\"" ] @@ -57,7 +58,24 @@ case01 = testCase "case 01" $ expected @=? testStep (step True) input -------------------------------------------------------------------------------- case02 :: Test -case02 = testCase "case 02" $ expected @=? testStep (step False) input +case02 = testCase "case 02" $ expected @=? testStep (step Groups) input + where + expected = unlines + [ "module Herp where" + , "" + , "import Control.Monad" + , "import Data.Map (Map, insert, lookup, (!))" + , "import qualified Data.Map as M" + , "" + , "import Herp.Derp.Internals hiding (foo)" + , "" + , "herp = putStrLn \"import Hello world\"" + ] + + +-------------------------------------------------------------------------------- +case03 :: Test +case03 = testCase "case 03" $ expected @=? testStep (step None) input where expected = unlines [ "module Herp where" @@ -66,7 +84,7 @@ case02 = testCase "case 02" $ expected @=? testStep (step False) input , "import Data.Map (Map, insert, lookup, (!))" , "import qualified Data.Map as M" , "" - , "import Herp.Derp.Internals" + , "import Herp.Derp.Internals hiding (foo)" , "" , "herp = putStrLn \"import Hello world\"" ] |