From 7472caf8380082c705af0bbe42a13b50812eb126 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Olivier=20Ch=C3=A9ron?= <olivier.cheron@gmail.com>
Date: Sat, 6 May 2017 08:43:14 +0200
Subject: [PATCH] Test Curve25519.toPublic

---
 tests/KAT_Curve25519.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tests/KAT_Curve25519.hs b/tests/KAT_Curve25519.hs
index ad368f5..06f1b63 100644
--- a/tests/KAT_Curve25519.hs
+++ b/tests/KAT_Curve25519.hs
@@ -16,6 +16,8 @@ katTests :: [TestTree]
 katTests =
     [ testCase "0" (aliceMultBob @=? B.convert (Curve25519.dh alicePublic bobPrivate))
     , testCase "1" (aliceMultBob @=? B.convert (Curve25519.dh bobPublic alicePrivate))
+    , testCase "2" (alicePublic  @=? Curve25519.toPublic alicePrivate)
+    , testCase "3" (bobPublic    @=? Curve25519.toPublic bobPrivate)
     ]
 
 tests = testGroup "Curve25519"