mirror of
https://github.com/dimitri/el-get.git
synced 2024-09-29 13:08:51 +08:00
f4ce3bc177
Many regression tests broke after the removal of "cl", because they assumed "cl" is implicitly loaded. Others regression tests broke for other reasons. The commit fixes _not_ all regression tests. This is meant to be the first wave.
33 lines
1.2 KiB
EmacsLisp
33 lines
1.2 KiB
EmacsLisp
;; https://github.com/dimitri/el-get/issues/632
|
|
;;
|
|
;; Do not add package directory to load-path if :load-path property is nil
|
|
|
|
(require 'cl-lib)
|
|
|
|
(let* ((debug-on-error t)
|
|
(el-get-verbose t)
|
|
;; Just need to install something
|
|
(pkg1 'color-theme-zenburn)
|
|
(pkg2 'color-theme)
|
|
(el-get-sources
|
|
(list `(:name ,pkg1 :load-path nil)
|
|
`(:name ,pkg2))))
|
|
(el-get 'sync pkg1 pkg2)
|
|
(cl-assert (el-get-package-is-installed pkg1))
|
|
(cl-assert (el-get-package-is-installed pkg2))
|
|
(cl-assert (plist-member (el-get-package-def pkg1) :load-path))
|
|
(cl-assert (not (plist-member (el-get-package-def pkg2) :load-path)))
|
|
(let ((normalized-load-path
|
|
(mapcar #'file-name-as-directory
|
|
(mapcar #'expand-file-name load-path)))
|
|
(pkg-in-load-path
|
|
(lambda (pkg)
|
|
(member (file-name-as-directory (el-get-package-directory pkg))
|
|
normalized-load-path))))
|
|
(cl-assert (not (funcall pkg-in-load-path pkg1))
|
|
nil "Package directory of %s should not be in `load-path'"
|
|
pkg1)
|
|
(cl-assert (funcall pkg-in-load-path pkg2)
|
|
nil "Package directory of %s should be in `load-path'"
|
|
pkg2)))
|