Add isogram template

Author: ErikSchierboom

exercises/practice/isogram/.meta/generator.template

@@ -1,8 +1,8 @@
 (ns isogram-test
-   (:require [clojure.test :refer [deftest testing is]]
+  (:require [clojure.test :refer [deftest testing is]]
              isogram))
 {% for test_case in test_cases %}
 (deftest isogram_test_{{forloop.counter}}
-  (testing "{{test_case.path|join:" - "}}")
-    {% if test_case.expected %}(is (isogram/isogram? "{{test_case.input.phrase}}"))) {% else %}(is (not (isogram/isogram? "{{test_case.input.phrase}}")))) {% endif %}
+  (testing "{{test_case.path|join:" - "}}"
+    {% if test_case.expected %}(is (isogram/isogram? "{{test_case.input.phrase}}")))) {% else %}(is (not (isogram/isogram? "{{test_case.input.phrase}}")))){% endif %}
 {% endfor %}

exercises/practice/isogram/test/isogram_test.clj

@@ -1,17 +1,60 @@
 (ns isogram-test
-  (:require [clojure.test :refer [deftest is]]
-            isogram))
-
-(deftest test-isograms
-  (is (isogram/isogram? "duplicates"))
-  (is (isogram/isogram? "subdermatoglyphic"))
-  (is (isogram/isogram? "thumbscrew-japingly"))
-  (is (isogram/isogram? "Hjelmqvist-Gryb-Zock-Pfund-Wax"))
-  (is (isogram/isogram? "Heizölrückstoßabdämpfung"))
-  (is (isogram/isogram? "Emily Jung Schwartzkopf")))
-
-(deftest test-non-isograms
-  (is (not (isogram/isogram? "eleven")))
-  (is (not (isogram/isogram? "Alphabet")))
-  (is (not (isogram/isogram? "the quick brown fox")))
-  (is (not (isogram/isogram? "éléphant"))))
+  (:require [clojure.test :refer [deftest testing is]]
+             isogram))
+
+(deftest isogram_test_1
+  (testing "empty string"
+    (is (isogram/isogram? "")))) 
+
+(deftest isogram_test_2
+  (testing "isogram with only lower case characters"
+    (is (isogram/isogram? "isogram")))) 
+
+(deftest isogram_test_3
+  (testing "word with one duplicated character"
+    (is (not (isogram/isogram? "eleven"))))
+
+(deftest isogram_test_4
+  (testing "word with one duplicated character from the end of the alphabet"
+    (is (not (isogram/isogram? "zzyzx"))))
+
+(deftest isogram_test_5
+  (testing "longest reported english isogram"
+    (is (isogram/isogram? "subdermatoglyphic")))) 
+
+(deftest isogram_test_6
+  (testing "word with duplicated character in mixed case"
+    (is (not (isogram/isogram? "Alphabet"))))
+
+(deftest isogram_test_7
+  (testing "word with duplicated character in mixed case, lowercase first"
+    (is (not (isogram/isogram? "alphAbet"))))
+
+(deftest isogram_test_8
+  (testing "hypothetical isogrammic word with hyphen"
+    (is (isogram/isogram? "thumbscrew-japingly")))) 
+
+(deftest isogram_test_9
+  (testing "hypothetical word with duplicated character following hyphen"
+    (is (not (isogram/isogram? "thumbscrew-jappingly"))))
+
+(deftest isogram_test_10
+  (testing "isogram with duplicated hyphen"
+    (is (isogram/isogram? "six-year-old")))) 
+
+(deftest isogram_test_11
+  (testing "made-up name that is an isogram"
+    (is (isogram/isogram? "Emily Jung Schwartzkopf")))) 
+
+(deftest isogram_test_12
+  (testing "duplicated character in the middle"
+    (is (not (isogram/isogram? "accentor"))))
+
+(deftest isogram_test_13
+  (testing "same first and last characters"
+    (is (not (isogram/isogram? "angola"))))
+
+(deftest isogram_test_14
+  (testing "word with duplicated character and with two hyphens"
+    (is (not (isogram/isogram? "up-to-date"))))
+

exercises/practice/two-fer/.meta/generator.template

@@ -1,5 +1,5 @@
 (ns two-fer-test
-   (:require [clojure.test :refer [deftest testing is]]
+  (:require [clojure.test :refer [deftest testing is]]
              two-fer))
 {% for test_case in test_cases %}
 (deftest two-fer_test_{{forloop.counter}}

exercises/practice/two-fer/test/two_fer_test.clj

@@ -1,5 +1,5 @@
 (ns two-fer-test
-   (:require [clojure.test :refer [deftest testing is]]
+  (:require [clojure.test :refer [deftest testing is]]
              two-fer))
 
 (deftest two-fer_test_1