From 6769babed0d4a027ca4d890c5a2a1f74df59351e Mon Sep 17 00:00:00 2001 From: Sam T Date: Thu, 26 Sep 2013 22:41:45 +0400 Subject: Minor fix --- tests/Data/ByteString/Base32Spec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.3