X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=labo2-fsharp%2FCryptoFileTests%2FProgram.fs;h=a0cfba9cd5268d43f239e942456b446ce14bcce8;hb=0b7780e07ae1ab4d4c9caf70f66359398e6f0c35;hp=4b8307245ec55993038759904dcb84edbf82341b;hpb=137157b6dbd5efb99b486a30da6e10b0a175f530;p=crypto_lab2.git

diff --git a/labo2-fsharp/CryptoFileTests/Program.fs b/labo2-fsharp/CryptoFileTests/Program.fs
index 4b83072..a0cfba9 100644
--- a/labo2-fsharp/CryptoFileTests/Program.fs
+++ b/labo2-fsharp/CryptoFileTests/Program.fs
@@ -24,24 +24,23 @@ module internal Keys =
         | _ ->
             use swPub = new StreamWriter (filenamePub)
             use swPriv = new StreamWriter (filenamePriv)
-            let keySigPub, keySigPriv = API.generatKeysPair
-            swPub.Write keySigPub
-            swPriv.Write keySigPriv
-            keySigPub, keySigPriv
+            let keyPub, keyPriv = API.generatKeysPair
+            swPub.Write keyPub
+            swPriv.Write keyPriv
+            keyPub, keyPriv
 
     let getSig : Key * Key = getKey "keys-sign.pub" "keys-sign.priv"
     let getCrypt : Key * Key = getKey "keys-crypt.pub" "keys-crypt.priv"
 
 [<EntryPoint>]
 let main args = 
-    printfn "Labo n°2"
-
     let keySigPub, keySigPriv = Keys.getSig
     let keyCryptPub, keyCryptPriv = Keys.getCrypt
 
     match args with
-    | [| "tests" |] -> Tests.runAllTests ()
+    | [| "tests" |] -> Tests.doSomeTests ()
     | [| "encrypt"; input; output |] -> API.encryptFile input output keySigPriv keyCryptPub
     | [| "decrypt"; input; outputDir |] -> API.decryptFile input outputDir keySigPub keyCryptPriv
     | _ -> printUsage ()
     0
+   
\ No newline at end of file