- ;; (ert-deftest filewatch-file-watch-aspects-check ()
- ;; "Test whether `file-watch' properly checks the aspects."
- ;; (let ((temp-file (make-temp-file "filewatch-aspects")))
- ;; (should (stringp temp-file))
- ;; (should-error (file-watch temp-file 'wrong nil)
- ;; :type 'error)
- ;; (should-error (file-watch temp-file '(modify t) nil)
- ;; :type 'error)
- ;; (should-error (file-watch temp-file '(modify all-modify) nil)
- ;; :type 'error)
- ;; (should-error (file-watch temp-file '(access wrong modify) nil)
- ;; :type 'error)))