Skip to content

simple-cipher: Add the ability to select which tests to run #876

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
tasxatzial merged 1 commit into from
Apr 4, 2026
Merged

simple-cipher: Add the ability to select which tests to run #876

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 3 additions & 3 deletions exercises/practice/simple-cipher/.meta/generator.tpl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3,13 +3,13 @@
simple-cipher))

{{#test_cases.key}}
(deftest rand-key_test_{{idx}}
(deftest ^:rand-key rand-key_test_{{idx}}
(testing {{context}}
(is (true? (boolean (re-matches #{{expected.match}} (simple-cipher/rand-key)))))))
{{/test_cases.key}}

{{#test_cases.encode}}
(deftest encode_test_{{idx}}
(deftest ^:encode encode_test_{{idx}}
(testing {{context}}
{{#if input.key~}}
(is (= {{expected}} (simple-cipher/encode {{input.key}} {{input.plaintext}})))))
Expand All @@ -20,7 +20,7 @@
{{/test_cases.encode}}

{{#test_cases.decode}}
(deftest decode_test_{{idx}}
(deftest ^:decode decode_test_{{idx}}
(testing {{context}}
{{#if input.key~}}
(is (= {{expected}} (simple-cipher/decode {{input.key}} {{#if input.plaintext}}(simple-cipher/encode {{input.key}} {{input.plaintext}}){{else}}{{input.ciphertext}}{{/if}})))))
Expand Down
5 changes: 4 additions & 1 deletion exercises/practice/simple-cipher/project.clj
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,4 +1,7 @@
(defproject simple-cipher "0.1.0-SNAPSHOT"
:description "simple-cipher exercise."
:url "https://github.com/exercism/clojure/tree/main/exercises/practice/simple-cipher"
:dependencies [[org.clojure/clojure "1.12.0"]])
:dependencies [[org.clojure/clojure "1.12.0"]]
:test-selectors {:rand-key :rand-key
:encode :encode
:decode :decode})
24 changes: 12 additions & 12 deletions exercises/practice/simple-cipher/test/simple_cipher_test.clj
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2,53 +2,53 @@
(:require [clojure.test :refer [deftest testing is]]
simple-cipher))

(deftest rand-key_test_1
(deftest ^:rand-key rand-key_test_1
(testing "Random key cipher ▶ Key is made only of lowercase letters"
(is (true? (boolean (re-matches #"^[a-z]+$" (simple-cipher/rand-key)))))))

(deftest encode_test_1
(deftest ^:encode encode_test_1
(testing "Random key cipher ▶ Can encode"
(let [key (simple-cipher/rand-key)]
(is (= (subs key 0 (count "aaaaaaaaaa")) (simple-cipher/encode key "aaaaaaaaaa"))))))

(deftest encode_test_2
(deftest ^:encode encode_test_2
(testing "Substitution cipher ▶ Can encode"
(is (= "abcdefghij" (simple-cipher/encode "abcdefghij" "aaaaaaaaaa")))))

(deftest encode_test_3
(deftest ^:encode encode_test_3
(testing "Substitution cipher ▶ Can double shift encode"
(is (= "qayaeaagaciai" (simple-cipher/encode "iamapandabear" "iamapandabear")))))

(deftest encode_test_4
(deftest ^:encode encode_test_4
(testing "Substitution cipher ▶ Can wrap on encode"
(is (= "zabcdefghi" (simple-cipher/encode "abcdefghij" "zzzzzzzzzz")))))

(deftest encode_test_5
(deftest ^:encode encode_test_5
(testing "Substitution cipher ▶ Can encode messages longer than the key"
(is (= "iboaqcnecbfcr" (simple-cipher/encode "abc" "iamapandabear")))))

(deftest decode_test_1
(deftest ^:decode decode_test_1
(testing "Random key cipher ▶ Can decode"
(let [key (simple-cipher/rand-key)]
(is (= "aaaaaaaaaa" (simple-cipher/decode key (subs key 0 (count "aaaaaaaaaa"))))))))

(deftest decode_test_2
(deftest ^:decode decode_test_2
(testing "Random key cipher ▶ Is reversible. I.e., if you apply decode in a encoded result, you must see the same plaintext encode parameter as a result of the decode method"
(let [key (simple-cipher/rand-key)]
(is (= "abcdefghij" (simple-cipher/decode key (simple-cipher/encode key "abcdefghij")))))))

(deftest decode_test_3
(deftest ^:decode decode_test_3
(testing "Substitution cipher ▶ Can decode"
(is (= "aaaaaaaaaa" (simple-cipher/decode "abcdefghij" "abcdefghij")))))

(deftest decode_test_4
(deftest ^:decode decode_test_4
(testing "Substitution cipher ▶ Is reversible. I.e., if you apply decode in a encoded result, you must see the same plaintext encode parameter as a result of the decode method"
(is (= "abcdefghij" (simple-cipher/decode "abcdefghij" (simple-cipher/encode "abcdefghij" "abcdefghij"))))))

(deftest decode_test_5
(deftest ^:decode decode_test_5
(testing "Substitution cipher ▶ Can wrap on decode"
(is (= "zzzzzzzzzz" (simple-cipher/decode "abcdefghij" "zabcdefghi")))))

(deftest decode_test_6
(deftest ^:decode decode_test_6
(testing "Substitution cipher ▶ Can decode messages longer than the key"
(is (= "iamapandabear" (simple-cipher/decode "abc" "iboaqcnecbfcr")))))
Loading