diff options
author | Nicole Rauch <nicole.m@gmx.de> | 2016-08-14 19:51:45 +0200 |
---|---|---|
committer | Nicole Rauch <nicole.m@gmx.de> | 2016-08-14 22:13:31 +0200 |
commit | e70605dfe681dbc0f79e0a8f426ac6c9fc9820a9 (patch) | |
tree | 061278f72d5b56b525bc2768f59934268e32c8a5 /tests | |
parent | 8f11bbd1d7cd81572ddc433aa1706bc2d2db4c8d (diff) | |
download | hakyll-e70605dfe681dbc0f79e0a8f426ac6c9fc9820a9.tar.gz |
We must avoid the compression of whitespace in constants by handling it in the same way.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/Hakyll/Web/CompressCss/Tests.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/Hakyll/Web/CompressCss/Tests.hs b/tests/Hakyll/Web/CompressCss/Tests.hs index 221aa82..065a588 100644 --- a/tests/Hakyll/Web/CompressCss/Tests.hs +++ b/tests/Hakyll/Web/CompressCss/Tests.hs @@ -23,6 +23,11 @@ tests = testGroup "Hakyll.Web.CompressCss.Tests" $ concat -- compress whitespace " something something " @=? compressCss " something \n\t\r something " + -- do not compress whitespace in constants + , "abc \" \t\n\r \" xyz" @=? + compressCss "abc \" \t\n\r \" xyz" + , "abc ' \t\n\r ' xyz" @=? + compressCss "abc ' \t\n\r ' xyz" -- strip comments , "" @=? compressCss "/* abc { } ;; \n\t\r */" @@ -40,7 +45,7 @@ tests = testGroup "Hakyll.Web.CompressCss.Tests" $ concat -- don't get irritated by the wrong constant terminator , "\" ' \"" @=? compressCss "\" ' \"" , "' \" '" @=? compressCss "' \" '" - -- don't compress whitespace in constants in the middle of a string + -- don't compress whitespace around separators in constants in the middle of a string , "abc '{ '" @=? compressCss "abc '{ '" , "abc \"{ \"" @=? compressCss "abc \"{ \"" -- compress multiple semicolons |