@@ -36,6 +36,7 @@ tests = [ testGroup "Util group"
3636 , testCase "compressCSS 1" test_compress_css1
3737 , testCase "compressCSS 2" test_compress_css2
3838 , testCase "compressCSS 3" test_compress_css3
39+ , testCase "compressCSS 4" test_compress_css4
3940 ]
4041
4142 , testGroup "Context group"
@@ -96,6 +97,8 @@ test_compress_css2 = compressCSS "img {border :none;;;; }"
9697test_compress_css3 =
9798 compressCSS "p {font-size : 90%;} h1 {color :white;;; }"
9899 @?= "p{font-size:90%}h1{color:white}"
100+test_compress_css4 = compressCSS "a { /* /* red is pretty cool */ color: red; }"
101+ @?= "a{color:red}"
99102
100103-- Date rendering test cases.
101104test_render_date1 =