Allow testing single exercise

exercism · Jan 5, 2025 · 782bc4e · 782bc4e
1 parent 8142d38
commit 782bc4e
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/test.clj b/test.clj
@@ -45,8 +45,10 @@
                "status"))))
 
 (defn test-exercises! []
-  (for [exercise (into practice-exercises concept-exercises)]
-    {(keyword exercise) (test-exercise exercise)}))
+  (let [exercises (or (seq (take 1 *command-line-args*))
+                      (into practice-exercises concept-exercises))]
+    (for [exercise exercises]
+      {(keyword exercise) (test-exercise exercise)})))
 
 (let [results (test-exercises!)
       fails (filter #(false? (first (vals %))) results)]