diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-03-01 14:50:41 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-03-01 14:50:41 +0100 |
| commit | 90b25105830d6e4b0943ab55f9317bd142533acf (patch) | |
| tree | 6eefb80a8a84724e70539dd8fa449530f7b17fe0 /tests/File.hs | |
| parent | 8ef5a3ed0307be5d34a9564d02af3ed494f8e228 (diff) | |
| parent | 8b727b994d482d593046f9b01a5c40b97c166d62 (diff) | |
| download | hakyll-90b25105830d6e4b0943ab55f9317bd142533acf.tar.gz | |
Merge branch 'hakyll3'
Conflicts:
hakyll.cabal
src/Text/Hakyll/Tags.hs
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"] |
