summaryrefslogtreecommitdiff
path: root/tests/CompressCSS.hs
diff options
context:
space:
mode:
authorJasper Van der Jeugt <jaspervdj@gmail.com>2010-02-16 19:18:53 +0100
committerJasper Van der Jeugt <jaspervdj@gmail.com>2010-02-16 19:18:53 +0100
commitc9d4624a42c231ed200b69f1d6bf51c323febbbb (patch)
treec89427172b9205e0f7d28392ecd292d532f51e49 /tests/CompressCSS.hs
parent87e7e99a8c1ced4a861d3d801c4fb4ea7d615dcf (diff)
downloadhakyll-c9d4624a42c231ed200b69f1d6bf51c323febbbb.tar.gz
Updated tests.
Diffstat (limited to 'tests/CompressCSS.hs')
-rw-r--r--tests/CompressCSS.hs35
1 files changed, 0 insertions, 35 deletions
diff --git a/tests/CompressCSS.hs b/tests/CompressCSS.hs
deleted file mode 100644
index 855efcf..0000000
--- a/tests/CompressCSS.hs
+++ /dev/null
@@ -1,35 +0,0 @@
-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)
-
--- Compress CSS test cases.
-test_compressCSS_1 = compressCSS "a { \n color : red; }" @?= "a{color:red}"
-test_compressCSS_2 = compressCSS "img {border :none;;;; }"
- @?= "img{border:none}"
-test_compressCSS_3 =
- compressCSS "p {font-size : 90%;} h1 {color :white;;; }"
- @?= "p{font-size:90%}h1{color:white}"
-test_compressCSS_4 = compressCSS "a { /* /* red is pretty cool */ color: red; }"
- @?= "a{color:red}"