procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
still exists after register and unregister operations.
This commit is contained in:
Michael Albinus 2014-12-10 09:42:44 +01:00
parent 99be75085c
commit 5c9a98bffb
2 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
test/ChangeLog
View file

@ -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.

8
test/automated/vc-tests.el
View file

@ -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)))))