9 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
10 |
;;; use-package |
;;; use-package |
11 |
|
|
12 |
(deftest use-package-1 |
(deftest use-package.1 |
13 |
(progn |
(progn |
14 |
(safely-delete-package "H") |
(safely-delete-package "H") |
15 |
(safely-delete-package "G") |
(safely-delete-package "G") |
16 |
(let* ((pg (make-package "G" :use nil)) |
(let* ((pg (make-package "G" :use nil)) |
17 |
(ph (make-package "H" :use nil)) |
(ph (make-package "H" :use nil)) |
18 |
(sym1 (intern "FOO" pg))) |
(sym1 (intern "FOO" pg)) |
19 |
|
(i 0) x y) |
20 |
(and |
(and |
21 |
(eqt (export sym1 pg) t) |
(eqt (export sym1 pg) t) |
22 |
(null (package-used-by-list pg)) |
(null (package-used-by-list pg)) |
23 |
(null (package-used-by-list ph)) |
(null (package-used-by-list ph)) |
24 |
(null (package-use-list pg)) |
(null (package-use-list pg)) |
25 |
(null (package-use-list ph)) |
(null (package-use-list ph)) |
26 |
(eqt (use-package pg ph) t) ;; "H" will use "G" |
(eqt (use-package (progn (setf x (incf i)) pg) |
27 |
|
(progn (setf y (incf i)) ph)) |
28 |
|
t) ;; "H" will use "G" |
29 |
|
(eql i 2) (eql x 1) (eql y 2) |
30 |
(multiple-value-bind (sym2 access) |
(multiple-value-bind (sym2 access) |
31 |
(find-symbol "FOO" ph) |
(find-symbol "FOO" ph) |
32 |
(and |
(and |
40 |
(null (find-symbol "FOO" ph))))) |
(null (find-symbol "FOO" ph))))) |
41 |
t) |
t) |
42 |
|
|
43 |
(deftest use-package-2 |
(deftest use-package.2 |
44 |
(progn |
(progn |
45 |
(safely-delete-package "H") |
(safely-delete-package "H") |
46 |
(safely-delete-package "G") |
(safely-delete-package "G") |
67 |
(null (find-symbol "FOO" ph))))) |
(null (find-symbol "FOO" ph))))) |
68 |
t) |
t) |
69 |
|
|
70 |
(deftest use-package-3 |
(deftest use-package.3 |
71 |
(progn |
(progn |
72 |
(safely-delete-package "H") |
(safely-delete-package "H") |
73 |
(safely-delete-package "G") |
(safely-delete-package "G") |
94 |
(null (find-symbol "FOO" ph))))) |
(null (find-symbol "FOO" ph))))) |
95 |
t) |
t) |
96 |
|
|
97 |
(deftest use-package-4 |
(deftest use-package.4 |
98 |
(progn |
(progn |
99 |
(safely-delete-package "H") |
(safely-delete-package "H") |
100 |
(safely-delete-package "G") |
(safely-delete-package "G") |
124 |
|
|
125 |
;; use lists of packages |
;; use lists of packages |
126 |
|
|
127 |
(deftest use-package-5 |
(deftest use-package.5 |
128 |
(let ((pkgs '("H" "G1" "G2" "G3")) |
(let ((pkgs '("H" "G1" "G2" "G3")) |
129 |
(vars '("FOO1" "FOO2" "FOO3"))) |
(vars '("FOO1" "FOO2" "FOO3"))) |
130 |
(dolist (p pkgs) |
(dolist (p pkgs) |
156 |
|
|
157 |
;; Circular package use |
;; Circular package use |
158 |
|
|
159 |
(deftest use-package-6 |
(deftest use-package.6 |
160 |
(progn |
(progn |
161 |
(safely-delete-package "H") |
(safely-delete-package "H") |
162 |
(safely-delete-package "G") |
(safely-delete-package "G") |