aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/lisp/filenotify-tests.el29
1 files changed, 10 insertions, 19 deletions
diff --git a/test/lisp/filenotify-tests.el b/test/lisp/filenotify-tests.el
index 9dfa794e307..4396a693e3a 100644
--- a/test/lisp/filenotify-tests.el
+++ b/test/lisp/filenotify-tests.el
@@ -687,12 +687,11 @@ delivered."
687 ((getenv "EMACS_EMBA_CI") 687 ((getenv "EMACS_EMBA_CI")
688 '(created changed deleted)) 688 '(created changed deleted))
689 ;; There are two `deleted' events, for the file and for 689 ;; There are two `deleted' events, for the file and for
690 ;; the directory. Except for cygwin, kqueue and remote 690 ;; the directory. Except for cygwin and kqueue. And
691 ;; files. And cygwin does not raise a `changed' event. 691 ;; cygwin does not raise a `changed' event.
692 ((eq system-type 'cygwin) 692 ((eq system-type 'cygwin)
693 '(created deleted stopped)) 693 '(created deleted stopped))
694 ((or (string-equal (file-notify--test-library) "kqueue") 694 ((string-equal (file-notify--test-library) "kqueue")
695 (file-remote-p temporary-file-directory))
696 '(created changed deleted stopped)) 695 '(created changed deleted stopped))
697 (t '(created changed deleted deleted stopped))) 696 (t '(created changed deleted deleted stopped)))
698 (write-region 697 (write-region
@@ -743,9 +742,6 @@ delivered."
743 ;; directory are not detected. 742 ;; directory are not detected.
744 ((getenv "EMACS_EMBA_CI") 743 ((getenv "EMACS_EMBA_CI")
745 '(created changed created changed deleted deleted)) 744 '(created changed created changed deleted deleted))
746 ;; Remote files return two `deleted' events.
747 ((file-remote-p temporary-file-directory)
748 '(created changed created changed deleted deleted stopped))
749 (t '(created changed created changed 745 (t '(created changed created changed
750 deleted deleted deleted stopped))) 746 deleted deleted deleted stopped)))
751 (write-region 747 (write-region
@@ -795,13 +791,12 @@ delivered."
795 ((getenv "EMACS_EMBA_CI") 791 ((getenv "EMACS_EMBA_CI")
796 '(created changed renamed deleted)) 792 '(created changed renamed deleted))
797 ;; There are two `deleted' events, for the file and for 793 ;; There are two `deleted' events, for the file and for
798 ;; the directory. Except for cygwin, kqueue and remote 794 ;; the directory. Except for cygwin and kqueue. And
799 ;; files. And cygwin raises `created' and `deleted' 795 ;; cygwin raises `created' and `deleted' events instead
800 ;; events instead of a `renamed' event. 796 ;; of a `renamed' event.
801 ((eq system-type 'cygwin) 797 ((eq system-type 'cygwin)
802 '(created created deleted deleted stopped)) 798 '(created created deleted deleted stopped))
803 ((or (string-equal (file-notify--test-library) "kqueue") 799 ((string-equal (file-notify--test-library) "kqueue")
804 (file-remote-p temporary-file-directory))
805 '(created changed renamed deleted stopped)) 800 '(created changed renamed deleted stopped))
806 (t '(created changed renamed deleted deleted stopped))) 801 (t '(created changed renamed deleted deleted stopped)))
807 (write-region 802 (write-region
@@ -1046,12 +1041,11 @@ delivered."
1046 '((deleted stopped) 1041 '((deleted stopped)
1047 (created deleted stopped))) 1042 (created deleted stopped)))
1048 ;; There are two `deleted' events, for the file and for 1043 ;; There are two `deleted' events, for the file and for
1049 ;; the directory. Except for cygwin, kqueue and remote 1044 ;; the directory. Except for cygwin and kqueue. And
1050 ;; files. And cygwin does not raise a `changed' event. 1045 ;; cygwin does not raise a `changed' event.
1051 ((eq system-type 'cygwin) 1046 ((eq system-type 'cygwin)
1052 '(created deleted stopped)) 1047 '(created deleted stopped))
1053 ((or (string-equal (file-notify--test-library) "kqueue") 1048 ((string-equal (file-notify--test-library) "kqueue")
1054 (file-remote-p temporary-file-directory))
1055 '(created changed deleted stopped)) 1049 '(created changed deleted stopped))
1056 (t '(created changed deleted deleted stopped))) 1050 (t '(created changed deleted deleted stopped)))
1057 (write-region 1051 (write-region
@@ -1415,9 +1409,6 @@ the file watch."
1415 ;; directory are not detected. 1409 ;; directory are not detected.
1416 ((getenv "EMACS_EMBA_CI") 1410 ((getenv "EMACS_EMBA_CI")
1417 '()) 1411 '())
1418 ;; Remote files send just one `stopped' event.
1419 ((file-remote-p temporary-file-directory)
1420 '(stopped))
1421 (t '(deleted stopped)))))) 1412 (t '(deleted stopped))))))
1422 (delete-directory file-notify--test-tmpfile 'recursive)) 1413 (delete-directory file-notify--test-tmpfile 'recursive))
1423 (unless (getenv "EMACS_EMBA_CI") 1414 (unless (getenv "EMACS_EMBA_CI")