diff options
author | Nicole Rauch <nicole.m@gmx.de> | 2016-08-13 22:11:56 +0200 |
---|---|---|
committer | Nicole Rauch <nicole.m@gmx.de> | 2016-08-14 22:13:31 +0200 |
commit | 66a90395fc1174d05254876d11698f4de5a895c2 (patch) | |
tree | 5bfef32232a70a01487879e717a1cf3bb59002f7 /tests/Hakyll | |
parent | fdb298d6a22dbab32d5da6c653b600d1b8f93143 (diff) | |
download | hakyll-66a90395fc1174d05254876d11698f4de5a895c2.tar.gz |
Added some unit tests for CompressCss
Diffstat (limited to 'tests/Hakyll')
-rw-r--r-- | tests/Hakyll/Web/CompressCss/Tests.hs | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/tests/Hakyll/Web/CompressCss/Tests.hs b/tests/Hakyll/Web/CompressCss/Tests.hs new file mode 100644 index 0000000..1430abf --- /dev/null +++ b/tests/Hakyll/Web/CompressCss/Tests.hs @@ -0,0 +1,43 @@ +-------------------------------------------------------------------------------- +module Hakyll.Web.CompressCss.Tests + ( tests + ) where + + +-------------------------------------------------------------------------------- +import Data.Char (toUpper) +import Test.Framework (Test, testGroup) +import Test.HUnit (assert, (@=?)) + + +-------------------------------------------------------------------------------- +import Hakyll.Web.CompressCss +import TestSuite.Util + + +-------------------------------------------------------------------------------- +tests :: Test +tests = testGroup "Hakyll.Web.CompressCss.Tests" $ concat + [ fromAssertions "compressCss" + [ + -- compress whitespace + " something something " @=? + compressCss " something \n\t\r something " + + -- strip comments + , "" @=? + compressCss "/* abc { } ;; \n\t\r */" + + -- compress separators + , "}" @=? + compressCss "; }" + , "{};" @=? + compressCss " { } ; " + , ";" @=? + compressCss ";;;;;;;" + + -- some real-life css + , "a:after{content: \" (\" attr(href) \")\"}" @=? + compressCss "a:after { content: \" (\" attr(href) \")\"; }" + ] + ] |