diff options
Diffstat (limited to 'tests/File.hs')
-rw-r--r-- | tests/File.hs | 62 |
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"] |