* 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 d760b11ce676ee4457ea8d278cce2739ccf74eab..8b7b74d43bdb3d8957365f6f19a3f588fc8fe211 100644 (file)
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,8 @@
+2014-12-10  Michael Albinus  <michael.albinus@gmx.de>
+
+       * automated/vc-tests.el (vc-test--register): Check, that the file
+       still exists after register and unregister operations.
+
 2014-12-06  Michael Albinus  <michael.albinus@gmx.de>
 
        * automated/vc-tests.el: New file.

diff --git a/test/automated/vc-tests.el b/test/automated/vc-tests.el
index b64a3bf7003e3f62dd02d2222f812ece0fd14b11..d0f2dc7f989e266a1809fef5f9eff37f00d5e659 100644 (file)
--- 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)))))