Replace tabs by four spaces

3 files changed, 45 insertions, 3 deletions

diff --git a/tests/StylishHaskell/Tabs/Tests.hs b/tests/StylishHaskell/Tabs/Tests.hs
new file mode 100644
index 0000000..9e66d6b
--- /dev/null
+++ b/tests/StylishHaskell/Tabs/Tests.hs
@@ -0,0 +1,42 @@
+--------------------------------------------------------------------------------
+module StylishHaskell.Tabs.Tests
+    ( tests
+    ) where
+
+
+--------------------------------------------------------------------------------
+import           Test.Framework                 (Test, testGroup)
+import           Test.Framework.Providers.HUnit (testCase)
+import           Test.HUnit                     ((@=?))
+
+
+--------------------------------------------------------------------------------
+import           StylishHaskell.Tabs
+import           StylishHaskell.Tests.Util
+
+
+--------------------------------------------------------------------------------
+tests :: Test
+tests = testGroup "StylishHaskell.Tabs.Tests" [case01]
+
+
+--------------------------------------------------------------------------------
+case01 :: Test
+case01 = testCase "case 01" $ expected @=? testStylish stylish input
+  where
+    input = unlines
+        [ "module Main"
+        , "\t\twhere"
+        , "data Foo"
+        , "\t= Bar"
+        , "    | Qux"
+        ]
+
+    expected = unlines
+        [ "module Main"
+        , "        where"
+        , "data Foo"
+        , "    = Bar"
+        , "    | Qux"
+        ]
+
diff --git a/tests/StylishHaskell/TrailingWhitespace/Tests.hs b/tests/StylishHaskell/TrailingWhitespace/Tests.hs
index 9fa22c2..2f12113 100644
--- a/tests/StylishHaskell/TrailingWhitespace/Tests.hs
+++ b/tests/StylishHaskell/TrailingWhitespace/Tests.hs
@@ -17,9 +17,7 @@ import           StylishHaskell.Tests.Util
 
 --------------------------------------------------------------------------------
 tests :: Test
-tests = testGroup "StylishHaskell.TrailingWhitespace.Tests"
-    [ case01
-    ]
+tests = testGroup "StylishHaskell.TrailingWhitespace.Tests" [case01]
 
 
 --------------------------------------------------------------------------------
diff --git a/tests/TestSuite.hs b/tests/TestSuite.hs
index 49f91a0..71a1bec 100644
--- a/tests/TestSuite.hs
+++ b/tests/TestSuite.hs
@@ -11,6 +11,7 @@ import           Test.Framework               (defaultMain)
 --------------------------------------------------------------------------------
 import qualified StylishHaskell.Imports.Tests
 import qualified StylishHaskell.LanguagePragmas.Tests
+import qualified StylishHaskell.Tabs.Tests
 import qualified StylishHaskell.TrailingWhitespace.Tests
 
 
@@ -19,5 +20,6 @@ main :: IO ()
 main = defaultMain
     [ StylishHaskell.Imports.Tests.tests
     , StylishHaskell.LanguagePragmas.Tests.tests
+    , StylishHaskell.Tabs.Tests.tests
     , StylishHaskell.TrailingWhitespace.Tests.tests
     ]