[Emacs-diffs] scratch/nonspecial-handlers 66ced1c: Minor tweaks in files-tests.el

[Michael Albinus]

branch: scratch/nonspecial-handlers
commit 66ced1c8258284eb757ad4be202fb00be5891338
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    Minor tweaks in files-tests.el
    
    * test/lisp/files-tests.el
    (files-file-name-non-special-notify-handlers): Test successful removal.
    (files-file-name-non-special-handlers): Delete temp file.
---
 test/lisp/files-tests.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index 530d2bf..7fc5108 100644
--- a/test/lisp/files-tests.el
+++ b/test/lisp/files-tests.el
@@ -343,7 +343,8 @@ be invoked with the right arguments."
     (let* ((nospecial (concat "/:" tmpfile))
            (watch (file-notify-add-watch nospecial '(change) #'ignore)))
       (should (file-notify-valid-p watch))
-      (file-notify-rm-watch watch))))
+      (file-notify-rm-watch watch)
+      (should-not (file-notify-valid-p watch)))))
 
 (ert-deftest files-file-name-non-special-dired-compress-handler ()
   ;; `dired-compress-file' can get confused by filenames with ":" in
@@ -366,7 +367,8 @@ be invoked with the right arguments."
         (should (null (access-file nospecial "test")))
         (let ((newname (concat nospecial "add-name")))
           (add-name-to-file nospecial newname)
-          (should (file-exists-p newname)))
+          (should (file-exists-p newname))
+          (delete-file newname))
         (should (equal (byte-compiler-base-file-name nospecial)
                        (byte-compiler-base-file-name tmpfile)))
         (let ((newname (concat (directory-file-name nospecial-dir)