summaryrefslogtreecommitdiff
path: root/tests/CompressCss.hs
diff options
context:
space:
mode:
authorJasper Van der Jeugt <jaspervdj@gmail.com>2010-03-26 14:10:10 +0100
committerJasper Van der Jeugt <jaspervdj@gmail.com>2010-03-26 14:10:10 +0100
commitc9e345808326c52de9e1a43b0364c0932115760d (patch)
treebf193f53a9a177dfbdc5673805a6e8fb5bd4fe26 /tests/CompressCss.hs
parentc8dd9b7f74affe979d5bf988a041711672471537 (diff)
downloadhakyll-c9e345808326c52de9e1a43b0364c0932115760d.tar.gz
Added `.txt` support, tests update.
- Pure text files are now supported. - We now hide the Internal modules. - Tests should be run through ghci. - Added testing of page reading.
Diffstat (limited to 'tests/CompressCss.hs')
-rw-r--r--tests/CompressCss.hs11
1 files changed, 9 insertions, 2 deletions
diff --git a/tests/CompressCss.hs b/tests/CompressCss.hs
index 38b9b28..164df59 100644
--- a/tests/CompressCss.hs
+++ b/tests/CompressCss.hs
@@ -1,3 +1,4 @@
+-- | Module testing @Text.Hakyll.Internal.CompressCss@.
module CompressCss
( compressCssGroup
) where
@@ -21,15 +22,21 @@ compressCssGroup = testGroup "CompressCss"
, testCase "test_compressCss_4" test_compressCss_4
]
--- Css compression should always decrease the text length.
+-- | Css compression should always decrease the text length.
prop_compressCss_length str = length str >= length (compressCss str)
--- Compress Css test cases.
+-- | 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}"