From ecc7c859118e022b1f3d8fff5b74702d4c0bab71 Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Tue, 24 Apr 2012 17:51:02 -0500 Subject: Some fixes for signature verification --- tests/suite.hs | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'tests') diff --git a/tests/suite.hs b/tests/suite.hs index 59b9c03..d1b232c 100644 --- a/tests/suite.hs +++ b/tests/suite.hs @@ -29,6 +29,13 @@ testFingerprint fp kf = do let (OpenPGP.Message [packet]) = decode bs assertEqual ("for " ++ fp) kf (OpenPGP.fingerprint packet) +testVerifyMessage :: FilePath -> FilePath -> Assertion +testVerifyMessage keyring message = do + keys <- fmap decode $ LZ.readFile $ "tests/data/" ++ keyring + m <- fmap decode $ LZ.readFile $ "tests/data/" ++ message + let verification = OpenPGP.verify keys m 0 + assertEqual (keyring ++ " for " ++ message) True verification + prop_s2k_count :: Word8 -> Bool prop_s2k_count c = c == OpenPGP.encode_s2k_count (OpenPGP.decode_s2k_count c) @@ -130,6 +137,14 @@ tests = testCase "000027-006.public_key" (testFingerprint "000027-006.public_key" "1EB20B2F5A5CC3BEAFD6E5CB7732CF988A63EA86"), testCase "000035-006.public_key" (testFingerprint "000035-006.public_key" "CB7933459F59C70DF1C3FBEEDEDC3ECF689AF56D") ], + testGroup "Message verification group" [ + --testCase "uncompressed-ops-dsa" (testVerifyMessage "pubring.gpg" "uncompressed-ops-dsa.gpg"), + --testCase "uncompressed-ops-dsa-sha384" (testVerifyMessage "pubring.gpg" "uncompressed-ops-dsa-sha384.txt.gpg"), + testCase "uncompressed-ops-rsa" (testVerifyMessage "pubring.gpg" "uncompressed-ops-rsa.gpg"), + testCase "compressedsig" (testVerifyMessage "pubring.gpg" "compressedsig.gpg"), + testCase "compressedsig-zlib" (testVerifyMessage "pubring.gpg" "compressedsig-zlib.gpg"), + testCase "compressedsig-bzip2" (testVerifyMessage "pubring.gpg" "compressedsig-bzip2.gpg") + ], testGroup "S2K count" [ testProperty "S2K count encode reverses decode" prop_s2k_count ] -- cgit v1.2.3