mirror of
https://github.com/dimitri/el-get.git
synced 2024-09-29 13:08:51 +08:00
Remove el-get-installation-test
This commit is contained in:
parent
91dab8b1e6
commit
5d34a7afb8
23
test/test.el
23
test/test.el
|
@ -6,29 +6,6 @@
|
|||
|
||||
(defconst testing-destination-dir "/tmp/emacs.d.testing")
|
||||
|
||||
(ert-deftest el-get-installation-test ()
|
||||
(let ((el-get-default-process-sync 'wait)
|
||||
(user-emacs-directory testing-destination-dir)
|
||||
(el-get-dir (concat (file-name-as-directory user-emacs-directory)
|
||||
"el-get"))
|
||||
(el-get-status-file
|
||||
(concat (file-name-as-directory el-get-dir) ".status.el")))
|
||||
(make-directory el-get-dir t)
|
||||
;; Extract the instructions directly from the documentation
|
||||
(with-temp-buffer
|
||||
(insert-file-contents "../README.asciidoc")
|
||||
(goto-char (point-min))
|
||||
(search-forward-regexp "^-\\{9,\\}
|
||||
\\(\\(?:.\\|
|
||||
\\)+?\\)-\\{9,\\}")
|
||||
(let ((install-string (match-string 1)))
|
||||
(should install-string)
|
||||
(message "evaluating %s" install-string)
|
||||
(should (eval (read (match-string 1)))))))
|
||||
(should (featurep 'el-get))
|
||||
;; (should (el-get-compiled))
|
||||
(should-not el-get-outdated-autoloads))
|
||||
|
||||
(ert-deftest el-get-recipe-dirs-test ()
|
||||
(require 'el-get)
|
||||
(let ((el-get-recipe-path
|
||||
|
|
Loading…
Reference in New Issue
Block a user