git.iko.soy/hakyll
on master help sign in
Some more tests. Fixed split function.
commita53235285878d4199947b368ea703c30adf74710 authorJasper Van der Jeugt <jaspervdj@gmail.com> dateFri 25 Dec 2009, 12:06 (17 years ago) parent4fa4722
2 files changed+8−1
compare with master
unifiedsplit
src/Text/Hakyll/Util.hs+2−1 tests/Tests.hs+6
src/Text/Hakyll/Util.hs+2−1
@@ -25,4 +25,5 @@ stripHTML str = let (beforeTag, rest) = break (== '<') str
2525
2626-- | Split a list at a certain element.
2727split :: String -> String -> [String]
28−split pattern = splitRegex (mkRegex pattern)
28+split pattern = filter (not . null)
29+ . splitRegex (mkRegex pattern)
tests/Tests.hs+6
@@ -17,6 +17,8 @@ tests = [ testGroup "Util group" [ testProperty "trim length" prop_trim_length
1717 , testCase "stripHTML 1" test_strip_html1
1818 , testCase "stripHTML 2" test_strip_html2
1919 , testCase "stripHTML 3" test_strip_html3
20+ , testCase "split 1" test_split1
21+ , testCase "split 2" test_split2
2022 ]
2123
2224 , testGroup "CompressCSS group" [ testProperty "compressCSS length" prop_compress_css_length
@@ -44,6 +46,10 @@ test_strip_html2 = stripHTML "text" @?= "text"
4446test_strip_html3 = stripHTML "<b>Hakyll</b> is an <i>awesome</i> web framework <img src=\"foo.png\" />" @?=
4547 "Hakyll is an awesome web framework "
4648
49+-- Split test cases.
50+test_split1 = split "," "1,2,3" @?= ["1", "2", "3"]
51+test_split2 = split "," ",1,2," @?= ["1", "2"]
52+
4753-- CSS compression should always decrease the text length.
4854prop_compress_css_length str = length str >= length (compressCSS str)
4955