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
    it "size always multiple of 8 bytes" $ property $ \bs ->
      (BS.length (encode bs) `rem` 8) `shouldBe` 0
-    it "padding less than" $ property $ \bs ->
+    it "padding less than 8 bytes" $ property $ \bs ->
      BC.count '=' bs `shouldSatisfy` (< 8)
  describe "decode" $ do

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