[#24] Allow dir as dest in copy

src/babashka/fs.cljc

@@ -299,18 +299,21 @@
                 nofollow-links   (conj LinkOption/NOFOLLOW_LINKS))))
 
 (defn copy
-  "Copies src file to dest file.
+  "Copies src file to dest dir or file.
   Options:
   - :replace-existing
   - :copy-attributes
-  - :nofollow-links."
+  - :nofollow-links (used to determine to copy symbolic link itself or not)."
   ([src dest] (copy src dest nil))
   ([src dest {:keys [:replace-existing
                      :copy-attributes
                      :nofollow-links]}]
    (let [copy-options (->copy-opts replace-existing copy-attributes false nofollow-links)]
-     (Files/copy (as-path src) (as-path dest)
-                 copy-options))))
+     (if (directory? dest)
+       (Files/copy (as-path src) (path dest (file-name src))
+                   copy-options)
+       (Files/copy (as-path src) (as-path dest)
+                   copy-options)))))
 
 (defn posix->str
   "Converts a set of PosixFilePermission to a string."

test/babashka/fs_test.clj

@@ -122,11 +122,17 @@
     (is (= "foo/bar/baz" (normalize f)))))
 
 (deftest copy-test
-  (let [tmp-dir (temp-dir)
-        tmp-file (fs/create-file (fs/path tmp-dir "tmp-file"))
-        dest-path (fs/path tmp-dir "tmp-file-dest")]
-    (fs/copy tmp-file dest-path)
-    (is (fs/exists? dest-path))))
+  (let [tmp-dir-1 (temp-dir)
+        src-file (fs/create-file (fs/path tmp-dir-1 "tmp-file"))
+        dest-dir (temp-dir)
+        dest-file (fs/path dest-dir "tmp-file")]
+    (fs/copy src-file dest-file)
+    (is (fs/exists? dest-file))
+    (fs/delete dest-file)
+    (is (not (fs/exists? dest-file)))
+    (testing "copying into dir"
+      (fs/copy src-file dest-dir)
+      (is (fs/exists? dest-file)))))
 
 (deftest copy-tree-test
   (let [tmp-dir (temp-dir)]