From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 28 Jan 2018 10:23:25 +0000 (+0100)
Subject: Minor tweaks in files-tests.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=66ced1c8258284eb757ad4be202fb00be5891338;p=emacs.git

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.
---

diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index 530d2bf62a9..7fc5108b08e 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)