diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-06-08 17:09:24 +0200 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-06-08 17:09:24 +0200 |
commit | 013695a0c1f71a5e86d71289130fecbed6d42dac (patch) | |
tree | 8a592da48f369186825c3c7b5d4e0e1fc394268f | |
parent | db6a7df4b844d4c5150995f388190a6b753bf8e2 (diff) | |
download | stylish-haskell-013695a0c1f71a5e86d71289130fecbed6d42dac.tar.gz |
Add failing test case for #6
-rw-r--r-- | tests/StylishHaskell/Step/Imports/Tests.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/StylishHaskell/Step/Imports/Tests.hs b/tests/StylishHaskell/Step/Imports/Tests.hs index eca51b3..ee55326 100644 --- a/tests/StylishHaskell/Step/Imports/Tests.hs +++ b/tests/StylishHaskell/Step/Imports/Tests.hs @@ -34,6 +34,7 @@ input = unlines , "import Data.Map (lookup, (!), insert, Map)" , "" , "import Herp.Derp.Internals hiding (foo)" + , "import HURR" , "" , "herp = putStrLn \"import Hello world\"" ] @@ -51,6 +52,7 @@ case01 = testCase "case 01" $ expected @=? testStep (step Global) input , "import qualified Data.Map as M" , "" , "import Herp.Derp.Internals hiding (foo)" + , "import HURR" , "" , "herp = putStrLn \"import Hello world\"" ] @@ -68,6 +70,7 @@ case02 = testCase "case 02" $ expected @=? testStep (step Group) input , "import qualified Data.Map as M" , "" , "import Herp.Derp.Internals hiding (foo)" + , "import HURR" , "" , "herp = putStrLn \"import Hello world\"" ] @@ -85,6 +88,7 @@ case03 = testCase "case 03" $ expected @=? testStep (step None) input , "import qualified Data.Map as M" , "" , "import Herp.Derp.Internals hiding (foo)" + , "import HURR" , "" , "herp = putStrLn \"import Hello world\"" ] |