From 100fc7dc0c7ce85aad0e413b97a90b98185326ef Mon Sep 17 00:00:00 2001 From: Benjamin Barenblat Date: Tue, 25 Sep 2018 18:13:26 -0400 Subject: Give `Algorithm` a `Show` instance --- tests/Data/DigestTests.hs | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'tests') diff --git a/tests/Data/DigestTests.hs b/tests/Data/DigestTests.hs index d56c3d8..cb62b55 100644 --- a/tests/Data/DigestTests.hs +++ b/tests/Data/DigestTests.hs @@ -15,13 +15,27 @@ module Data.DigestTests (tests) where import Test.Tasty (TestTree, testGroup) +import Test.Tasty.HUnit ((@?), testCase) +import Data.Digest (md5, sha1, sha224, sha256, sha384, sha512) import qualified Data.Digest.MD5Tests import qualified Data.Digest.SHA1Tests import qualified Data.Digest.SHA2Tests tests :: TestTree tests = testGroup "Data.Digest" - [ Data.Digest.MD5Tests.tests + [ showTests + , Data.Digest.MD5Tests.tests , Data.Digest.SHA1Tests.tests , Data.Digest.SHA2Tests.tests ] + +showTests = testGroup "show" + [ testNonEmpty "MD5" (show md5) + , testNonEmpty "SHA-1" (show sha1) + , testNonEmpty "SHA-224" (show sha224) + , testNonEmpty "SHA-256" (show sha256) + , testNonEmpty "SHA-384" (show sha384) + , testNonEmpty "SHA-512" (show sha512) ] + where + testNonEmpty description string = testCase description $ + not (null string) @? "expected: nonempty string\n but got: " ++ show string -- cgit v1.2.3