Skip to content
Browse files

Test case: missing space in: import Foo (Bar (..))

  • Loading branch information...
1 parent dfb873f commit f8c0ae3f0183415be467ae71efb5e8a9fbeceddf @jaspervdj committed Aug 8, 2012
Showing with 4 additions and 6 deletions.
  1. +0 −2 .travis.yml
  2. +4 −4 tests/StylishHaskell/Step/Imports/Tests.hs
View
2 .travis.yml
@@ -1,3 +1 @@
language: haskell
-before_script:
- - "cabal install HUnit test-framework test-framework-hunit"
View
8 tests/StylishHaskell/Step/Imports/Tests.hs
@@ -35,7 +35,7 @@ input = unlines
, "import Data.Map (lookup, (!), insert, Map)"
, ""
, "import Herp.Derp.Internals hiding (foo)"
- , "import HURR"
+ , "import Foo (Bar (..))"
, ""
, "herp = putStrLn \"import Hello world\""
]
@@ -52,8 +52,8 @@ case01 = expected @=? testStep (step 80 Global) input
, "import Data.Map (Map, insert, lookup, (!))"
, "import qualified Data.Map as M"
, ""
+ , "import Foo (Bar (..))"
, "import Herp.Derp.Internals hiding (foo)"
- , "import HURR"
, ""
, "herp = putStrLn \"import Hello world\""
]
@@ -70,8 +70,8 @@ case02 = expected @=? testStep (step 80 Group) input
, "import Data.Map (Map, insert, lookup, (!))"
, "import qualified Data.Map as M"
, ""
+ , "import Foo (Bar (..))"
, "import Herp.Derp.Internals hiding (foo)"
- , "import HURR"
, ""
, "herp = putStrLn \"import Hello world\""
]
@@ -88,8 +88,8 @@ case03 = expected @=? testStep (step 80 None) input
, "import Data.Map (Map, insert, lookup, (!))"
, "import qualified Data.Map as M"
, ""
+ , "import Foo (Bar (..))"
, "import Herp.Derp.Internals hiding (foo)"
- , "import HURR"
, ""
, "herp = putStrLn \"import Hello world\""
]

0 comments on commit f8c0ae3

Please sign in to comment.
Something went wrong with that request. Please try again.