diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2017-05-01 04:28:18 +0300 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2017-05-01 04:30:01 +0300 |
| commit | 04f915db9732d275ad1de8add8009c2af9d94d1f (patch) | |
| tree | da97b8fb36abe74651799d53b420a663b2a9bc69 /test/lisp/vc | |
| parent | 24301c8148f5f3220d7e597c73a59551cfa10eea (diff) | |
| download | emacs-04f915db9732d275ad1de8add8009c2af9d94d1f.tar.gz | |
; Tighten up vc-state tests, allowed by the previous change
Diffstat (limited to 'test/lisp/vc')
| -rw-r--r-- | test/lisp/vc/vc-tests.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/test/lisp/vc/vc-tests.el b/test/lisp/vc/vc-tests.el index ad4399db032..f2898cb6d2c 100644 --- a/test/lisp/vc/vc-tests.el +++ b/test/lisp/vc/vc-tests.el @@ -329,8 +329,10 @@ This checks also `vc-backend' and `vc-responsible-backend'." ;; Write a new file. Check state. (write-region "foo" nil tmp-name nil 'nomessage) - (message "vc-state3 %s" (vc-state tmp-name)) - (should (null (vc-state tmp-name))) + ;; nil: Mtn + ;; unregistered: Bzr CVS Git Hg SVN RCS + (message "vc-state3 %s %s" backend (vc-state tmp-name backend)) + (should (memq (vc-state tmp-name backend) '(nil unregistered))) ;; Register a file. Check state. (vc-register @@ -348,10 +350,11 @@ This checks also `vc-backend' and `vc-responsible-backend'." 'vc-test--unregister-function backend tmp-name) 'vc-not-supported) (message "vc-state5 unsupported") - ;; nil: Bzr Git Hg RCS + ;; unregistered: Bzr Git RCS Hg ;; unsupported: CVS Mtn SCCS SRC SVN - (message "vc-state5 %s" (vc-state tmp-name)) - (should (null (vc-state tmp-name)))))) + (message "vc-state5 %s %s" backend (vc-state tmp-name backend)) + (should (memq (vc-state tmp-name backend) + '(nil unregistered)))))) ;; Save exit. (ignore-errors (run-hooks 'vc-test--cleanup-hook))))) |