From 66ced1c8258284eb757ad4be202fb00be5891338 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 28 Jan 2018 11:23:25 +0100 Subject: [PATCH] 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 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) -- 2.39.5