diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2016-07-03 14:51:41 +0200 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2016-07-03 18:15:57 +0200 |
| commit | f2f6c3e9636e7a03d2b5f81b9afa1453e8a0976e (patch) | |
| tree | 04e28c3badcf5188e1de81b8168207e9b7c9b1b2 /tests | |
| parent | d56edbd043ac3d6f67d9f8cdf54b2c826f6da2e2 (diff) | |
| download | stylish-haskell-f2f6c3e9636e7a03d2b5f81b9afa1453e8a0976e.tar.gz | |
Add alignment for some case expressions
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Language/Haskell/Stylish/Step/Cases/Tests.hs | 39 | ||||
| -rw-r--r-- | tests/TestSuite.hs | 2 |
2 files changed, 41 insertions, 0 deletions
diff --git a/tests/Language/Haskell/Stylish/Step/Cases/Tests.hs b/tests/Language/Haskell/Stylish/Step/Cases/Tests.hs new file mode 100644 index 0000000..cab671e --- /dev/null +++ b/tests/Language/Haskell/Stylish/Step/Cases/Tests.hs @@ -0,0 +1,39 @@ +-------------------------------------------------------------------------------- +module Language.Haskell.Stylish.Step.Cases.Tests + ( tests + ) where + + +-------------------------------------------------------------------------------- +import Test.Framework (Test, testGroup) +import Test.Framework.Providers.HUnit (testCase) +import Test.HUnit (Assertion, (@=?)) + + +-------------------------------------------------------------------------------- +import Language.Haskell.Stylish.Step.Cases +import Language.Haskell.Stylish.Tests.Util + + +-------------------------------------------------------------------------------- +tests :: Test +tests = testGroup "Language.Haskell.Stylish.Step.Records.Tests" + [ testCase "case 01" case01 + ] + + +-------------------------------------------------------------------------------- +case01 :: Assertion +case01 = expected @=? testStep (step 80) input + where + input = unlines + [ "eitherToMaybe e = case e of" + , " Left _ -> Nothing" + , " Right x -> Just x" + ] + + expected = unlines + [ "eitherToMaybe e = case e of" + , " Left _ -> Nothing" + , " Right x -> Just x" + ] diff --git a/tests/TestSuite.hs b/tests/TestSuite.hs index 28c0603..27f9851 100644 --- a/tests/TestSuite.hs +++ b/tests/TestSuite.hs @@ -10,6 +10,7 @@ import Test.Framework (defaultMain) -------------------------------------------------------------------------------- import qualified Language.Haskell.Stylish.Parse.Tests +import qualified Language.Haskell.Stylish.Step.Cases.Tests import qualified Language.Haskell.Stylish.Step.Imports.Tests import qualified Language.Haskell.Stylish.Step.LanguagePragmas.Tests import qualified Language.Haskell.Stylish.Step.Records.Tests @@ -22,6 +23,7 @@ import qualified Language.Haskell.Stylish.Step.UnicodeSyntax.Tests main :: IO () main = defaultMain [ Language.Haskell.Stylish.Parse.Tests.tests + , Language.Haskell.Stylish.Step.Cases.Tests.tests , Language.Haskell.Stylish.Step.Imports.Tests.tests , Language.Haskell.Stylish.Step.LanguagePragmas.Tests.tests , Language.Haskell.Stylish.Step.Records.Tests.tests |