diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/file-notify-tests.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/test/automated/file-notify-tests.el b/test/automated/file-notify-tests.el index 346120e276c..ac33d680a10 100644 --- a/test/automated/file-notify-tests.el +++ b/test/automated/file-notify-tests.el | |||
| @@ -281,8 +281,8 @@ and the event to `file-notify--test-events'." | |||
| 281 | (unless (string-match | 281 | (unless (string-match |
| 282 | (regexp-quote ".#") | 282 | (regexp-quote ".#") |
| 283 | (file-notify--event-file-name file-notify--test-event)) | 283 | (file-notify--event-file-name file-notify--test-event)) |
| 284 | (message "file-notify--test-event-handler result: %s event: %S" | 284 | ;;(message "file-notify--test-event-handler result: %s event: %S" |
| 285 | (null (ert-test-failed-p result)) file-notify--test-event) | 285 | ;;(null (ert-test-failed-p result)) file-notify--test-event) |
| 286 | (setq file-notify--test-events | 286 | (setq file-notify--test-events |
| 287 | (append file-notify--test-events `(,file-notify--test-event)) | 287 | (append file-notify--test-events `(,file-notify--test-event)) |
| 288 | file-notify--test-results | 288 | file-notify--test-results |
| @@ -963,11 +963,11 @@ the file watch." | |||
| 963 | (let ((temporary-file-directory file-notify--test-tmpfile)) | 963 | (let ((temporary-file-directory file-notify--test-tmpfile)) |
| 964 | (make-temp-file "file"))) | 964 | (make-temp-file "file"))) |
| 965 | (cl-flet ((dir-callback (event) | 965 | (cl-flet ((dir-callback (event) |
| 966 | (message "dir-callback %s" event) | 966 | (let ((file-notify--test-desc file-notify--test-desc1) |
| 967 | (let ((file-notify--test-desc file-notify--test-desc1)) | 967 | (file-notify--test-tmpfile |
| 968 | (file-notify--event-file-name event))) | ||
| 968 | (file-notify--test-event-handler event))) | 969 | (file-notify--test-event-handler event))) |
| 969 | (file-callback (event) | 970 | (file-callback (event) |
| 970 | (message "file-callback %s" event) | ||
| 971 | (let ((file-notify--test-desc file-notify--test-desc2)) | 971 | (let ((file-notify--test-desc file-notify--test-desc2)) |
| 972 | (file-notify--test-event-handler event)))) | 972 | (file-notify--test-event-handler event)))) |
| 973 | (should | 973 | (should |
| @@ -989,7 +989,6 @@ the file watch." | |||
| 989 | "any text" nil file-notify--test-tmpfile1 t 'no-message) | 989 | "any text" nil file-notify--test-tmpfile1 t 'no-message) |
| 990 | (let ((temporary-file-directory file-notify--test-tmpfile)) | 990 | (let ((temporary-file-directory file-notify--test-tmpfile)) |
| 991 | (make-temp-file "fileX")))) | 991 | (make-temp-file "fileX")))) |
| 992 | ;; After saving the buffer, the descriptor is still valid. | ||
| 993 | (should (file-notify-valid-p file-notify--test-desc1)) | 992 | (should (file-notify-valid-p file-notify--test-desc1)) |
| 994 | (should (file-notify-valid-p file-notify--test-desc2)) | 993 | (should (file-notify-valid-p file-notify--test-desc2)) |
| 995 | (delete-file file-notify--test-tmpfile1) | 994 | (delete-file file-notify--test-tmpfile1) |