|
|
(ns cipher-analytical-machine.caesar-analyzers-test
|
|
|
(:require
|
|
|
[clojure.test :refer :all]
|
|
|
[cipher-analytical-machine.caesar-analyzers :refer :all]
|
|
|
[cipher-analytical-machine.symbol-frequences :as sf]
|
|
|
[cipher-analytical-machine.cipher-analyzers :as ca]
|
|
|
[clojure.string :as cs]))
|
|
|
|
|
|
(deftest get-all-texts-test
|
|
|
(testing "There're three text when the text is 'abc' and the set of symbol is 'abc'."
|
|
|
(is (= 3 (count (get-all-texts "abc" "abc")))))
|
|
|
|
|
|
(testing "A pair must have an integer and a string."
|
|
|
(let [pairs (get-all-texts "abc" "abc")
|
|
|
pair (first pairs)]
|
|
|
(is (and (int? (first pair))
|
|
|
(string? (last pair))))))
|
|
|
|
|
|
(testing "There're 27 combinations for a 'Hello World'."
|
|
|
(let [ciphertext "khoorczruog"
|
|
|
symbols "abcdefghijklmnopqrstuvwxyz "]
|
|
|
(is (= 27 (count (get-all-texts ciphertext symbols)))))))
|
|
|
|
|
|
(deftest get-all-scores-test
|
|
|
(testing "There're 27 combinations for a 'Hello World'."
|
|
|
(let [ciphertext "khoorczruog"
|
|
|
symbols "abcdefghijklmnopqrstuvwxyz "
|
|
|
frequences sf/english-letter-frequences
|
|
|
text-pairs (get-all-texts ciphertext symbols)]
|
|
|
(is (= 27 (count (get-all-scores frequences text-pairs)))))))
|
|
|
|
|
|
(deftest get-min-score-pair-test
|
|
|
(testing "If a key is one, then the min score pair is 15."
|
|
|
(let [scores (list [0 20.0] [1 15.0] [2 30.0])
|
|
|
min-score-pair (get-min-score-pair scores)]
|
|
|
(is (= [1 15.0] min-score-pair)))))
|
|
|
|
|
|
(deftest get-key-test
|
|
|
(let [plaintext "hello world"
|
|
|
ciphertext "khoorczruog"
|
|
|
key 3
|
|
|
symbols "abcdefghijklmnopqrstuvwxyz "
|
|
|
frequences sf/english-letter-frequences]
|
|
|
(testing "The plaintext is encrypted with 3 as the key."
|
|
|
(is (= key (get-key ciphertext symbols frequences)))))
|
|
|
|
|
|
(let [; З поеми "Кавказ" Тараса Григоровича Шевченка:
|
|
|
plaintext "Борітеся – поборете, Вам Бог помагає! За вас правда, за вас слава. І воля святая!"
|
|
|
ciphertext "жхчощйшде–ецхжхчйщй,езєуежхиецхуєиєк!емєезєшецчєзїє,емєезєшештєзє.еоезхтдешздщєд!"
|
|
|
key 7
|
|
|
symbols "абвгґдеєжзиіїйклмнопрстуфхцчшщьюя "
|
|
|
frequences sf/ukrainian-letter-frequences]
|
|
|
(testing "The plaintext is encrypted with 3 as the key."
|
|
|
(is (= key (get-key ciphertext symbols frequences))))))
|
|
|
|
|
|
(deftest get-plaintext-test
|
|
|
(let [plaintext "hello world"
|
|
|
ciphertext "khoorczruog"
|
|
|
symbols "abcdefghijklmnopqrstuvwxyz "
|
|
|
frequences sf/english-letter-frequences]
|
|
|
(testing "The plaintext is encrypted with 3 as the key."
|
|
|
(is (= plaintext (get-plaintext ciphertext symbols frequences))))
|
|
|
|
|
|
(testing "The ciphertext is case-insensitive."
|
|
|
(is (= plaintext (get-plaintext "KhoorcZruog" symbols frequences)))))
|
|
|
|
|
|
(let [; З поеми "Кавказ" Тараса Григоровича Шевченка:
|
|
|
plaintext "Борітеся – поборете, Вам Бог помагає! За вас правда, за вас слава. І воля святая!"
|
|
|
ciphertext "жхчощйшде–ецхжхчйщй,езєуежхиецхуєиєк!емєезєшецчєзїє,емєезєшештєзє.еоезхтдешздщєд!"
|
|
|
key 7
|
|
|
symbols "абвгґдеєжзиіїйклмнопрстуфхцчшщьюя "
|
|
|
frequences sf/ukrainian-letter-frequences]
|
|
|
(testing "The ciphertext is case-insensitive."
|
|
|
(is (= (cs/lower-case plaintext)
|
|
|
(get-plaintext ciphertext symbols frequences))))))
|
|
|
|
