diff options
| author | Michael Albinus | 2016-06-20 15:05:52 +0200 |
|---|---|---|
| committer | Michael Albinus | 2016-06-20 15:05:52 +0200 |
| commit | 9eaec6859df69f0baac57f0801bfbf195ee88dc5 (patch) | |
| tree | 08b4ec090c0375d1fff00357a7487058c807c80b | |
| parent | f11f6e5486387b43993c114db20a84506e5a6fc1 (diff) | |
| download | emacs-9eaec6859df69f0baac57f0801bfbf195ee88dc5.tar.gz emacs-9eaec6859df69f0baac57f0801bfbf195ee88dc5.zip | |
; Simplify in filenotify-tests.el
| -rw-r--r-- | test/lisp/filenotify-tests.el | 39 |
1 files changed, 19 insertions, 20 deletions
diff --git a/test/lisp/filenotify-tests.el b/test/lisp/filenotify-tests.el index 30e7450ed05..0e6e58e7b80 100644 --- a/test/lisp/filenotify-tests.el +++ b/test/lisp/filenotify-tests.el | |||
| @@ -1040,26 +1040,25 @@ the file watch." | |||
| 1040 | ;; Run the test. | 1040 | ;; Run the test. |
| 1041 | (file-notify--test-with-events | 1041 | (file-notify--test-with-events |
| 1042 | ;; There could be one or two `changed' events. | 1042 | ;; There could be one or two `changed' events. |
| 1043 | (append | 1043 | (list |
| 1044 | (list | 1044 | (append |
| 1045 | (append | 1045 | '(:random) |
| 1046 | '(:random) | 1046 | ;; Directory monitor and file monitor. |
| 1047 | ;; Directory monitor and file monitor. | 1047 | (make-list (/ n 2) 'changed) |
| 1048 | (make-list (/ n 2) 'changed) | 1048 | (make-list (/ n 2) 'changed) |
| 1049 | (make-list (/ n 2) 'changed) | 1049 | ;; Just the directory monitor. |
| 1050 | ;; Just the directory monitor. | 1050 | (make-list (/ n 2) 'created) |
| 1051 | (make-list (/ n 2) 'created) | 1051 | (make-list (/ n 2) 'changed)) |
| 1052 | (make-list (/ n 2) 'changed)) | 1052 | (append |
| 1053 | (append | 1053 | '(:random) |
| 1054 | '(:random) | 1054 | ;; Directory monitor and file monitor. |
| 1055 | ;; Directory monitor and file monitor. | 1055 | (make-list (/ n 2) 'changed) |
| 1056 | (make-list (/ n 2) 'changed) | 1056 | (make-list (/ n 2) 'changed) |
| 1057 | (make-list (/ n 2) 'changed) | 1057 | (make-list (/ n 2) 'changed) |
| 1058 | (make-list (/ n 2) 'changed) | 1058 | (make-list (/ n 2) 'changed) |
| 1059 | (make-list (/ n 2) 'changed) | 1059 | ;; Just the directory monitor. |
| 1060 | ;; Just the directory monitor. | 1060 | (make-list (/ n 2) 'created) |
| 1061 | (make-list (/ n 2) 'created) | 1061 | (make-list (/ n 2) 'changed))) |
| 1062 | (make-list (/ n 2) 'changed)))) | ||
| 1063 | (dotimes (i n) | 1062 | (dotimes (i n) |
| 1064 | (read-event nil nil file-notify--test-read-event-timeout) | 1063 | (read-event nil nil file-notify--test-read-event-timeout) |
| 1065 | (if (zerop (mod i 2)) | 1064 | (if (zerop (mod i 2)) |