diff options
author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-29 12:26:17 +0400 |
---|---|---|
committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-29 12:26:17 +0400 |
commit | 59a3c549a8180523e35e1dd53af8627eb5731c67 (patch) | |
tree | 288924dc7c093213e961c9e99218753c001816dd /tests/Data/ByteString/Base32/HexSpec.hs | |
parent | fb47559e6d4e69c18aa0e047128daf94299b518c (diff) |
Follow error handling changes in tests
Diffstat (limited to 'tests/Data/ByteString/Base32/HexSpec.hs')
-rw-r--r-- | tests/Data/ByteString/Base32/HexSpec.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tests/Data/ByteString/Base32/HexSpec.hs b/tests/Data/ByteString/Base32/HexSpec.hs index 7cddb69..9b2e730 100644 --- a/tests/Data/ByteString/Base32/HexSpec.hs +++ b/tests/Data/ByteString/Base32/HexSpec.hs | |||
@@ -3,7 +3,6 @@ | |||
3 | module Data.ByteString.Base32.HexSpec ( spec ) where | 3 | module Data.ByteString.Base32.HexSpec ( spec ) where |
4 | 4 | ||
5 | import Control.Applicative | 5 | import Control.Applicative |
6 | import Control.Exception | ||
7 | import Data.ByteString as BS | 6 | import Data.ByteString as BS |
8 | import Data.ByteString.Char8 as BC | 7 | import Data.ByteString.Char8 as BC |
9 | import Data.ByteString.Base32.Hex | 8 | import Data.ByteString.Base32.Hex |
@@ -44,8 +43,8 @@ spec = do | |||
44 | decode (BC.map toLower (encode bs)) == Right bs | 43 | decode (BC.map toLower (encode bs)) == Right bs |
45 | 44 | ||
46 | it "fail gracefully if encoded data contains non alphabet chars" $ do | 45 | it "fail gracefully if encoded data contains non alphabet chars" $ do |
47 | evaluate (decode "#=======") `shouldThrow` anyErrorCall | 46 | decode "#=======" `shouldBe` Left "'#' is not base32 character" |
48 | evaluate (decode "AAAAAAAA#=======") `shouldThrow` anyErrorCall | 47 | decode "AAAAAAAA#=======" `shouldBe` Left "'#' is not base32 character" |
49 | 48 | ||
50 | describe "decodeLenient" $ do | 49 | describe "decodeLenient" $ do |
51 | it "conform RFC examples" $ do | 50 | it "conform RFC examples" $ do |