Commit 5a92d978 authored by Tassilo Horn's avatar Tassilo Horn
Browse files

Document file-notify--test-with-events.

* test/automated/file-notify-tests.el (file-notify--test-with-events):
Add docstring.
parent 5f334658
......@@ -247,6 +247,8 @@ TIMEOUT is the maximum time to wait for, in seconds."
(read-event nil nil 0.1))))
(defmacro file-notify--test-with-events (n timeout assert-fn &rest body)
"Run BODY collecting N events and then run ASSERT-FN.
Don't wait longer than TIMEOUT seconds for the events to be delivered."
(declare (indent 3))
(let ((outer (make-symbol "outer")))
`(let ((,outer file-notify--test-events))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment