el-get/test/el-get-issue-835.el

26 lines
789 B
EmacsLisp
Raw Normal View History

2012-09-01 05:41:13 +08:00
(require 'cl)
(el-get-register-method-alias :test :builtin)
(let ((debug-on-error t)
(el-get-default-process-sync t)
(el-get-verbose t)
(el-get-auto-update-cached-recipes t)
(a-rcp-1
'(:name a
:type test
:before (message "Before A")
:after (message "After A")))
(a-rcp-2
'(:name a
:type test
:before (message "Before A")))
2012-09-01 05:41:13 +08:00
(test
(lambda (func rcp)
(let ((el-get-sources (list rcp)))
(funcall func 'a)
(assert (equal (el-get-package-status-recipes) el-get-sources)
nil "Cached recipe is different from given source.")))))
(funcall test #'el-get-install a-rcp-1)
(funcall test #'el-get-update a-rcp-2))