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.

2 files changed, 14 insertions, 6 deletions

diff --git a/test/ChangeLog b/test/ChangeLog
index f9a54b53420..e0d4eeb323a 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,9 @@
+2015-02-07  Dmitry Gutov  <dgutov@yandex.ru>
+
+        * 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 <nicolas@petton.fr>
 
         * 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 5b7b3cce039..e83eb85c0fe 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")))