Closed loisch closed 11 years ago
Verified in the following interactive session: $ ghci -package QuickCheck Data/ByteString/Base16.hs
let prop x = fst (decode (encode (Data.ByteString.Char8.pack x))) == Data.ByteString.Char8.pack x Test.QuickCheck.quickCheck prop +++ OK, passed 100 tests. let prop2 x = fst (decode (Data.ByteString.Char8.map Data.Char.toUpper (encode (Data.ByteString.Char8.pack x)))) == Data.ByteString.Char8.pack x Test.QuickCheck.quickCheck prop2 +++ OK, passed 100 tests.
Would you mind releasing this to Hackage? This is a pretty nasty bug to leave out there.
Verified in the following interactive session: $ ghci -package QuickCheck Data/ByteString/Base16.hs