@@ -66,6 +66,7 @@ tl_singleton c = [c] == (TL.unpack . TL.singleton) c
6666tl_unstreamChunks x = f 11 x == f 1000 x
6767 where f n = SL.unstreamChunks n . S.streamList
6868tl_chunk_unchunk = (TL.fromChunks . TL.toChunks) `eq` id
69+tl_from_to_strict = (TL.fromStrict . TL.toStrict) `eq` id
6970
7071t_ascii t = E.decodeASCII (E.encodeUtf8 a) == a
7172 where a = T.map (\c -> chr (ord c `mod` 128)) t
@@ -675,7 +676,8 @@ tests = [
675676 testProperty "t_singleton" t_singleton,
676677 testProperty "tl_singleton" tl_singleton,
677678 testProperty "tl_unstreamChunks" tl_unstreamChunks,
678− testProperty "tl_chunk_unchunk" tl_chunk_unchunk
679+ testProperty "tl_chunk_unchunk" tl_chunk_unchunk,
680+ testProperty "tl_from_to_strict" tl_from_to_strict
679681 ],
680682
681683 testGroup "transcoding" [