diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2016-07-23 10:33:14 +0200 |
---|---|---|
committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2016-07-23 10:33:14 +0200 |
commit | 82943538ba7570dfadd8b3deb501bd67537c57b0 (patch) | |
tree | 273644ced25cda1c46be7c0dd024e73de960dd4d /tests | |
parent | a9cfe2edf53f0663f6deb874d31321e0cd66d849 (diff) | |
download | stylish-haskell-82943538ba7570dfadd8b3deb501bd67537c57b0.tar.gz |
Move Cases step to SimpleAlign
Diffstat (limited to 'tests')
-rw-r--r-- | tests/Language/Haskell/Stylish/Parse/Tests.hs | 2 | ||||
-rw-r--r-- | tests/Language/Haskell/Stylish/Step/SimpleAlign/Tests.hs (renamed from tests/Language/Haskell/Stylish/Step/Cases/Tests.hs) | 12 | ||||
-rw-r--r-- | tests/TestSuite.hs | 6 |
3 files changed, 10 insertions, 10 deletions
diff --git a/tests/Language/Haskell/Stylish/Parse/Tests.hs b/tests/Language/Haskell/Stylish/Parse/Tests.hs index 1e6b992..4d3400c 100644 --- a/tests/Language/Haskell/Stylish/Parse/Tests.hs +++ b/tests/Language/Haskell/Stylish/Parse/Tests.hs @@ -24,7 +24,7 @@ tests = testGroup "Language.Haskell.Stylish.Parse" , testCase "ShebangExt" testShebangExt , testCase "GADTs extension" testGADTs , testCase "KindSignatures extension" testKindSignatures - , testCase "StandalonDeriving extension" testKindSignatures + , testCase "StandalonDeriving extension" testStandaloneDeriving , testCase "UnicodeSyntax extension" testUnicodeSyntax ] diff --git a/tests/Language/Haskell/Stylish/Step/Cases/Tests.hs b/tests/Language/Haskell/Stylish/Step/SimpleAlign/Tests.hs index 6a104f8..b36f5d9 100644 --- a/tests/Language/Haskell/Stylish/Step/Cases/Tests.hs +++ b/tests/Language/Haskell/Stylish/Step/SimpleAlign/Tests.hs @@ -1,5 +1,5 @@ -------------------------------------------------------------------------------- -module Language.Haskell.Stylish.Step.Cases.Tests +module Language.Haskell.Stylish.Step.SimpleAlign.Tests ( tests ) where @@ -11,13 +11,13 @@ import Test.HUnit (Assertion, (@=?)) -------------------------------------------------------------------------------- -import Language.Haskell.Stylish.Step.Cases +import Language.Haskell.Stylish.Step.SimpleAlign import Language.Haskell.Stylish.Tests.Util -------------------------------------------------------------------------------- tests :: Test -tests = testGroup "Language.Haskell.Stylish.Step.Records.Tests" +tests = testGroup "Language.Haskell.Stylish.Step.SimpleAlign.Tests" [ testCase "case 01" case01 , testCase "case 02" case02 , testCase "case 03" case03 @@ -26,7 +26,7 @@ tests = testGroup "Language.Haskell.Stylish.Step.Records.Tests" -------------------------------------------------------------------------------- case01 :: Assertion -case01 = expected @=? testStep (step 80) input +case01 = expected @=? testStep (step 80 defaultConfig) input where input = unlines [ "eitherToMaybe e = case e of" @@ -43,7 +43,7 @@ case01 = expected @=? testStep (step 80) input -------------------------------------------------------------------------------- case02 :: Assertion -case02 = expected @=? testStep (step 80) input +case02 = expected @=? testStep (step 80 defaultConfig) input where input = unlines [ "eitherToMaybe (Left _) = Nothing" @@ -58,7 +58,7 @@ case02 = expected @=? testStep (step 80) input -------------------------------------------------------------------------------- case03 :: Assertion -case03 = expected @=? testStep (step 80) input +case03 = expected @=? testStep (step 80 defaultConfig) input where input = unlines [ "heady def [] = def" diff --git a/tests/TestSuite.hs b/tests/TestSuite.hs index 27f9851..d739760 100644 --- a/tests/TestSuite.hs +++ b/tests/TestSuite.hs @@ -5,15 +5,15 @@ module Main -------------------------------------------------------------------------------- -import Test.Framework (defaultMain) +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 +import qualified Language.Haskell.Stylish.Step.SimpleAlign.Tests import qualified Language.Haskell.Stylish.Step.Tabs.Tests import qualified Language.Haskell.Stylish.Step.TrailingWhitespace.Tests import qualified Language.Haskell.Stylish.Step.UnicodeSyntax.Tests @@ -23,10 +23,10 @@ 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 + , Language.Haskell.Stylish.Step.SimpleAlign.Tests.tests , Language.Haskell.Stylish.Step.Tabs.Tests.tests , Language.Haskell.Stylish.Step.TrailingWhitespace.Tests.tests , Language.Haskell.Stylish.Step.UnicodeSyntax.Tests.tests |