[Emacs-diffs] master 66e6398: Make vc-test-svn03-working-revision pass

[Dmitry Gutov]

branch: master
commit 66e6398505356b019edee4477b6d4f5f8cdec42d
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    Make vc-test-svn03-working-revision pass
    
    * test/automated/vc-tests.el (vc-test--working-revision): Fix
    `vc-working-revision' checks to be compared against nil, which is
    what is should return for unregistered files.
---
 test/ChangeLog             |    6 ++++++
 test/automated/vc-tests.el |   14 ++++++++------
 2 files changed, 14 insertions(+), 6 deletions(-)

diff --git a/test/ChangeLog b/test/ChangeLog
index f9a54b5..e0d4eeb 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,9 @@
+2015-02-07  Dmitry Gutov  <address@hidden>
+
+       * automated/vc-tests.el (vc-test--working-revision): Fix
+       `vc-working-revision' checks to be compared against nil, which is
+       what is should return for unregistered files.
+
 2015-02-06 Nicolas Petton <address@hidden>
 
        * automated/seq-tests.el: New tests for seq-mapcat, seq-partition
diff --git a/test/automated/vc-tests.el b/test/automated/vc-tests.el
index 5b7b3cc..e83eb85 100644
--- a/test/automated/vc-tests.el
+++ b/test/automated/vc-tests.el
@@ -330,18 +330,20 @@ For backends which dont support it, `vc-not-supported' is 
signalled."
            (vc-working-revision default-directory backend) '("0" "master")))
 
          (let ((tmp-name (expand-file-name "foo" default-directory)))
-           ;; Check for initial state.
-           (should
-            (member (vc-working-revision tmp-name backend) '("0" "master")))
+           ;; Check for initial state, should be nil until it's registered.
+            ;; Don't pass the backend explictly, otherwise some implementations
+            ;; return non-nil.
+           (should (null (vc-working-revision tmp-name)))
 
-           ;; Write a new file.  Check for state.
+           ;; Write a new file.  Check state.
            (write-region "foo" nil tmp-name nil 'nomessage)
-           (should
-            (member (vc-working-revision tmp-name backend) '("0" "master")))
+           (should (null (vc-working-revision tmp-name)))
 
            ;; Register a file.  Check for state.
            (vc-register
             (list backend (list (file-name-nondirectory tmp-name))))
+            ;; FIXME: Don't pass the backend.  Emacs should be able to
+            ;; figure it out.
            (should
             (member (vc-working-revision tmp-name backend) '("0" "master")))