Ignore error if character is out of base32 alphabet

3.3.  Interpretation of Non-Alphabet Characters in Encoded Data

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 @@
 module Data.ByteString.Base32Spec (spec) where
 
 import Control.Applicative
+import Control.Exception
 import Data.ByteString as BS
 import Data.ByteString.Internal as BS
 import Data.ByteString.Base32 as Base32
@@ -43,4 +44,8 @@ spec = do
     it "inverse for encode" $ property $ \bs ->
       decode (encode bs) == bs
 
+    it "fail gracefully if encoded data contains non alphabet chars" $ do
+      evaluate (decode "0=======")         `shouldThrow` anyErrorCall
+      evaluate (decode "AAAAAAAA0=======") `shouldThrow` anyErrorCall
+
 --  describe "decodeLenient" $ do