Restore example file

exercism · Jan 9, 2025 · c54477b · c54477b
1 parent ca77a6d
commit c54477b
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 8 deletions.
diff --git a/.gitignore b/.gitignore
@@ -24,3 +24,4 @@ pom.xml.asc
 **/*/*.ipynb_checkpoints
 concepts/functions-generating-functions/introduction_files/
 concepts/functions-generating-functions/*.html
+exercises/**/*.bak
diff --git a/test.clj b/test.clj
@@ -35,14 +35,19 @@
         example (if practice?
                   (str dir ".meta/example.clj")
                   (str dir ".meta/exemplar.clj"))
-        src (str dir "src/" (->snake_case slug) ".clj")]
-    (shell/sh "cp" example src)
-    (= "pass" ((json/parse-string
-                (:out (shell/sh (str test-runner-dir "test-runner.clj")
-                                slug
-                                dir
-                                dir)))
-               "status"))))
+        src (str dir "src/" (->snake_case slug) ".clj")
+        src-copy (str src ".bak")]
+    (shell/sh "cp" src src-copy)
+    (try
+      ((shell/sh "cp" example src)
+       (= "pass" ((json/parse-string
+                   (:out (shell/sh (str test-runner-dir "test-runner.clj")
+                                   slug
+                                   dir
+                                   dir)))
+                  "status")))
+      (finally (shell/sh "mv" src-copy src)))))
+
 
 (defn test-exercises! []
   (let [exercises (or (seq (take 1 *command-line-args*))