42 lines
1.3 KiB
Haskell
42 lines
1.3 KiB
Haskell
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"]
|