From 4d2903941807ce09736bd5144b3575e66c936922 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Fri, 4 Oct 2013 15:04:44 +0400 Subject: Fix base32hex tests --- tests/Data/ByteString/Base32/HexSpec.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/tests/Data/ByteString/Base32/HexSpec.hs b/tests/Data/ByteString/Base32/HexSpec.hs index 3a04b09..2cdadef 100644 --- a/tests/Data/ByteString/Base32/HexSpec.hs +++ b/tests/Data/ByteString/Base32/HexSpec.hs @@ -48,13 +48,13 @@ spec = do describe "decodeLenient" $ do it "conform RFC examples" $ do - decodeLenient "" `shouldBe` "" - decodeLenient "MY======" `shouldBe` "f" - decodeLenient "MZXQ====" `shouldBe` "fo" - decodeLenient "MZXW6===" `shouldBe` "foo" - decodeLenient "MZXW6YQ=" `shouldBe` "foob" - decodeLenient "MZXW6YTB" `shouldBe` "fooba" - decodeLenient "MZXW6YTBOI======" `shouldBe` "foobar" + decode "" `shouldBe` "" + decode "CO======" `shouldBe` "f" + decode "CPNG====" `shouldBe` "fo" + decode "CPNMU===" `shouldBe` "foo" + decode "CPNMUOG=" `shouldBe` "foob" + decode "CPNMUOJ1" `shouldBe` "fooba" + decode "CPNMUOJ1E8======" `shouldBe` "foobar" it "inverse for encode" $ property $ \bs -> decodeLenient (encode bs) == bs @@ -64,4 +64,4 @@ spec = do it "skip non alphabet chars" $ do decodeLenient "|" `shouldBe` "" - decodeLenient "M|Y" `shouldBe` "f" + decodeLenient "C|O" `shouldBe` "f" -- cgit v1.2.3