org-element: Fix "file" link :path

* lisp/org-element.el (org-element-link-parser): Fix :path value.
* testing/lisp/test-org-element.el (test-org-element/link-parser):
  Update tests.

:path now really contains the filename, not some truncated URI.

lisp/org-element.el

@@ -3090,9 +3090,7 @@ Assume point is at the beginning of the link."
 	  (when (string-match "::\\(.*\\)\\'" path)
 	    (setq search-option (match-string 1 path)
 		  path (replace-match "" nil nil path)))
-	  (when (and (file-name-absolute-p path)
-		     (not (org-string-match-p "\\`[/~]/" path)))
-	    (setq path (concat "//" path))))
+	  (setq path (replace-regexp-in-string "\\`/+" "/" path)))
 	(list 'link
 	      (list :type type
 		    :path path

testing/lisp/test-org-element.el

@@ -1521,10 +1521,9 @@ e^{i\\pi}+1=0
     (org-test-with-temp-text "[[file:projects.org::*task title]]"
       (org-element-map (org-element-parse-buffer) 'link
 	(lambda (l) (list (org-element-property :type l)
-			  (org-element-property :path l)
-			  (org-element-property :search-option l)))))))
+		     (org-element-property :path l)
+		     (org-element-property :search-option l)))))))
   ;; ... file-type link with application...
-  (require 'org-docview)
   (should
    (equal
     '("file" "projects.org" "emacs")
@@ -1539,19 +1538,17 @@ e^{i\\pi}+1=0
    (org-test-with-temp-text-in-file ""
      (let ((file (expand-file-name (buffer-file-name))))
        (insert (format "[[file://%s]]" file))
-       (equal (org-element-property :path (org-element-context))
-	      (concat "//" file)))))
+       (equal (org-element-property :path (org-element-context)) file))))
   (should
    (org-test-with-temp-text-in-file ""
      (let ((file (expand-file-name (buffer-file-name))))
        (insert (format "[[file:%s]]" file))
-       (equal (org-element-property :path (org-element-context))
-	      (concat "//" file)))))
+       (equal (org-element-property :path (org-element-context)) file))))
   (should
    (org-test-with-temp-text-in-file ""
-     (let ((file (file-relative-name (buffer-file-name))))
+     (let ((file (expand-file-name (buffer-file-name))))
        (insert (format "[[file:%s]]" file))
-       (list (org-element-property :path (org-element-context)) file))))
+       (equal (org-element-property :path (org-element-context)) file))))
   ;; ... multi-line link.
   (should
    (equal "//orgmode.org"