aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/automated/file-notify-tests.el11
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)