From d41500758f884a4e7a54a4696a2a521b4465242f Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Sun, 24 Jan 2010 22:27:11 +0100 Subject: Backported previous tests. --- tests/CompressCSS.hs | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 tests/CompressCSS.hs (limited to 'tests/CompressCSS.hs') diff --git a/tests/CompressCSS.hs b/tests/CompressCSS.hs new file mode 100644 index 0000000..855efcf --- /dev/null +++ b/tests/CompressCSS.hs @@ -0,0 +1,35 @@ +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}" -- cgit v1.2.3