diff options
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 |