X-Git-Url: http://git.euphorik.ch/?p=crypto_lab2.git;a=blobdiff_plain;f=labo2-fsharp%2FCryptoFile%2FUnitTests.fs;fp=labo2-fsharp%2FCryptoFile%2FUnitTests.fs;h=51912d35306be0821126540543cb8527083be7c0;hp=7345538945b072ec16a7cf6310c2486bfec27764;hb=c0d86015957eda6badbe9c6e5256807f9ab0c02f;hpb=8e04e7140bd58f941930dc15b890236f8a20c67b

diff --git a/labo2-fsharp/CryptoFile/UnitTests.fs b/labo2-fsharp/CryptoFile/UnitTests.fs
index 7345538..51912d3 100644
--- a/labo2-fsharp/CryptoFile/UnitTests.fs
+++ b/labo2-fsharp/CryptoFile/UnitTests.fs
@@ -7,7 +7,7 @@ module UnitTests =
     open Crypto
 
     let testRSA () =
-        let kpub, kpriv = generateRSAKeysPair
+        let kpub, kpriv = generateRSAKeysPair ()
         let plaintext = "Are you from the past?"
         let cipherdata = encryptRSA kpub (Encoding.UTF8.GetBytes plaintext)
         let decryptedData = decryptRSA kpriv cipherdata
@@ -17,7 +17,7 @@ module UnitTests =
         printfn "testRSA OK"
 
     let testRSASignature () =
-        let kpub, kpriv = generateRSAKeysPair
+        let kpub, kpriv = generateRSAKeysPair ()
         let plaintext = "Lightspeed is too slow. We'll have to go right to ludicrous speed!"
         use sha256 = new SHA256Managed ()
         let signature = signRSA kpriv (sha256.ComputeHash (Encoding.UTF8.GetBytes plaintext))