Fix File.cp/3 in case of a file coping to itself

Author: lexmag

lib/elixir/lib/file.ex

@@ -471,6 +471,13 @@ defmodule File do
     end
   end
 
+  defp path_differs?(path, path),
+    do: false
+
+  defp path_differs?(p1, p2) do
+    Path.expand(p1) !== Path.expand(p2)
+  end
+
   @doc """
   The same as `cp/3`, but raises `File.CopyError` if it fails.
   Returns the list of copied files otherwise.
@@ -598,9 +605,7 @@ defmodule File do
         copy_file_mode!(src, dest)
         [dest|acc]
       {:error, :eexist} ->
-        if callback.(src, dest) do
-          # If rm/1 fails, copy/2 will fail
-          _ = rm(dest)
+        if path_differs?(src, dest) and callback.(src, dest) do
           case copy(src, dest) do
             {:ok, _} ->
               copy_file_mode!(src, dest)
@@ -620,8 +625,8 @@ defmodule File do
       :ok ->
         [dest|acc]
       {:error, :eexist} ->
-        if callback.(src, dest) do
-          # If rm/1 fails, iF.make_symlink/2 will fail
+        if path_differs?(src, dest) and callback.(src, dest) do
+          # If rm/1 fails, F.make_symlink/2 will fail
           _ = rm(dest)
           case F.make_symlink(link, dest) do
             :ok -> [dest|acc]

lib/elixir/test/elixir/file_test.exs

@@ -129,6 +129,19 @@ defmodule FileTest do
       end
     end
 
+    test :cp_file_to_itself do
+      src = dest = tmp_path("tmp.file")
+
+      File.write!(src, "here")
+
+      try do
+        assert File.cp(src, dest) == :ok
+        assert File.read!(dest) == "here"
+      after
+        File.rm(dest)
+      end
+    end
+
     test :cp_r_with_src_file_and_dest_file do
       src  = fixture_path("file.txt")
       dest = tmp_path("sample.txt")