[Emacs-diffs] master 5c9a98b: * automated/vc-tests.el (vc-test--register): Check, that the file

[Michael Albinus]

branch: master
commit 5c9a98bffb2c824e2fc07350ac7492a0bd9cbc18
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    * 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 d760b11..8b7b74d 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,8 @@
+2014-12-10  Michael Albinus  <address@hidden>
+
+       * automated/vc-tests.el (vc-test--register): Check, that the file
+       still exists after register and unregister operations.
+
 2014-12-06  Michael Albinus  <address@hidden>
 
        * automated/vc-tests.el: New file.
diff --git a/test/automated/vc-tests.el b/test/automated/vc-tests.el
index b64a3bf..d0f2dc7 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)))))