diff options
| -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 | ||