From: Michael Albinus Date: Wed, 10 Dec 2014 08:42:44 +0000 (+0100) Subject: * automated/vc-tests.el (vc-test--register): Check, that the file X-Git-Tag: emacs-25.0.90~2635^2~123 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5c9a98bffb2c824e2fc07350ac7492a0bd9cbc18;p=emacs.git * automated/vc-tests.el (vc-test--register): Check, that the file still exists after register and unregister operations. --- 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)))))