diff options
Diffstat (limited to 'tests/Data/ByteString')
-rw-r--r-- | tests/Data/ByteString/Base32/HexSpec.hs | 16 |
1 files 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 | |||
48 | 48 | ||
49 | describe "decodeLenient" $ do | 49 | describe "decodeLenient" $ do |
50 | it "conform RFC examples" $ do | 50 | it "conform RFC examples" $ do |
51 | decodeLenient "" `shouldBe` "" | 51 | decode "" `shouldBe` "" |
52 | decodeLenient "MY======" `shouldBe` "f" | 52 | decode "CO======" `shouldBe` "f" |
53 | decodeLenient "MZXQ====" `shouldBe` "fo" | 53 | decode "CPNG====" `shouldBe` "fo" |
54 | decodeLenient "MZXW6===" `shouldBe` "foo" | 54 | decode "CPNMU===" `shouldBe` "foo" |
55 | decodeLenient "MZXW6YQ=" `shouldBe` "foob" | 55 | decode "CPNMUOG=" `shouldBe` "foob" |
56 | decodeLenient "MZXW6YTB" `shouldBe` "fooba" | 56 | decode "CPNMUOJ1" `shouldBe` "fooba" |
57 | decodeLenient "MZXW6YTBOI======" `shouldBe` "foobar" | 57 | decode "CPNMUOJ1E8======" `shouldBe` "foobar" |
58 | 58 | ||
59 | it "inverse for encode" $ property $ \bs -> | 59 | it "inverse for encode" $ property $ \bs -> |
60 | decodeLenient (encode bs) == bs | 60 | decodeLenient (encode bs) == bs |
@@ -64,4 +64,4 @@ spec = do | |||
64 | 64 | ||
65 | it "skip non alphabet chars" $ do | 65 | it "skip non alphabet chars" $ do |
66 | decodeLenient "|" `shouldBe` "" | 66 | decodeLenient "|" `shouldBe` "" |
67 | decodeLenient "M|Y" `shouldBe` "f" | 67 | decodeLenient "C|O" `shouldBe` "f" |