gistfile1.clj

(deftest test-encrypt-decrypt
  (let [vault (->CryptoVault keystore-fname passw)
        key (get-secret-key-from-keystore vault)]

    (testing "Encrypt one simple string"
      (let [fname "tiger.boy"]
        (encrypt vault fname "Tiger Tiger Tiger")
        (let [msg (decrypt vault fname)]
          (is (not (nil? msg)))
          (is (= "Tiger Tiger Tiger" msg)))))
    
    (testing "Encrypt/decrypt large string"
      (let [fname "gettys.addr"]
        (encrypt vault fname gettysburg-address)
        (is (= gettysburg-address (decrypt vault fname)))))
    ))