Move modules

1 files changed, 44 insertions, 0 deletions

diff --git a/tests/Language/Haskell/Stylish/Parse/Tests.hs b/tests/Language/Haskell/Stylish/Parse/Tests.hs
new file mode 100644
index 0000000..19f4fe1
--- /dev/null
+++ b/tests/Language/Haskell/Stylish/Parse/Tests.hs
@@ -0,0 +1,44 @@
+--------------------------------------------------------------------------------
+module Language.Haskell.Stylish.Parse.Tests
+    ( tests
+    ) where
+
+
+--------------------------------------------------------------------------------
+import           Test.Framework                 (Test, testGroup)
+import           Test.Framework.Providers.HUnit (testCase)
+import           Test.HUnit                     (Assertion, assert)
+
+
+--------------------------------------------------------------------------------
+import           Language.Haskell.Stylish.Parse
+
+
+--------------------------------------------------------------------------------
+tests :: Test
+tests = testGroup "Language.Haskell.Stylish.Parse"
+    [ testCase "UTF-8 Byte Order Mark" testBom
+    , testCase "Extra extensions"      testExtraExtensions
+    ]
+
+
+--------------------------------------------------------------------------------
+testBom :: Assertion
+testBom = assert $ isRight $ parseModule [] Nothing input
+  where
+    input = unlines
+        [ '\xfeff' : "foo :: Int"
+        , "foo = 3"
+        ]
+
+
+--------------------------------------------------------------------------------
+testExtraExtensions :: Assertion
+testExtraExtensions = assert $ isRight $
+    parseModule ["TemplateHaskell"] Nothing "$(foo)"
+
+
+--------------------------------------------------------------------------------
+isRight :: Either a b -> Bool
+isRight (Right _) = True
+isRight _         = False