blob: 164df5986a442026b96b9a7ff77f8e446c150bce (
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
|
-- | Module testing @Text.Hakyll.Internal.CompressCss@.
module CompressCss
( compressCssGroup
) 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 Text.Hakyll.Internal.CompressCss
-- CompressCss test group.
compressCssGroup = testGroup "CompressCss"
[ testProperty "prop_compressCss_length" prop_compressCss_length
, testCase "test_compressCss_1" test_compressCss_1
, testCase "test_compressCss_2" test_compressCss_2
, testCase "test_compressCss_3" test_compressCss_3
, testCase "test_compressCss_4" test_compressCss_4
]
-- | Css compression should always decrease the text length.
prop_compressCss_length str = length str >= length (compressCss str)
-- | compressCss test case 1.
test_compressCss_1 = compressCss "a { \n color : red; }" @?= "a{color:red}"
-- | compressCss test case 2.
test_compressCss_2 = compressCss "img {border :none;;;; }"
@?= "img{border:none}"
-- | compressCss test case 3.
test_compressCss_3 =
compressCss "p {font-size : 90%;} h1 {color :white;;; }"
@?= "p{font-size:90%}h1{color:white}"
-- | compressCss test case 4.
test_compressCss_4 = compressCss "a { /* /* red is pretty cool */ color: red; }"
@?= "a{color:red}"
|
