Add a generator for the sorted substitution table.

test/cipher_analytical_machine/ciphers/simple_substitution_test.clj

@@ -22,6 +22,13 @@
         1 \a
         5 nil))))
 
+(deftest generate-sorted-substitution-table-test
+  (testing "If the symbol is in the table as a key, then the result won't nil."
+    (are [symbols expected-table]
+        (= expected-table (generate-sorted-substitution-table symbols))
+      "abc" {0 \a 1 \b 2 \c}
+      "a" {0 \a})))
+
 (deftest encrypt-message-test
   (let [symbols "abc"
         table {\a 1 \b 2 \c 3}]