@@ -25,34 +25,23 @@ tests = testGroup "Hakyll.Web.CompressCss.Tests" $ concat
2525 compressCss " something \n\t\r something "
2626
2727 -- strip comments
28− , "" @=?
29− compressCss "/* abc { } ;; \n\t\r */"
28+ , "" @=? compressCss "/* abc { } ;; \n\t\r */"
3029
3130 -- compress separators
32− , "}" @=?
33− compressCss "; }"
34− , "{};" @=?
35− compressCss " { } ; "
31+ , "}" @=? compressCss "; }"
32+ , "{};" @=? compressCss " { } ; "
3633 -- but do not compress separators inside of constants
37− , "\" { } ; \"" @=?
38− compressCss "\" { } ; \""
34+ , "\" { } ; \"" @=? compressCss "\" { } ; \""
3935 -- don't compress separators at the start or end of constants
40− , "\" }\"" @=?
41− compressCss "\" }\""
42− , "\"{ \"" @=?
43− compressCss "\"{ \""
36+ , "\" }\"" @=? compressCss "\" }\""
37+ , "\"{ \"" @=? compressCss "\"{ \""
4438 -- don't get irritated by the wrong constant terminator
45− , "\" ' \"" @=?
46− compressCss "\" ' \""
47− , "' \" '" @=?
48− compressCss "' \" '"
39+ , "\" ' \"" @=? compressCss "\" ' \""
40+ , "' \" '" @=? compressCss "' \" '"
4941 -- don't compress whitespace in constants in the middle of a string
50− , "abc '{ '" @=?
51− compressCss "abc '{ '"
52− , "abc \"{ \"" @=?
53− compressCss "abc \"{ \""
42+ , "abc '{ '" @=? compressCss "abc '{ '"
43+ , "abc \"{ \"" @=? compressCss "abc \"{ \""
5444 -- compress multiple semicolons
55− , ";" @=?
56− compressCss ";;;;;;;"
45+ , ";" @=? compressCss ";;;;;;;"
5746 ]
5847 ]