From c0a86b3d7e759fa060e091df0a3ae7d0df6354ce Mon Sep 17 00:00:00 2001 From: Nicole Rauch Date: Sun, 14 Aug 2016 17:02:49 +0200 Subject: Adding tests that make sure that whitespace at the start or end of constants does not get eaten. --- tests/Hakyll/Web/CompressCss/Tests.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'tests') diff --git a/tests/Hakyll/Web/CompressCss/Tests.hs b/tests/Hakyll/Web/CompressCss/Tests.hs index cf90a34..c8db116 100644 --- a/tests/Hakyll/Web/CompressCss/Tests.hs +++ b/tests/Hakyll/Web/CompressCss/Tests.hs @@ -36,6 +36,11 @@ tests = testGroup "Hakyll.Web.CompressCss.Tests" $ concat -- but do not compress separators inside of constants , "\" { } ; \"" @=? compressCss "\" { } ; \"" + -- don't compress separators at the start or end of constants + , "\" }\"" @=? + compressCss "\" }\"" + , "\"{ \"" @=? + compressCss "\"{ \"" -- don't get irritated by the wrong constant terminator , "\" ' \"" @=? compressCss "\" ' \"" -- cgit v1.2.3