diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-08-08 14:50:21 +0900 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-08-08 14:50:21 +0900 |
| commit | f8c0ae3f0183415be467ae71efb5e8a9fbeceddf (patch) | |
| tree | 8a8eff19cd40e83e9ac2ab700e920b84a298bbac | |
| parent | dfb873f74831ff12a3aab8961d175e35214e15f1 (diff) | |
| download | stylish-haskell-f8c0ae3f0183415be467ae71efb5e8a9fbeceddf.tar.gz | |
Test case: missing space in: import Foo (Bar (..))
| -rw-r--r-- | .travis.yml | 2 | ||||
| -rw-r--r-- | tests/StylishHaskell/Step/Imports/Tests.hs | 8 |
2 files changed, 4 insertions, 6 deletions
diff --git a/.travis.yml b/.travis.yml index dc3a21d..999bd37 100644 --- a/.travis.yml +++ b/.travis.yml @@ -1,3 +1 @@ language: haskell -before_script: - - "cabal install HUnit test-framework test-framework-hunit" diff --git a/tests/StylishHaskell/Step/Imports/Tests.hs b/tests/StylishHaskell/Step/Imports/Tests.hs index 6b820f0..a9e48c7 100644 --- a/tests/StylishHaskell/Step/Imports/Tests.hs +++ b/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\"" ] |