diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/suite.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/suite.hs b/tests/suite.hs index 3094214..feb5fe6 100644 --- a/tests/suite.hs +++ b/tests/suite.hs | |||
@@ -44,6 +44,10 @@ prop_MPI_serialization_loop :: OpenPGP.MPI -> Bool | |||
44 | prop_MPI_serialization_loop mpi = | 44 | prop_MPI_serialization_loop mpi = |
45 | mpi == decode' (encode mpi) | 45 | mpi == decode' (encode mpi) |
46 | 46 | ||
47 | prop_S2K_serialization_loop :: OpenPGP.S2K -> Bool | ||
48 | prop_S2K_serialization_loop s2k = | ||
49 | s2k == decode' (encode s2k) | ||
50 | |||
47 | prop_SignatureSubpacket_serialization_loop :: OpenPGP.SignatureSubpacket -> Bool | 51 | prop_SignatureSubpacket_serialization_loop :: OpenPGP.SignatureSubpacket -> Bool |
48 | prop_SignatureSubpacket_serialization_loop packet = | 52 | prop_SignatureSubpacket_serialization_loop packet = |
49 | packet == decode' (encode packet) | 53 | packet == decode' (encode packet) |
@@ -141,6 +145,7 @@ tests = | |||
141 | testCase "uncompressed-ops-dsa-sha384.txt.gpg" (testSerialization "uncompressed-ops-dsa-sha384.txt.gpg"), | 145 | testCase "uncompressed-ops-dsa-sha384.txt.gpg" (testSerialization "uncompressed-ops-dsa-sha384.txt.gpg"), |
142 | testCase "uncompressed-ops-rsa.gpg" (testSerialization "uncompressed-ops-rsa.gpg"), | 146 | testCase "uncompressed-ops-rsa.gpg" (testSerialization "uncompressed-ops-rsa.gpg"), |
143 | testProperty "MPI encode/decode" prop_MPI_serialization_loop, | 147 | testProperty "MPI encode/decode" prop_MPI_serialization_loop, |
148 | testProperty "S2K encode/decode" prop_S2K_serialization_loop, | ||
144 | testProperty "SignatureSubpacket encode/decode" prop_SignatureSubpacket_serialization_loop | 149 | testProperty "SignatureSubpacket encode/decode" prop_SignatureSubpacket_serialization_loop |
145 | ], | 150 | ], |
146 | testGroup "S2K count" [ | 151 | testGroup "S2K count" [ |