| _ ->
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"
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 ()