diff options
| author | Eli Zaretskii | 2024-09-22 12:57:08 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2024-09-22 12:57:08 +0300 |
| commit | 3fb966dc6392e1908304a1b6fe481da9f670cfbb (patch) | |
| tree | f51a44eafff96e028c393c459bd35c8850356ce2 | |
| parent | e8f0baf354b117837fd686e2bf6ca8df15bd1cd4 (diff) | |
| download | emacs-3fb966dc6392e1908304a1b6fe481da9f670cfbb.tar.gz emacs-3fb966dc6392e1908304a1b6fe481da9f670cfbb.zip | |
; Fix dnd-tests on MS-Windows
* test/lisp/dnd-tests.el (dnd-tests-get-local-file-uri): Fix test
on MS-Windows.
| -rw-r--r-- | test/lisp/dnd-tests.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/test/lisp/dnd-tests.el b/test/lisp/dnd-tests.el index 3d4f28b9ae1..3b1cf51069a 100644 --- a/test/lisp/dnd-tests.el +++ b/test/lisp/dnd-tests.el | |||
| @@ -389,11 +389,13 @@ This function only tries to handle strings." | |||
| 389 | (delete-file remote-temp-file)))) | 389 | (delete-file remote-temp-file)))) |
| 390 | 390 | ||
| 391 | (ert-deftest dnd-tests-get-local-file-uri () | 391 | (ert-deftest dnd-tests-get-local-file-uri () |
| 392 | (should (equal (dnd-get-local-file-uri "file://localhost/path/to/foo") | 392 | ;; 'dnd-get-local-file-uri' always returns nil on MS-Windows |
| 393 | "file:///path/to/foo")) | 393 | (unless (eq system-type 'windows-nt) |
| 394 | (should (equal (dnd-get-local-file-uri | 394 | (should (equal (dnd-get-local-file-uri "file://localhost/path/to/foo") |
| 395 | (format "file://%s/path/to/" (system-name))) | 395 | "file:///path/to/foo")) |
| 396 | "file:///path/to/")) | 396 | (should (equal (dnd-get-local-file-uri |
| 397 | (format "file://%s/path/to/" (system-name))) | ||
| 398 | "file:///path/to/"))) | ||
| 397 | (should-not (dnd-get-local-file-uri "file://some-remote-host/path/to/foo")) | 399 | (should-not (dnd-get-local-file-uri "file://some-remote-host/path/to/foo")) |
| 398 | (should-not (dnd-get-local-file-uri "file:///path/to/foo"))) | 400 | (should-not (dnd-get-local-file-uri "file:///path/to/foo"))) |
| 399 | 401 | ||