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

@@ -41,11 +41,11 @@
 (deftest dep-search-test
   (is (thrown? java.lang.Exception (run-dep-subcommand "search" "someBougusLibThatDoesntExist")))
   (is (not-empty (run-dep-subcommand "search" "hiccups")))
-  (is (some #(str/starts-with? % ":lib hiccups/hiccups" )
+  (is (some #(str/starts-with? % ":lib hiccups/hiccups")
             (run-dep-subcommand "search" "hiccups")))
-  (is (some #(re-matches  #":lib hiccups/hiccups :version \d+(\.\d+)+ :description .*" % )
+  (is (some #(re-matches  #":lib hiccups/hiccups :version \d+(\.\d+)+ :description .*" %)
             (run-dep-subcommand "search" "hiccups")))
-  (is (some #(re-matches  #":lib macchiato/hiccups :version \d+(\.\d+)+ :description .*" % )
+  (is (some #(re-matches  #":lib macchiato/hiccups :version \d+(\.\d+)+ :description .*" %)
             (run-dep-subcommand "search" "hiccups")))
   ; tests for no NPEs/json parsing exceptions
   (is (any? (run-dep-subcommand "search" "org.clojure/tools.cli")))
@@ -76,11 +76,32 @@
       (run-license out-file "add" ":license epl-2.0")
       (is (str/includes? (slurp out-file) "Eclipse Public License")))
     (testing "missing license key errors"
-      (is (thrown-with-msg? Exception #"No license key" 
+      (is (thrown-with-msg? Exception #"No license key"
             (run-license out-file "add"))))
     (testing "invalid license key errors"
-      (is (thrown-with-msg? Exception #"nonExistentLicense" 
+      (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*))
+
+(comment
+  (clojure.test/run-tests 'tests))