KKlochko/cipher-analytical-machine
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 3 Wiki Activity

Fix the typo "frequences" to frequencies.

Browse Source
This commit is contained in:
KKlochko
2023-10-12 22:00:01 +03:00
parent 4d7e9da1d1
commit 476a24c900
5 changed files with 26 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/cipher_analytical_machine/analyzers/caesar_test.clj
+14 -14
View File
@@ -2,7 +2,7 @@
(:require
[clojure.test :refer :all]
[cipher-analytical-machine.analyzers.caesar :refer :all]
[cipher-analytical-machine.symbols.frequences :as sf]
[cipher-analytical-machine.symbols.frequencies :as sf]
[cipher-analytical-machine.analyzers.analyzers :as ca]
[clojure.string :as cs]))
@@ -25,9 +25,9 @@
(testing "There're 27 combinations for a 'Hello World'."
(let [ciphertext "khoorczruog"
symbols "abcdefghijklmnopqrstuvwxyz "
frequences sf/english-letter-frequences
frequencies sf/english-letter-frequencies
text-pairs (get-all-texts ciphertext symbols)]
(is (= 27 (count (get-all-scores frequences text-pairs)))))))
(is (= 27 (count (get-all-scores frequencies text-pairs)))))))
(deftest get-min-score-pair-test
(testing "If a key is one, then the min score pair is 15."
@@ -40,47 +40,47 @@
ciphertext "khoorczruog"
key 3
symbols "abcdefghijklmnopqrstuvwxyz "
frequences sf/english-letter-frequences]
frequencies sf/english-letter-frequencies]
(testing "The plaintext is encrypted with 3 as the key."
(is (= key (get-key ciphertext symbols frequences)))))
(is (= key (get-key ciphertext symbols frequencies)))))
(let [; З поеми "Кавказ" Тараса Григоровича Шевченка:
plaintext "Борітеся – поборете, Вам Бог помагає! За вас правда, за вас слава. І воля святая!"
ciphertext "жхчощйшде–ецхжхчйщй,езєуежхиецхуєиєк!емєезєшецчєзїє,емєезєшештєзє.еоезхтдешздщєд!"
key 7
symbols "абвгґдеєжзиіїйклмнопрстуфхцчшщьюя "
frequences sf/ukrainian-letter-frequences]
frequencies sf/ukrainian-letter-frequencies]
(testing "The plaintext is encrypted with 3 as the key."
(is (= key (get-key ciphertext symbols frequences))))))
(is (= key (get-key ciphertext symbols frequencies))))))
(deftest get-plaintext-test
(let [plaintext "hello world"
ciphertext "khoorczruog"
symbols "abcdefghijklmnopqrstuvwxyz "
frequences sf/english-letter-frequences]
frequencies sf/english-letter-frequencies]
(testing "The plaintext is encrypted with 3 as the key."
(is (= plaintext (get-plaintext ciphertext symbols frequences))))
(is (= plaintext (get-plaintext ciphertext symbols frequencies))))
(testing "The ciphertext is case-insensitive."
(is (= plaintext (get-plaintext "KhoorcZruog" symbols frequences)))))
(is (= plaintext (get-plaintext "KhoorcZruog" symbols frequencies)))))
(let [; З поеми "Кавказ" Тараса Григоровича Шевченка:
plaintext "Борітеся – поборете, Вам Бог помагає! За вас правда, за вас слава. І воля святая!"
ciphertext "жхчощйшде–ецхжхчйщй,езєуежхиецхуєиєк!емєезєшецчєзїє,емєезєшештєзє.еоезхтдешздщєд!"
key 7
symbols "абвгґдеєжзиіїйклмнопрстуфхцчшщьюя "
frequences sf/ukrainian-letter-frequences]
frequencies sf/ukrainian-letter-frequencies]
(testing "The ciphertext is case-insensitive."
(is (= (cs/lower-case plaintext)
(get-plaintext ciphertext symbols frequences))))))
(get-plaintext ciphertext symbols frequencies))))))
(deftest frequency-analizer-get-plaintext-test
(let [plaintext "abc"
ciphertext "bca"
key 1
symbols "abc"
frequences sf/english-letter-frequences]
frequencies sf/english-letter-frequencies]
(testing "The ciphertext is 'bca' and key is 1."
(is (= plaintext
(frequency-analizer-get-plaintext ciphertext symbols frequences))))))
(frequency-analizer-get-plaintext ciphertext symbols frequencies))))))