1. Bryan O'Sullivan
  2. text

Commits

Bryan O'Sullivan  committed 6d50a3c

Test lazy ASCII decoding

  • Participants
  • Parent commits 554d5f4
  • Branches default

Comments (0)

Files changed (1)

File tests/Properties.hs

View file
 
 t_ascii t    = E.decodeASCII (E.encodeUtf8 a) == a
     where a  = T.map (\c -> chr (ord c `mod` 128)) t
+tl_ascii t   = EL.decodeASCII (EL.encodeUtf8 a) == a
+    where a  = TL.map (\c -> chr (ord c `mod` 128)) t
 t_utf8       = forAll genUnicode $ (E.decodeUtf8 . E.encodeUtf8) `eq` id
 tl_utf8      = forAll genUnicode $ (EL.decodeUtf8 . EL.encodeUtf8) `eq` id
 t_utf16LE    = forAll genUnicode $ (E.decodeUtf16LE . E.encodeUtf16LE) `eq` id
 
   testGroup "transcoding" [
     testProperty "t_ascii" t_ascii,
+    testProperty "tl_ascii" tl_ascii,
     testProperty "t_utf8" t_utf8,
     testProperty "tl_utf8" tl_utf8,
     testProperty "t_utf16LE" t_utf16LE,