diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/fileio-tests.el | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/test/src/fileio-tests.el b/test/src/fileio-tests.el index 2ef1b553ab4..5103d2f21e6 100644 --- a/test/src/fileio-tests.el +++ b/test/src/fileio-tests.el | |||
| @@ -19,14 +19,13 @@ | |||
| 19 | 19 | ||
| 20 | (require 'ert) | 20 | (require 'ert) |
| 21 | 21 | ||
| 22 | (defun try-char (char link) | 22 | (defun try-link (target link) |
| 23 | (let ((target (string char))) | 23 | (make-symbolic-link target link) |
| 24 | (make-symbolic-link target link) | 24 | (let* ((read-link (file-symlink-p link)) |
| 25 | (let* ((read-link (file-symlink-p link)) | 25 | (failure (unless (string-equal target read-link) |
| 26 | (failure (unless (string-equal target read-link) | 26 | (list 'string-equal target read-link)))) |
| 27 | (list 'string-equal target read-link)))) | 27 | (delete-file link) |
| 28 | (delete-file link) | 28 | failure)) |
| 29 | failure))) | ||
| 30 | 29 | ||
| 31 | (defun fileio-tests--symlink-failure () | 30 | (defun fileio-tests--symlink-failure () |
| 32 | (let* ((dir (make-temp-file "fileio" t)) | 31 | (let* ((dir (make-temp-file "fileio" t)) |
| @@ -36,9 +35,9 @@ | |||
| 36 | (char 0)) | 35 | (char 0)) |
| 37 | (while (and (not failure) (< char 127)) | 36 | (while (and (not failure) (< char 127)) |
| 38 | (setq char (1+ char)) | 37 | (setq char (1+ char)) |
| 39 | (unless (= char ?~) | 38 | (setq failure (try-link (string char) link))) |
| 40 | (setq failure (try-char char link)))) | 39 | (or failure |
| 41 | failure) | 40 | (try-link "/:" link))) |
| 42 | (delete-directory dir t)))) | 41 | (delete-directory dir t)))) |
| 43 | 42 | ||
| 44 | (ert-deftest fileio-tests--odd-symlink-chars () | 43 | (ert-deftest fileio-tests--odd-symlink-chars () |