forked from dimitri/el-get
-
Notifications
You must be signed in to change notification settings - Fork 0
/
el-get-issue-810.el
33 lines (27 loc) · 966 Bytes
/
el-get-issue-810.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
;;; https://github.com/dimitri/el-get/issues/810
;;; :autoloads nil as no effect
(el-get-register-method-alias :test :builtin)
(setq
el-get-default-process-sync t
el-get-verbose t
el-get-sources
`((:build
(("sh" "-c"
,(format "echo %s > a.el"
(shell-quote-argument
(mapconcat (lambda (x) (prin1-to-string x t))
`(,(make-symbol ";;;###autoload")
(defun a-utoloaded-func () t)
(defun a-nother-func () t)
(provide 'a))
"\n")))))
:name a :type test :compile "."
:autoloads nil)))
(el-get 'sync 'a)
;;; check nothing was loaded (this fails)
(assert (not (or (fboundp 'a-nother-func)
(fboundp 'a-utoloaded-func))))
;;; check we can load everything (for sanity)
(require 'a)
(assert (and (fboundp 'a-nother-func)
(fboundp 'a-utoloaded-func)))