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

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

Browse source
This commit is contained in:
Glenn Morris 2015-05-29 08:33:11 -07:00
parent 7927a4a3b3
commit 33065aaf33
1 changed files with 58 additions and 64 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -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)))
;; 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-%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-%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-%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-%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)))))))
(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