Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 05:17:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix files-tests broken on MS-Windows by a recent change

Browse source 
* test/lisp/files-tests.el (files-colon-path): Use path-separator, and
account for drive letters in absolute file names on MS-Windows.  (Bug#49918)
This commit is contained in:
Eli Zaretskii 2021-08-07 14:29:45 +03:00
parent e1ce9904aa
commit 85c8a9cd0c
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
test/lisp/files-tests.el
View file

@ -1462,9 +1462,11 @@ See <https://debbugs.gnu.org/36401>."
'("x:/foo/bar/baz/")))
(should (equal (parse-colon-path "/foo//bar/baz")
'("/foo/bar/baz/"))))
(should (equal (parse-colon-path ".:/tmp")
'("./" "/tmp/"))))
(let* ((path (concat "." path-separator "/tmp"))
(parsed-path (parse-colon-path path))
(name-start (if (memq system-type '(windows-nt ms-dos)) 2)))
(should (equal (car parsed-path) "./"))
(should (equal (substring (cadr parsed-path) name-start) "/tmp/"))))
(ert-deftest files-test-magic-mode-alist-doctype ()
"Test that DOCTYPE and variants put files in mhtml-mode."