mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-16 09:50:25 +00:00
Code Issues Releases Activity

; Continued attempt to fix Bug#36940

Browse Source 
* test/lisp/net/tramp-tests.el (tramp--test-file-attributes-equal-p):
Handle link number.
(tramp--test-check-files): Encode search string on macOS.  (Bug#36940)
This commit is contained in:
Michael Albinus 2019-08-26 16:14:16 +02:00
parent 42ba6200af
commit f87ace2aed
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
test/lisp/net/tramp-tests.el
View File

@ -3098,6 +3098,12 @@ They might differ only in time attributes or directory size."
(let ((attr1 (copy-sequence attr1))
(attr2 (copy-sequence attr2))
(start-time (- tramp--test-start-time 10)))
;; Link number. For directories, it includes the number of
;; subdirectories. Set it to 1.
(when (eq (tramp-compat-file-attribute-type attr1) t)
(setcar (nthcdr 1 attr1) 1))
(when (eq (tramp-compat-file-attribute-type attr2) t)
(setcar (nthcdr 1 attr2) 1))
;; Access time.
(setcar (nthcdr 4 attr1) tramp-time-dont-know)
(setcar (nthcdr 4 attr2) tramp-time-dont-know)
@ -5285,10 +5291,15 @@ This requires restrictions of file name syntax."
(goto-char (point-min))
(should
(re-search-forward
(format
"^%s=%s$"
(regexp-quote envvar)
(regexp-quote (getenv envvar))))))))))
;; We must use proper encoding on macOS. See
;; Bug#36940.
(funcall
(if (eq coding-system-for-read 'utf-8-hfs)
'ucs-normalize-HFS-NFD-string 'identity)
(format
"^%s=%s$"
(regexp-quote envvar)
(regexp-quote (getenv envvar)))))))))))
;; Cleanup.
(ignore-errors (delete-directory tmp-name1 'recursive))