Add some additional tests.

Author: dnadales

tests/Language/Haskell/Stylish/Step/Imports/Tests.hs

@@ -54,12 +54,12 @@ tests = testGroup "Language.Haskell.Stylish.Step.Imports.Tests"
     , testCase "case 21" case21
     , testCase "case 22" case22
     , testCase "case 23" case23
+    , testCase "case 23b" case23b
     , testCase "case 24" case24
     , testCase "case 25" case25
     , testCase "case 26 (issue 185)" case26
     ]
 
-
 --------------------------------------------------------------------------------
 input :: String
 input = unlines
@@ -78,7 +78,6 @@ input = unlines
     , "herp = putStrLn \"import Hello world\""
     ]
 
-
 --------------------------------------------------------------------------------
 case01 :: Assertion
 case01 = expected @=? testStep (step 80 $ fromImportAlign Global) input
@@ -100,7 +99,6 @@ case01 = expected @=? testStep (step 80 $ fromImportAlign Global) input
         , "herp = putStrLn \"import Hello world\""
         ]
 
-
 --------------------------------------------------------------------------------
 case02 :: Assertion
 case02 = expected @=? testStep (step 80 $ fromImportAlign Group) input
@@ -121,7 +119,6 @@ case02 = expected @=? testStep (step 80 $ fromImportAlign Group) input
         , "herp = putStrLn \"import Hello world\""
         ]
 
-
 --------------------------------------------------------------------------------
 case03 :: Assertion
 case03 = expected @=? testStep (step 80 $ fromImportAlign None) input
@@ -156,15 +153,13 @@ case04 = expected @=? testStep (step 80 $ fromImportAlign Global) input'
         , "                                   (.:), (.:?), (.=))"
         ]
 
-
 --------------------------------------------------------------------------------
 case05 :: Assertion
 case05 = input' @=? testStep (step 80 $ fromImportAlign Group) input'
   where
     input' = "import Distribution.PackageDescription.Configuration " ++
         "(finalizePackageDescription)\n"
 
-
 --------------------------------------------------------------------------------
 case06 :: Assertion
 case06 = input' @=? testStep (step 80 $ fromImportAlign File) input'
@@ -174,7 +169,6 @@ case06 = input' @=? testStep (step 80 $ fromImportAlign File) input'
         , "import Foo.Bar"
         ]
 
-
 --------------------------------------------------------------------------------
 case07 :: Assertion
 case07 = expected @=? testStep (step 80 $ fromImportAlign File) input'
@@ -213,7 +207,6 @@ case08 = expected
         , "herp = putStrLn \"import Hello world\""
         ]
 
-
 --------------------------------------------------------------------------------
 case08b :: Assertion
 case08b = expected
@@ -235,7 +228,6 @@ case08b = expected
         , "herp = putStrLn \"import Hello world\""
         ]
 
-
 --------------------------------------------------------------------------------
 case09 :: Assertion
 case09 = expected
@@ -269,7 +261,6 @@ case09 = expected
         , "herp = putStrLn \"import Hello world\""
         ]
 
-
 --------------------------------------------------------------------------------
 case10 :: Assertion
 case10 = expected
@@ -308,7 +299,6 @@ case10 = expected
         , "herp = putStrLn \"import Hello world\""
         ]
 
-
 --------------------------------------------------------------------------------
 case11 :: Assertion
 case11 = expected
@@ -423,7 +413,6 @@ case14 = expected
         [ "import qualified Data.List as List (concat, map, null, reverse, tail, (++))"
         ]
 
-
 --------------------------------------------------------------------------------
 case15 :: Assertion
 case15 = expected
@@ -449,7 +438,6 @@ case15 = expected
         , "import qualified Herp.Derp.Internal.Types.Foobar as Internal (foo, bar)"
         ]
 
-
 --------------------------------------------------------------------------------
 case16 :: Assertion
 case16 = expected
@@ -473,7 +461,6 @@ case16 = expected
         , "import Data.Foo (Foo (Foo,Bar), Goo(Goo))"
         ]
 
-
 --------------------------------------------------------------------------------
 case17 :: Assertion
 case17 = expected
@@ -491,7 +478,6 @@ case17 = expected
         , "import Data.Identity (Identity (runIdentity,Identity))"
         ]
 
-
 --------------------------------------------------------------------------------
 case18 :: Assertion
 case18 = expected @=? testStep
@@ -662,6 +648,7 @@ case22 = expected
           "theLongestNameYet, shortName)"
         ]
 
+
 --------------------------------------------------------------------------------
 case23 :: Assertion
 case23 = expected
@@ -686,6 +673,31 @@ case23 = expected
         , "import Data.ALongName.Foo (Foo, Goo, Boo)"
         ]
 
+--------------------------------------------------------------------------------
+case23b :: Assertion
+case23b = expected
+    @=? testStep (step 40 $ Options None WithModuleName False Inline Inherit (LPConstant 4) True True) input'
+  where
+    expected = unlines
+        [ "import Data.Acid ( AcidState )"
+        , "import Data.Default.Class"
+        , "           ( Default (def) )"
+        , ""
+        , "import Data.Monoid ( (<>) )"
+        , ""
+        , "import Data.ALongName.Foo ( Boo, Foo,"
+        , "           Goo )"
+        ]
+
+    input' = unlines
+        [ "import Data.Acid (AcidState)"
+        , "import Data.Default.Class (Default(def))"
+        , ""
+        , "import Data.Monoid ((<>) )"
+        , ""
+        , "import Data.ALongName.Foo (Foo, Goo, Boo)"
+        ]
+
 --------------------------------------------------------------------------------
 case24 :: Assertion
 case24 = expected
@@ -733,7 +745,6 @@ case25 = expected
         , "import Data.Foo (Foo (Foo,Bar), Goo(Goo))"
         ]
 
-
 --------------------------------------------------------------------------------
 case26 :: Assertion
 case26 = expected