From 0404185e835fb11bec70882b695df7b53c3dd451 Mon Sep 17 00:00:00 2001
From: Nicole Rauch <nicole.m@gmx.de>
Date: Sun, 14 Aug 2016 19:23:10 +0200
Subject: We need to constantly check whether we are at the start of a
 constant, not just once.

---
 tests/Hakyll/Web/CompressCss/Tests.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'tests')

diff --git a/tests/Hakyll/Web/CompressCss/Tests.hs b/tests/Hakyll/Web/CompressCss/Tests.hs
index c8db116..44dfc6c 100644
--- a/tests/Hakyll/Web/CompressCss/Tests.hs
+++ b/tests/Hakyll/Web/CompressCss/Tests.hs
@@ -46,11 +46,13 @@ tests = testGroup "Hakyll.Web.CompressCss.Tests" $ concat
             compressCss "\"   '   \""
         , "'   \"   '" @=?
             compressCss "'   \"   '"
+          -- don't compress whitespace in constants in the middle of a string
+        , "abc '{ '" @=?
+            compressCss "abc '{ '"
+        , "abc \"{ \"" @=?
+            compressCss "abc \"{ \""
+          -- compress multiple semicolons
         , ";" @=?
             compressCss ";;;;;;;"
-
-          -- some real-life css
-        , "a:after{content: \" (\" attr(href) \")\"}" @=?
-            compressCss "a:after {  content: \" (\" attr(href) \")\"; }"
         ]
     ]
-- 
cgit v1.2.3