Skip to content

GitLab

Commit 5c9a98bf authored by Michael Albinus's avatar Michael Albinus
Browse files

* automated/vc-tests.el (vc-test--register): Check, that the file 

still exists after register and unregister operations.
parent 99be7508
Hide whitespace changes
Inline Side-by-side
Showing with 11 additions and 2 deletions
test/ChangeLog
View file @ 5c9a98bf
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.
......
test/automated/vc-tests.el
View file @ 5c9a98bf
......@@ -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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment