Fix typo in x-dnd-tests.el

* test/lisp/x-dnd-tests.el (x-begin-drag): Avoid extra leading /
in file names.  (bug#56712)

diff --git a/test/lisp/x-dnd-tests.el b/test/lisp/x-dnd-tests.el
index ef9c8aada28b6b955c55349078e904c5d6eb5c00..55994e9b7246b32abefe37cb9fc7b716df415eed 100644 (file)
--- a/test/lisp/x-dnd-tests.el
+++ b/test/lisp/x-dnd-tests.el
@@ -124,8 +124,8 @@ Return the result of the selection."
                      (format "file://%s%s" (system-name)
                              (expand-file-name x-dnd-tests-xds-property-value
                                                x-dnd-tests-xds-target-dir))
-                   (concat "file:///" (expand-file-name x-dnd-tests-xds-property-value
-                                                        x-dnd-tests-xds-target-dir)))))
+                   (concat "file://" (expand-file-name x-dnd-tests-xds-property-value
+                                                       x-dnd-tests-xds-target-dir)))))
         (setq x-dnd-tests-xds-property-value
               (encode-coding-string (url-encode-url uri)
                                     'raw-text)))