You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
60 lines
1.9 KiB
60 lines
1.9 KiB
(ns cipher-analytical-machine.symbol-factories-test
|
|
(:require
|
|
[clojure.test :refer :all]
|
|
[cipher-analytical-machine.symbol-factories :refer :all]
|
|
))
|
|
|
|
(deftest english-alphabet-factory-test
|
|
(let [symbols (english-alphabet-factory)]
|
|
(testing "It must have the same order."
|
|
(is (= "abcdefghijklmnopqrstuvwxyz" symbols)))
|
|
|
|
(testing "It must have 26 letters."
|
|
(is (= 26 (count symbols))))))
|
|
|
|
(deftest ukrainian-alphabet-factory-test
|
|
(let [symbols (ukrainian-alphabet-factory)]
|
|
(testing "It must have the same order."
|
|
(is (= "абвгґдеєжзиіїйклмнопрстуфхцчшщьюя" symbols)))
|
|
|
|
(testing "It must have 33 letters."
|
|
(is (= 33 (count symbols))))))
|
|
|
|
(deftest digit-set-factory-test
|
|
(let [symbols (digit-set-factory)]
|
|
(testing "It must have the same order."
|
|
(is (= "0123456789" symbols)))
|
|
|
|
(testing "It must have 10 digits."
|
|
(is (= 10 (count symbols))))))
|
|
|
|
(deftest punctuation-symbol-factory-test
|
|
(let [symbols (punctuation-symbol-factory)]
|
|
(testing "It must have the same order."
|
|
(is (= ".,:;-!?" symbols)))
|
|
|
|
(testing "It must have 7 symbols."
|
|
(is (= 7 (count symbols))))))
|
|
|
|
(deftest space-symbol-factory-test
|
|
(let [symbols (space-symbol-factory)]
|
|
(testing "It must have the same order."
|
|
(is (= " \t\n" symbols)))
|
|
|
|
(testing "It must have 3 symbols."
|
|
(is (= 3 (count symbols))))))
|
|
|
|
(deftest default-symbol-factory-test
|
|
(testing "If language code is 'en', then it must have 27 symbols."
|
|
(let [symbols (default-symbol-factory "en")]
|
|
(is (= 27 (count symbols)))))
|
|
|
|
(testing "If language code is 'uk', then it must have 34 symbols."
|
|
(let [symbols (default-symbol-factory "uk")]
|
|
(is (= 34 (count symbols)))))
|
|
|
|
(testing "If language code is unidentified, then it must have the 'en'."
|
|
(let [symbols (default-symbol-factory "Maybe a code")]
|
|
(is (= 27 (count symbols))))))
|
|
|