procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix a conversion failure in tramp-archive-tests (Bug#43353)

Browse source 
* test/lisp/net/tramp-archive-tests.el
(tramp-archive-test-file-archive-hexlified): New defun.
(tramp-archive-test02-file-name-dissect): Use it.  (Bug#43353)
This commit is contained in:
Michael Albinus 2020-09-13 13:25:52 +02:00
parent 18f390af8f
commit a6321fd799
1 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
test/lisp/net/tramp-archive-tests.el
View file

@ -48,6 +48,12 @@
(expand-file-name "foo.tar.gz" tramp-archive-test-resource-directory))
"The test file archive.")
(defun tramp-archive-test-file-archive-hexlified ()
"Return hexlified `tramp-archive-test-file-archive'.
Do not hexlify \"/\". This hexlified string is used in `file:///' URLs."
(let* ((url-unreserved-chars (cons ?/ url-unreserved-chars)))
(url-hexify-string tramp-archive-test-file-archive)))
(defconst tramp-archive-test-archive
(file-name-as-directory tramp-archive-test-file-archive)
"The test archive.")
@ -174,7 +180,8 @@ variables, so we check the Emacs version directly."
(should
(string-equal
host
(url-hexify-string (concat "file://" tramp-archive-test-file-archive))))
(url-hexify-string
(concat "file://" (tramp-archive-test-file-archive-hexlified)))))
(should-not port)
(should (string-equal localname "/"))
(should (string-equal archive tramp-archive-test-file-archive)))
@ -193,7 +200,8 @@ variables, so we check the Emacs version directly."
(should
(string-equal
host
(url-hexify-string (concat "file://" tramp-archive-test-file-archive))))
(url-hexify-string
(concat "file://" (tramp-archive-test-file-archive-hexlified)))))
(should-not port)
(should (string-equal localname "/foo"))
(should (string-equal archive tramp-archive-test-file-archive)))
@ -237,7 +245,8 @@ variables, so we check the Emacs version directly."
;; archive boundaries. So we must cut the
;; trailing slash ourselves.
(substring
(file-name-directory tramp-archive-test-file-archive)
(file-name-directory
(tramp-archive-test-file-archive-hexlified))
0 -1)))
nil "/"))
(file-name-nondirectory tramp-archive-test-file-archive)))))