· 7 years ago · Apr 12, 2018, 10:20 AM
1(deftest test-encrypt-decrypt
2 (let [message "Foo Bar Bizz Buzz"
3 algorithm "AES/CBC/PKCS5Padding"
4 param (gen-iv-param 16)]
5 (is (= (decrypt *secret-key* algorithm param
6 (encrypt *secret-key* algorithm param message))
7 message))))