1 files changed, 42 insertions, 0 deletions
diff --git a/tests/File.hs b/tests/File.hs
new file mode 100644
index 0000000..bdc97a1
--- /dev/null
+++ b/tests/File.hs
@@ -0,0 +1,42 @@
+module File 
+    ( fileGroup
+    ) where
+
+import qualified Data.Map as M
+
+import Data.Binary
+import Test.Framework (testGroup)
+import Test.Framework.Providers.HUnit
+import Test.Framework.Providers.QuickCheck2
+import Test.HUnit
+import Test.QuickCheck
+
+import Text.Hakyll.File
+
+-- File test group.
+fileGroup = testGroup "File"
+    [ testCase "test_toRoot_1" test_toRoot_1
+    , testCase "test_toRoot_2" test_toRoot_2
+    , testCase "test_toRoot_3" test_toRoot_3
+    , testCase "test_removeSpaces_1" test_removeSpaces_1
+    , testCase "test_removeSpaces_2" test_removeSpaces_2
+    , testCase "test_havingExtension_1" test_havingExtension_1
+    , testCase "test_havingExtension_2" test_havingExtension_2
+    ]
+
+
+-- toRoot test cases
+test_toRoot_1 = toRoot "/posts/foo.html" @?= ".."
+test_toRoot_2 = toRoot "posts/foo.html" @?= ".."
+test_toRoot_3 = toRoot "foo.html" @?= "."
+
+-- removeSpaces test cases
+test_removeSpaces_1 = removeSpaces "$root/tags/random crap.html"
+                    @?= "$root/tags/random-crap.html"
+test_removeSpaces_2 = removeSpaces "another simple example.zip"
+                    @?= "another-simple-example.zip"
+
+-- Having extension test cases
+test_havingExtension_1 = havingExtension ".foo" ["file.bar", "file.txt"] @?= []
+test_havingExtension_2 = havingExtension ".foo" ["file.foo", "file.txt"]
+                       @?= ["file.foo"]