From c6fdffc0a06c9185a062b1e4f9fb1088417754b5 Mon Sep 17 00:00:00 2001 From: Nicole Rauch Date: Sun, 14 Aug 2016 19:34:52 +0200 Subject: Compacted the tests and made them more readable. --- tests/Hakyll/Web/CompressCss/Tests.hs | 33 +++++++++++---------------------- 1 file changed, 11 insertions(+), 22 deletions(-) (limited to 'tests') diff --git a/tests/Hakyll/Web/CompressCss/Tests.hs b/tests/Hakyll/Web/CompressCss/Tests.hs index 44dfc6c..a7b94ab 100644 --- a/tests/Hakyll/Web/CompressCss/Tests.hs +++ b/tests/Hakyll/Web/CompressCss/Tests.hs @@ -25,34 +25,23 @@ tests = testGroup "Hakyll.Web.CompressCss.Tests" $ concat compressCss " something \n\t\r something " -- strip comments - , "" @=? - compressCss "/* abc { } ;; \n\t\r */" + , "" @=? compressCss "/* abc { } ;; \n\t\r */" -- compress separators - , "}" @=? - compressCss "; }" - , "{};" @=? - compressCss " { } ; " + , "}" @=? compressCss "; }" + , "{};" @=? compressCss " { } ; " -- but do not compress separators inside of constants - , "\" { } ; \"" @=? - compressCss "\" { } ; \"" + , "\" { } ; \"" @=? compressCss "\" { } ; \"" -- don't compress separators at the start or end of constants - , "\" }\"" @=? - compressCss "\" }\"" - , "\"{ \"" @=? - compressCss "\"{ \"" + , "\" }\"" @=? compressCss "\" }\"" + , "\"{ \"" @=? compressCss "\"{ \"" -- don't get irritated by the wrong constant terminator - , "\" ' \"" @=? - compressCss "\" ' \"" - , "' \" '" @=? - compressCss "' \" '" + , "\" ' \"" @=? compressCss "\" ' \"" + , "' \" '" @=? compressCss "' \" '" -- don't compress whitespace in constants in the middle of a string - , "abc '{ '" @=? - compressCss "abc '{ '" - , "abc \"{ \"" @=? - compressCss "abc \"{ \"" + , "abc '{ '" @=? compressCss "abc '{ '" + , "abc \"{ \"" @=? compressCss "abc \"{ \"" -- compress multiple semicolons - , ";" @=? - compressCss ";;;;;;;" + , ";" @=? compressCss ";;;;;;;" ] ] -- cgit v1.2.3