git.iko.soy/text
on master help sign in
More subtle tests
33ab32dBryan O'Sullivan
tests/benchmarks/DecodeUtf8.hs+30
compare with master
unifiedsplit
@@ -47,6 +47,31 @@ string h = do
47 t <- hGetContents h
47 t <- hGetContents h
48 rnf t `seq` return ()
48 rnf t `seq` return ()
49
49
50+string_len h = do
51+ hSetEncoding h utf8
52+ t <- hGetContents h
53+ print (length t)
54+
55+lazy_string_utf8 h = do
56+ bs <- BL.hGetContents h
57+ let t = U8.toString bs
58+ rnf t `seq` return ()
59+
60+lazy_string_utf8_len h = do
61+ bs <- BL.hGetContents h
62+ let t = U8.toString bs
63+ print (length t)
64+
65+strict_string_utf8 h = do
66+ bs <- B.hGetContents h
67+ let t = U8.toString bs
68+ rnf t `seq` return ()
69+
70+strict_string_utf8_len h = do
71+ bs <- B.hGetContents h
72+ let t = U8.toString bs
73+ print (length t)
74+
50main = do
75main = do
51 [kind,name] <- getArgs
76 [kind,name] <- getArgs
52 h <- openFile name ReadMode
77 h <- openFile name ReadMode
@@ -59,3 +84,8 @@ main = do
59 "lazy" -> lazy h
84 "lazy" -> lazy h
60 "lazy_io" -> lazy_io h
85 "lazy_io" -> lazy_io h
61 "string" -> string h
86 "string" -> string h
87+ "string_len" -> string_len h
88+ "lazy_string_utf8" -> lazy_string_utf8 h
89+ "lazy_string_utf8_len" -> lazy_string_utf8_len h
90+ "strict_string_utf8" -> strict_string_utf8 h
91+ "strict_string_utf8_len" -> strict_string_utf8_len h