summaryrefslogtreecommitdiff
path: root/tests/Hakyll
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Hakyll')
-rw-r--r--tests/Hakyll/Web/CompressCss/Tests.hs10
1 files changed, 7 insertions, 3 deletions
diff --git a/tests/Hakyll/Web/CompressCss/Tests.hs b/tests/Hakyll/Web/CompressCss/Tests.hs
index 8521014..7420e4c 100644
--- a/tests/Hakyll/Web/CompressCss/Tests.hs
+++ b/tests/Hakyll/Web/CompressCss/Tests.hs
@@ -37,11 +37,15 @@ tests = testGroup "Hakyll.Web.CompressCss.Tests" $ concat
-- compress separators
, "}" @=? compressCss "; }"
- , "{};" @=? compressCss " { } ; "
+ , ";{};" @=? compressCss " ; { } ; "
+ , "text," @=? compressCss "text , "
+ , "a>b" @=? compressCss "a > b"
+ , "a+b" @=? compressCss "a + b"
+ , "a!b" @=? compressCss "a ! b"
-- compress whitespace even after this curly brace
, "}" @=? compressCss "; } "
-- but do not compress separators inside of constants
- , "\" { } ; \"" @=? compressCss "\" { } ; \""
+ , "\" { } ; , \"" @=? compressCss "\" { } ; , \""
-- don't compress separators at the start or end of constants
, "\" }\"" @=? compressCss "\" }\""
, "\"{ \"" @=? compressCss "\"{ \""
@@ -51,7 +55,7 @@ tests = testGroup "Hakyll.Web.CompressCss.Tests" $ concat
-- don't compress whitespace around separators in constants in the middle of a string
, "abc '{ '" @=? compressCss "abc '{ '"
, "abc \"{ \"" @=? compressCss "abc \"{ \""
- -- compress whitespace after colons
+ -- compress whitespace around colons
, "abc:xyz" @=? compressCss "abc : xyz"
-- compress multiple semicolons
, ";" @=? compressCss ";;;;;;;"