diff options
author | Sam T <pxqr.sta@gmail.com> | 2013-09-26 22:41:45 +0400 |
---|---|---|
committer | Sam T <pxqr.sta@gmail.com> | 2013-09-26 22:41:45 +0400 |
commit | 6769babed0d4a027ca4d890c5a2a1f74df59351e (patch) | |
tree | 41f3512afefc7357344714bd1b38148180077d92 /tests/Data | |
parent | 13dc0f086d3d8f217a2818a429ac117c97397e9b (diff) |
Minor fix
Diffstat (limited to 'tests/Data')
-rw-r--r-- | tests/Data/ByteString/Base32Spec.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Data/ByteString/Base32Spec.hs b/tests/Data/ByteString/Base32Spec.hs index 60e340c..66df53a 100644 --- a/tests/Data/ByteString/Base32Spec.hs +++ b/tests/Data/ByteString/Base32Spec.hs | |||
@@ -29,7 +29,7 @@ spec = do | |||
29 | it "size always multiple of 8 bytes" $ property $ \bs -> | 29 | it "size always multiple of 8 bytes" $ property $ \bs -> |
30 | (BS.length (encode bs) `rem` 8) `shouldBe` 0 | 30 | (BS.length (encode bs) `rem` 8) `shouldBe` 0 |
31 | 31 | ||
32 | it "padding less than" $ property $ \bs -> | 32 | it "padding less than 8 bytes" $ property $ \bs -> |
33 | BC.count '=' bs `shouldSatisfy` (< 8) | 33 | BC.count '=' bs `shouldSatisfy` (< 8) |
34 | 34 | ||
35 | describe "decode" $ do | 35 | describe "decode" $ do |