diff options
-rw-r--r-- | tests/Data/ByteString/Base32Spec.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/Data/ByteString/Base32Spec.hs b/tests/Data/ByteString/Base32Spec.hs index 3c646e2..ff3e13c 100644 --- a/tests/Data/ByteString/Base32Spec.hs +++ b/tests/Data/ByteString/Base32Spec.hs | |||
@@ -2,6 +2,7 @@ | |||
2 | module Data.ByteString.Base32Spec (spec) where | 2 | module Data.ByteString.Base32Spec (spec) where |
3 | 3 | ||
4 | import Control.Applicative | 4 | import Control.Applicative |
5 | import Control.Exception | ||
5 | import Data.ByteString as BS | 6 | import Data.ByteString as BS |
6 | import Data.ByteString.Internal as BS | 7 | import Data.ByteString.Internal as BS |
7 | import Data.ByteString.Base32 as Base32 | 8 | import Data.ByteString.Base32 as Base32 |
@@ -43,4 +44,8 @@ spec = do | |||
43 | it "inverse for encode" $ property $ \bs -> | 44 | it "inverse for encode" $ property $ \bs -> |
44 | decode (encode bs) == bs | 45 | decode (encode bs) == bs |
45 | 46 | ||
47 | it "fail gracefully if encoded data contains non alphabet chars" $ do | ||
48 | evaluate (decode "0=======") `shouldThrow` anyErrorCall | ||
49 | evaluate (decode "AAAAAAAA0=======") `shouldThrow` anyErrorCall | ||
50 | |||
46 | -- describe "decodeLenient" $ do | 51 | -- describe "decodeLenient" $ do |