From 157fef58b97527b05b0400ad98d9cbdd2a33a0f4 Mon Sep 17 00:00:00 2001
From: Bergi <a.d.bergi@web.de>
Date: Wed, 7 Mar 2018 17:17:00 +0100
Subject: Optimise CSS compression

---
 tests/Hakyll/Web/CompressCss/Tests.hs | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'tests')

diff --git a/tests/Hakyll/Web/CompressCss/Tests.hs b/tests/Hakyll/Web/CompressCss/Tests.hs
index 66922cd..ae4aba0 100644
--- a/tests/Hakyll/Web/CompressCss/Tests.hs
+++ b/tests/Hakyll/Web/CompressCss/Tests.hs
@@ -20,9 +20,9 @@ tests = testGroup "Hakyll.Web.CompressCss.Tests" $ concat
     [ fromAssertions "compressCss"
         [
           -- compress whitespace
-          " something something " @=?
+          "something something" @=?
             compressCss " something  \n\t\r  something "
-          -- do not compress whitespace in constants
+          -- do not compress whitespace in string tokens
         , "abc \"  \t\n\r  \" xyz" @=?
             compressCss "abc \"  \t\n\r  \" xyz"
         , "abc '  \t\n\r  ' xyz" @=?
@@ -30,7 +30,7 @@ tests = testGroup "Hakyll.Web.CompressCss.Tests" $ concat
 
           -- strip comments
         , "before after"  @=? compressCss "before /* abc { } ;; \n\t\r */ after"
-          -- don't strip comments inside constants
+          -- don't strip comments inside string tokens
         , "before \"/* abc { } ;; \n\t\r */\" after"
                           @=? compressCss "before \"/* abc { } ;; \n\t\r */\" after"
 
@@ -45,19 +45,19 @@ tests = testGroup "Hakyll.Web.CompressCss.Tests" $ concat
         , "calc(1px + 100%/(5 + 3) - (3px + 2px)*5)" @=? compressCss "calc( 1px + 100% / ( 5 +  3) - calc( 3px + 2px ) * 5 )"
           -- compress whitespace even after this curly brace
         , "}"             @=? compressCss ";   }  "
-          -- but do not compress separators inside of constants
+          -- but do not compress separators inside string tokens
         , "\"  { } ; , \"" @=? compressCss "\"  { } ; , \""
-          -- don't compress separators at the start or end of constants
+          -- don't compress separators at the start or end of string tokens
         , "\" }\""        @=? compressCss "\" }\""
         , "\"{ \""        @=? compressCss "\"{ \""
-          -- don't get irritated by the wrong constant terminator
+          -- don't get irritated by the wrong token delimiter
         , "\"   '   \""   @=? compressCss "\"   '   \""
         , "'   \"   '"    @=? compressCss "'   \"   '"
-          -- don't compress whitespace around separators in constants in the middle of a string
+          -- don't compress whitespace in the middle of a string
         , "abc '{ '"      @=? compressCss "abc '{ '"
         , "abc \"{ \""    @=? compressCss "abc \"{ \""
-          -- compress whitespace around colons
-        , "abc:xyz"       @=? compressCss "abc : xyz"
+          -- compress whitespace after colons (but not before)
+        , "abc :xyz"       @=? compressCss "abc : xyz"
           -- compress multiple semicolons
         , ";"             @=? compressCss ";;;;;;;"
         ]
-- 
cgit v1.2.3