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 | |
| parent | 13dc0f086d3d8f217a2818a429ac117c97397e9b (diff) | |
Minor fix
| -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 |