diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2015-04-19 14:19:11 +0200 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2015-04-19 14:19:11 +0200 |
commit | cc5cd310efd5fdc9921b3cfb347fe09d730f426e (patch) | |
tree | 63bb0777749a4cedec7b274562d7f9e217ea203f /tests | |
parent | e133e7b374f5f443d93e9f33aac23520249e0cde (diff) | |
download | stylish-haskell-cc5cd310efd5fdc9921b3cfb347fe09d730f426e.tar.gz |
Slightly refactor record alignment
Diffstat (limited to 'tests')
-rw-r--r-- | tests/Language/Haskell/Stylish/Step/Records/Tests.hs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/Language/Haskell/Stylish/Step/Records/Tests.hs b/tests/Language/Haskell/Stylish/Step/Records/Tests.hs index 2001300..312c6fa 100644 --- a/tests/Language/Haskell/Stylish/Step/Records/Tests.hs +++ b/tests/Language/Haskell/Stylish/Step/Records/Tests.hs @@ -19,6 +19,7 @@ import Language.Haskell.Stylish.Tests.Util tests :: Test tests = testGroup "Language.Haskell.Stylish.Step.Records.Tests" [ testCase "case 01" case01 + , testCase "case 02" case02 ] @@ -39,3 +40,17 @@ case01 = expected @=? testStep step input , " , barqux :: String" , " } deriving (Show)" ] + + +-------------------------------------------------------------------------------- +case02 :: Assertion +case02 = input @=? testStep step input + where + -- Don't attempt to align this since a field spans multiple lines + input = unlines + [ "data Foo = Foo" + , " { foo :: Int" + , " , barqux" + , " :: String" + , " } deriving (Show)" + ] |