git.iko.soy/text
on master help sign in
Add more lazy decoding tests
4dee499Bryan O'Sullivan
tests/benchmarks/DecodeUtf8.hs+11
compare with master
unifiedsplit
@@ -37,11 +37,20 @@ lazy h = do
37 bs <- BL.hGetContents h
37 bs <- BL.hGetContents h
38 rnf (TL.decodeUtf8 bs) `seq` return ()
38 rnf (TL.decodeUtf8 bs) `seq` return ()
39
39
40+lazy_len h = do
41+ bs <- BL.hGetContents h
42+ print . TL.length . TL.decodeUtf8 $ bs
43+
40lazy_io h = do
44lazy_io h = do
41 hSetEncoding h utf8
45 hSetEncoding h utf8
42 t <- TL.hGetContents h
46 t <- TL.hGetContents h
43 rnf t `seq` return ()
47 rnf t `seq` return ()
44
48
49+lazy_len_io h = do
50+ hSetEncoding h utf8
51+ t <- TL.hGetContents h
52+ print (TL.length t)
53+
45string h = do
54string h = do
46 hSetEncoding h utf8
55 hSetEncoding h utf8
47 t <- hGetContents h
56 t <- hGetContents h
@@ -82,7 +91,9 @@ main = do
82 "strict_io" -> strict_io h
91 "strict_io" -> strict_io h
83 "strict_len_io" -> strict_len_io h
92 "strict_len_io" -> strict_len_io h
84 "lazy" -> lazy h
93 "lazy" -> lazy h
94+ "lazy_len" -> lazy_len h
85 "lazy_io" -> lazy_io h
95 "lazy_io" -> lazy_io h
96+ "lazy_len_io" -> lazy_len_io h
86 "string" -> string h
97 "string" -> string h
87 "string_len" -> string_len h
98 "string_len" -> string_len h
88 "lazy_string_utf8" -> lazy_string_utf8 h
99 "lazy_string_utf8" -> lazy_string_utf8 h