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/Language | |
parent | d56edbd043ac3d6f67d9f8cdf54b2c826f6da2e2 (diff) | |
download | stylish-haskell-f2f6c3e9636e7a03d2b5f81b9afa1453e8a0976e.tar.gz |
Add alignment for some case expressions
Diffstat (limited to 'tests/Language')
-rw-r--r-- | tests/Language/Haskell/Stylish/Step/Cases/Tests.hs | 39 |
1 files changed, 39 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" + ] |