Add failing test case for #6

haskell · Jun 8, 2012 · 013695a · 013695a
1 parent db6a7df
commit 013695a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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\""
         ]