blob: 9c1ae6720b7fc231b054ac55624d06dd7cf6184d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
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"]
|
