el-get/test/el-get-issue-642.el
Ryan C. Thompson 1fb104010c Use setq instead of let in tests
This makes it easier to run tests interactively and inspect the
results afterward, because the variables such as "el-get-sources" that
were set for the tests are still bound to the values they had during
the test.
2012-03-18 12:33:04 -07:00

29 lines
893 B
EmacsLisp

;; https://github.com/dimitri/el-get/issues/642
;;
;; Reinstall on type change
(setq debug-on-error t
el-get-verbose t
el-get-default-process-sync t)
;; Install pkg with type builtin
(let ((el-get-sources
(list `(:name pkg
:type builtin))))
(el-get 'sync 'pkg))
(assert (eq 'builtin
(el-get-package-method (el-get-read-package-status-recipe 'pkg)))
t
"Package type should be 'builtin.")
;; Even though "no-op" is an alias for the same behavior as
;; "builtin", they are still considered different types. Thus, this
;; should trigger a reinstall.
(let ((el-get-sources
(list `(:name pkg
:type no-op))))
(el-get-update 'pkg))
(assert (eq 'no-op
(el-get-package-method (el-get-read-package-status-recipe 'pkg)))
t
"Package type should now be 'no-op, not 'builtin.")