diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-08-12 11:58:01 +0200 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-08-12 11:58:01 +0200 |
commit | 75917c9b078f74ed253f8ac2f3a9d263353508c7 (patch) | |
tree | 9e46da80fff0580841e475da1ca6f788483badb9 /tests | |
parent | 1c0ad54f6ff6bae7c9ec3211911b329006dc8ea3 (diff) | |
download | stylish-haskell-75917c9b078f74ed253f8ac2f3a9d263353508c7.tar.gz |
Align record data declarations
Diffstat (limited to 'tests')
-rw-r--r-- | tests/StylishHaskell/Step/Records/Tests.hs | 41 | ||||
-rw-r--r-- | tests/TestSuite.hs | 2 |
2 files changed, 43 insertions, 0 deletions
diff --git a/tests/StylishHaskell/Step/Records/Tests.hs b/tests/StylishHaskell/Step/Records/Tests.hs new file mode 100644 index 0000000..4a1f92d --- /dev/null +++ b/tests/StylishHaskell/Step/Records/Tests.hs @@ -0,0 +1,41 @@ +-------------------------------------------------------------------------------- +module StylishHaskell.Step.Records.Tests + ( tests + ) where + + +-------------------------------------------------------------------------------- +import Test.Framework (Test, testGroup) +import Test.Framework.Providers.HUnit (testCase) +import Test.HUnit (Assertion, (@=?)) + + +-------------------------------------------------------------------------------- +import StylishHaskell.Step.Records +import StylishHaskell.Tests.Util + + +-------------------------------------------------------------------------------- +tests :: Test +tests = testGroup "StylishHaskell.Step.Records.Tests" + [ testCase "case 01" case01 + ] + + +-------------------------------------------------------------------------------- +case01 :: Assertion +case01 = expected @=? testStep step input + where + input = unlines + [ "data Foo = Foo" + , " { foo :: Int" + , " , barqux :: String" + , " } deriving (Show)" + ] + + expected = unlines + [ "data Foo = Foo" + , " { foo :: Int" + , " , barqux :: String" + , " } deriving (Show)" + ] diff --git a/tests/TestSuite.hs b/tests/TestSuite.hs index e1c8acb..f5a7bff 100644 --- a/tests/TestSuite.hs +++ b/tests/TestSuite.hs @@ -12,6 +12,7 @@ import Test.Framework (defaultMain) import qualified StylishHaskell.Parse.Tests import qualified StylishHaskell.Step.Imports.Tests import qualified StylishHaskell.Step.LanguagePragmas.Tests +import qualified StylishHaskell.Step.Records.Tests import qualified StylishHaskell.Step.Tabs.Tests import qualified StylishHaskell.Step.TrailingWhitespace.Tests import qualified StylishHaskell.Step.UnicodeSyntax.Tests @@ -23,6 +24,7 @@ main = defaultMain [ StylishHaskell.Parse.Tests.tests , StylishHaskell.Step.Imports.Tests.tests , StylishHaskell.Step.LanguagePragmas.Tests.tests + , StylishHaskell.Step.Records.Tests.tests , StylishHaskell.Step.Tabs.Tests.tests , StylishHaskell.Step.TrailingWhitespace.Tests.tests , StylishHaskell.Step.UnicodeSyntax.Tests.tests |