Add the clojure wrapper for the frequency analizer and its test.

2023-10-05 20:10:05 +03:00
parent 40af8401b2
commit 51609b1d27
2 changed files with 21 additions and 0 deletions
@@ -74,3 +74,13 @@
      (is (= (cs/lower-case plaintext)
             (get-plaintext ciphertext symbols frequences))))))

+(deftest frequency-analizer-get-plaintext-test
+  (let [plaintext "abc"
+        ciphertext "bca"
+        key 1
+        symbols "abc"
+        frequences sf/english-letter-frequences]
+    (testing "The ciphertext is 'bca' and key is 1."
+      (is (= plaintext
+             (frequency-analizer-get-plaintext ciphertext symbols frequences))))))
+