Add tests

test-resources/new/my-kit/deps.edn

@@ -0,0 +1,2 @@
+{:paths ["src"]
+ :deps  {}}

test-resources/new/my-kit/src/scratch.clj

@@ -0,0 +1,12 @@
+(ns scratch
+  "FIXME: my new io.github.rads/kit project.")
+
+(defn exec
+  "Invoke me with clojure -X scratch/exec"
+  [opts]
+  (println "exec with" opts))
+
+(defn -main
+  "Invoke me with clojure -M -m scratch"
+  [& args]
+  (println "-main with" args))

test-resources/new/my-scratch/deps.edn

@@ -0,0 +1,2 @@
+{:paths ["src"]
+ :deps  {}}

test-resources/new/my-scratch/src/scratch.clj

@@ -0,0 +1,12 @@
+(ns scratch
+  "FIXME: my new org.corfield.new/scratch project.")
+
+(defn exec
+  "Invoke me with clojure -X scratch/exec"
+  [opts]
+  (println "exec with" opts))
+
+(defn -main
+  "Invoke me with clojure -M -m scratch"
+  [& args]
+  (println "-main with" args))

tests.clj

@@ -82,5 +82,22 @@
       (is (thrown-with-msg? Exception #"nonExistentLicense" 
             (run-license out-file "add" "nonExistentLicense"))))))
 
+(deftest new-scratch-test
+  (let [target-dir (str (fs/temp-dir) "/my-scratch")]
+    (spit (test-file "deps.edn") "{}")
+    (neil (str "new scratch my-scratch :overwrite true :target-dir " target-dir))
+    (is (= (slurp (fs/file "test-resources/new/my-scratch/src/scratch.clj"))
+           (slurp (fs/file (str target-dir "/src/scratch.clj")))))
+    (is (= (slurp (fs/file "test-resources/new/my-scratch/deps.edn"))
+           (slurp (fs/file (str target-dir "/deps.edn")))))))
+
+(deftest new-remote-test
+  (let [target-dir (str (fs/temp-dir) "/my-kit")]
+    (spit (test-file "deps.edn") "{}")
+    (neil (str "new io.github.rads/kit my-kit :overwrite true :target-dir " target-dir))
+    (is (= (slurp (fs/file "test-resources/new/my-kit/src/scratch.clj"))
+           (slurp (fs/file (str target-dir "/src/scratch.clj")))))
+    (is (= (slurp (fs/file "test-resources/new/my-kit/deps.edn"))
+           (slurp (fs/file (str target-dir "/deps.edn")))))))
 (when (= *file* (System/getProperty "babashka.file"))
   (t/run-tests *ns*))