From 5c9a98bffb2c824e2fc07350ac7492a0bd9cbc18 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 10 Dec 2014 09:42:44 +0100 Subject: [PATCH] * automated/vc-tests.el (vc-test--register): Check, that the file still exists after register and unregister operations. --- test/ChangeLog | 5 +++++ test/automated/vc-tests.el | 8 ++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/test/ChangeLog b/test/ChangeLog index d760b11ce67..8b7b74d43bd 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,8 @@ +2014-12-10 Michael Albinus + + * automated/vc-tests.el (vc-test--register): Check, that the file + still exists after register and unregister operations. + 2014-12-06 Michael Albinus * automated/vc-tests.el: New file. diff --git a/test/automated/vc-tests.el b/test/automated/vc-tests.el index b64a3bf7003..d0f2dc7f989 100644 --- a/test/automated/vc-tests.el +++ b/test/automated/vc-tests.el @@ -225,10 +225,12 @@ Don't set it globally, the functions shall be let-bound.") (should-not (vc-registered tmp-name2)) (vc-register (list backend (list tmp-name1 tmp-name2))) + (should (file-exists-p tmp-name1)) (should (vc-registered tmp-name1)) + (should (file-exists-p tmp-name2)) (should (vc-registered tmp-name2)) - ;; Unregister the file2. Why isn't there `vc-unregister'? + ;; Unregister the files. Why isn't there `vc-unregister'? (condition-case err (progn (funcall (vc-test--unregister-function backend) tmp-name1) @@ -236,7 +238,9 @@ Don't set it globally, the functions shall be let-bound.") (funcall (vc-test--unregister-function backend) tmp-name2) (should-not (vc-registered tmp-name2))) ;; CVS, SVN, SCCS, SRC and Mtn are not supported. - (vc-not-supported (message "%s" (error-message-string err)))))) + (vc-not-supported (message "%s" (error-message-string err)))) + (should (file-exists-p tmp-name1)) + (should (file-exists-p tmp-name2)))) ;; Save exit. (ignore-errors (run-hooks 'vc-test--cleanup-hook))))) -- 2.39.2