From: Glenn Morris <rgm@gnu.org>
Date: Fri, 29 May 2015 15:33:11 +0000 (-0700)
Subject: * test/automated/vc-tests.el: Try enabling tests on hydra.nixos.org.
X-Git-Tag: emacs-25.0.90~1929
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=33065aaf33a108877194aff79cc5c9f1b8578421;p=emacs.git

* test/automated/vc-tests.el: Try enabling tests on hydra.nixos.org.
---

diff --git a/test/automated/vc-tests.el b/test/automated/vc-tests.el
index 011acee396c..58d22378100 100644
--- a/test/automated/vc-tests.el
+++ b/test/automated/vc-tests.el
@@ -527,75 +527,69 @@ For backends which dont support it, `vc-not-supported' is signalled."
 (defun vc-test--arch-enabled ()
   (executable-find vc-arch-program))
 
-;; There are too many failed test cases yet.  We suppress them on hydra.
-(if (getenv "NIX_STORE")
-    (ert-deftest vc-test ()
-      "Dummy test case for hydra."
-      (ert-pass))
-
-  ;; Create the test cases.
-  (dolist (backend vc-handled-backends)
-    (let ((backend-string (downcase (symbol-name backend))))
-      (require (intern (format "vc-%s" backend-string)))
-      (eval
-       ;; Check, whether the backend is supported.
-       `(when (funcall ',(intern (format "vc-test--%s-enabled" backend-string)))
-
-	  (ert-deftest
-	      ,(intern (format "vc-test-%s00-create-repo" backend-string)) ()
-	    ,(format "Check `vc-create-repo' for the %s backend."
-		     backend-string)
-	    (vc-test--create-repo ',backend))
-
-	  (ert-deftest
-	      ,(intern (format "vc-test-%s01-register" backend-string)) ()
-	    ,(format
-	      "Check `vc-register' and `vc-registered' for the %s backend."
-	      backend-string)
-	    (skip-unless
-	     (ert-test-passed-p
-	      (ert-test-most-recent-result
-	       (ert-get-test
-		',(intern
-		   (format "vc-test-%s00-create-repo" backend-string))))))
-	    (vc-test--register ',backend))
-
-	  (ert-deftest
-	      ,(intern (format "vc-test-%s02-state" backend-string)) ()
-	    ,(format "Check `vc-state' for the %s backend." backend-string)
-	    (skip-unless
-	     (ert-test-passed-p
-	      (ert-test-most-recent-result
-	       (ert-get-test
-		',(intern
-		   (format "vc-test-%s01-register" backend-string))))))
-	    (vc-test--state ',backend))
-
-	  (ert-deftest
-	      ,(intern (format "vc-test-%s03-working-revision" backend-string)) ()
-	    ,(format "Check `vc-working-revision' for the %s backend."
-		     backend-string)
-	    (skip-unless
-	     (ert-test-passed-p
-	      (ert-test-most-recent-result
-	       (ert-get-test
-		',(intern
-		   (format "vc-test-%s01-register" backend-string))))))
-	    (vc-test--working-revision ',backend))
-
-	  (ert-deftest
-	      ,(intern (format "vc-test-%s04-checkout-model" backend-string)) ()
-	    ,(format "Check `vc-checkout-model' for the %s backend."
-		     backend-string)
-	    ;; FIXME make this pass.
-	    :expected-result ,(if (equal backend 'RCS) :failed :passed)
-	    (skip-unless
-	     (ert-test-passed-p
-	      (ert-test-most-recent-result
-	       (ert-get-test
-		',(intern
-		   (format "vc-test-%s01-register" backend-string))))))
-	    (vc-test--checkout-model ',backend)))))))
+;; Create the test cases.
+(dolist (backend vc-handled-backends)
+  (let ((backend-string (downcase (symbol-name backend))))
+    (require (intern (format "vc-%s" backend-string)))
+    (eval
+     ;; Check, whether the backend is supported.
+     `(when (funcall ',(intern (format "vc-test--%s-enabled" backend-string)))
+
+	(ert-deftest
+	    ,(intern (format "vc-test-%s00-create-repo" backend-string)) ()
+	  ,(format "Check `vc-create-repo' for the %s backend."
+		   backend-string)
+	  (vc-test--create-repo ',backend))
+
+	(ert-deftest
+	    ,(intern (format "vc-test-%s01-register" backend-string)) ()
+	  ,(format
+	    "Check `vc-register' and `vc-registered' for the %s backend."
+	    backend-string)
+	  (skip-unless
+	   (ert-test-passed-p
+	    (ert-test-most-recent-result
+	     (ert-get-test
+	      ',(intern
+		 (format "vc-test-%s00-create-repo" backend-string))))))
+	  (vc-test--register ',backend))
+
+	(ert-deftest
+	    ,(intern (format "vc-test-%s02-state" backend-string)) ()
+	  ,(format "Check `vc-state' for the %s backend." backend-string)
+	  (skip-unless
+	   (ert-test-passed-p
+	    (ert-test-most-recent-result
+	     (ert-get-test
+	      ',(intern
+		 (format "vc-test-%s01-register" backend-string))))))
+	  (vc-test--state ',backend))
+
+	(ert-deftest
+	    ,(intern (format "vc-test-%s03-working-revision" backend-string)) ()
+	  ,(format "Check `vc-working-revision' for the %s backend."
+		   backend-string)
+	  (skip-unless
+	   (ert-test-passed-p
+	    (ert-test-most-recent-result
+	     (ert-get-test
+	      ',(intern
+		 (format "vc-test-%s01-register" backend-string))))))
+	  (vc-test--working-revision ',backend))
+
+	(ert-deftest
+	    ,(intern (format "vc-test-%s04-checkout-model" backend-string)) ()
+	  ,(format "Check `vc-checkout-model' for the %s backend."
+		   backend-string)
+	  ;; FIXME make this pass.
+	  :expected-result ,(if (equal backend 'RCS) :failed :passed)
+	  (skip-unless
+	   (ert-test-passed-p
+	    (ert-test-most-recent-result
+	     (ert-get-test
+	      ',(intern
+		 (format "vc-test-%s01-register" backend-string))))))
+	  (vc-test--checkout-model ',backend))))))
 
 (provide 'vc-tests)
 ;;; vc-tests.el ends here