git.iko.soy/hakyll
on master help sign in
Compacted the tests and made them more readable.
c6fdffcNicole Rauch
tests/Hakyll/Web/CompressCss/Tests.hs+11−22
compare with master
unifiedsplit
@@ -25,34 +25,23 @@ tests = testGroup "Hakyll.Web.CompressCss.Tests" $ concat
25 compressCss " something \n\t\r something "
25 compressCss " something \n\t\r something "
26
26
27 -- strip comments
27 -- strip comments
28− , "" @=?
29− compressCss "/* abc { } ;; \n\t\r */"
28+ , "" @=? compressCss "/* abc { } ;; \n\t\r */"
30
29
31 -- compress separators
30 -- compress separators
32− , "}" @=?
33− compressCss "; }"
31+ , "}" @=? compressCss "; }"
34− , "{};" @=?
35− compressCss " { } ; "
32+ , "{};" @=? compressCss " { } ; "
36 -- but do not compress separators inside of constants
33 -- but do not compress separators inside of constants
37− , "\" { } ; \"" @=?
38− compressCss "\" { } ; \""
34+ , "\" { } ; \"" @=? compressCss "\" { } ; \""
39 -- don't compress separators at the start or end of constants
35 -- don't compress separators at the start or end of constants
40− , "\" }\"" @=?
41− compressCss "\" }\""
36+ , "\" }\"" @=? compressCss "\" }\""
42− , "\"{ \"" @=?
43− compressCss "\"{ \""
37+ , "\"{ \"" @=? compressCss "\"{ \""
44 -- don't get irritated by the wrong constant terminator
38 -- don't get irritated by the wrong constant terminator
45− , "\" ' \"" @=?
46− compressCss "\" ' \""
39+ , "\" ' \"" @=? compressCss "\" ' \""
47− , "' \" '" @=?
48− compressCss "' \" '"
40+ , "' \" '" @=? compressCss "' \" '"
49 -- don't compress whitespace in constants in the middle of a string
41 -- don't compress whitespace in constants in the middle of a string
50− , "abc '{ '" @=?
51− compressCss "abc '{ '"
42+ , "abc '{ '" @=? compressCss "abc '{ '"
52− , "abc \"{ \"" @=?
53− compressCss "abc \"{ \""
43+ , "abc \"{ \"" @=? compressCss "abc \"{ \""
54 -- compress multiple semicolons
44 -- compress multiple semicolons
55− , ";" @=?
56− compressCss ";;;;;;;"
45+ , ";" @=? compressCss ";;;;;;;"
57 ]
46 ]
58 ]
47 ]