summaryrefslogtreecommitdiff
path: root/tests/File.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/File.hs')
-rw-r--r--tests/File.hs62
1 files changed, 0 insertions, 62 deletions
diff --git a/tests/File.hs b/tests/File.hs
deleted file mode 100644
index 9c1ae67..0000000
--- a/tests/File.hs
+++ /dev/null
@@ -1,62 +0,0 @@
-module File
- ( fileGroup
- ) where
-
-import qualified Data.Map as M
-
-import Control.Applicative ((<$>))
-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 (runDefaultHakyll)
-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_inHakyllDirectory_1" test_inHakyllDirectory_1
- , testCase "test_inHakyllDirectory_2" test_inHakyllDirectory_2
- , testCase "test_inHakyllDirectory_3" test_inHakyllDirectory_3
- , testCase "test_inHakyllDirectory_4" test_inHakyllDirectory_4
- , 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" @?= "."
-
--- inHakyllDirectory test cases
-test_inHakyllDirectory_1 =
- (runDefaultHakyll $ inHakyllDirectory "_site/foo.html")
- @? "test_inHakyllDirectory_1"
-test_inHakyllDirectory_2 =
- (not <$> (runDefaultHakyll $ inHakyllDirectory "posts/foo.html"))
- @? "test_inHakyllDirectory_2"
-test_inHakyllDirectory_3 =
- (not <$> (runDefaultHakyll $ inHakyllDirectory "index.html"))
- @? "test_inHakyllDirectory_3"
-test_inHakyllDirectory_4 =
- (runDefaultHakyll $ inHakyllDirectory "_cache/index.html")
- @? "test_inHakyllDirectory_4"
-
--- 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"]