haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Test Curve25519.toPublic

Browse Source
This commit is contained in:
Olivier Chéron 2017-05-06 08:43:14 +02:00
parent ac7eaac523
commit 7472caf838
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/KAT_Curve25519.hs
View File

@ -16,6 +16,8 @@ katTests :: [TestTree]
katTests = katTests =
[ testCase "0" (aliceMultBob @=? B.convert (Curve25519.dh alicePublic bobPrivate)) [ testCase "0" (aliceMultBob @=? B.convert (Curve25519.dh alicePublic bobPrivate))
, testCase "1" (aliceMultBob @=? B.convert (Curve25519.dh bobPublic alicePrivate)) , testCase "1" (aliceMultBob @=? B.convert (Curve25519.dh bobPublic alicePrivate))
, testCase "2" (alicePublic @=? Curve25519.toPublic alicePrivate)
, testCase "3" (bobPublic @=? Curve25519.toPublic bobPrivate)
] ]
tests = testGroup "Curve25519" tests = testGroup "Curve25519"