diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-07-31 13:59:34 +0200 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-07-31 13:59:34 +0200 |
commit | ab55912b659291e6f50b844e879d0809a6c14811 (patch) | |
tree | d45c8d2a2f926da2fba74c7fcc32d94a10dc6e23 /tests | |
parent | 1099738c00ca4505389aa0c86b34ba7ee57ae15f (diff) | |
download | stylish-haskell-ab55912b659291e6f50b844e879d0809a6c14811.tar.gz |
Add a setting for the number of columns
Diffstat (limited to 'tests')
-rw-r--r-- | tests/StylishHaskell/Step/Imports/Tests.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/StylishHaskell/Step/Imports/Tests.hs b/tests/StylishHaskell/Step/Imports/Tests.hs index c6c0553..6da0af3 100644 --- a/tests/StylishHaskell/Step/Imports/Tests.hs +++ b/tests/StylishHaskell/Step/Imports/Tests.hs @@ -43,7 +43,7 @@ input = unlines -------------------------------------------------------------------------------- case01 :: Assertion -case01 = expected @=? testStep (step Global) input +case01 = expected @=? testStep (step 80 Global) input where expected = unlines [ "module Herp where" @@ -61,7 +61,7 @@ case01 = expected @=? testStep (step Global) input -------------------------------------------------------------------------------- case02 :: Assertion -case02 = expected @=? testStep (step Group) input +case02 = expected @=? testStep (step 80 Group) input where expected = unlines [ "module Herp where" @@ -79,7 +79,7 @@ case02 = expected @=? testStep (step Group) input -------------------------------------------------------------------------------- case03 :: Assertion -case03 = expected @=? testStep (step None) input +case03 = expected @=? testStep (step 80 None) input where expected = unlines [ "module Herp where" @@ -97,7 +97,7 @@ case03 = expected @=? testStep (step None) input -------------------------------------------------------------------------------- case04 :: Assertion -case04 = expected @=? testStep (step Global) input' +case04 = expected @=? testStep (step 80 Global) input' where input' = "import Data.Aeson.Types (object, typeMismatch, FromJSON(..)," ++ |