22 |
(equal (package-used-by-list pg) (list ph)) |
(equal (package-used-by-list pg) (list ph)) |
23 |
(unuse-package pg ph) |
(unuse-package pg ph) |
24 |
(equal (package-use-list ph) nil) |
(equal (package-use-list ph) nil) |
25 |
(equal (package-used-by-list pg) nil)) |
(null (package-used-by-list pg))) |
26 |
(delete-package "H") |
(delete-package "H") |
27 |
(delete-package "G")))) |
(delete-package "G")))) |
28 |
t) |
t) |
39 |
(equal (package-used-by-list pg) (list ph)) |
(equal (package-used-by-list pg) (list ph)) |
40 |
(unuse-package "G" ph) |
(unuse-package "G" ph) |
41 |
(equal (package-use-list ph) nil) |
(equal (package-use-list ph) nil) |
42 |
(equal (package-used-by-list pg) nil)) |
(null (package-used-by-list pg))) |
43 |
(delete-package "H") |
(delete-package "H") |
44 |
(delete-package "G")))) |
(delete-package "G")))) |
45 |
t) |
t) |
56 |
(equal (package-used-by-list pg) (list ph)) |
(equal (package-used-by-list pg) (list ph)) |
57 |
(unuse-package :|G| ph) |
(unuse-package :|G| ph) |
58 |
(equal (package-use-list ph) nil) |
(equal (package-use-list ph) nil) |
59 |
(equal (package-used-by-list pg) nil)) |
(null (package-used-by-list pg))) |
60 |
(delete-package "H") |
(delete-package "H") |
61 |
(delete-package "G")))) |
(delete-package "G")))) |
62 |
t) |
t) |
73 |
(equal (package-used-by-list pg) (list ph)) |
(equal (package-used-by-list pg) (list ph)) |
74 |
(ignore-errors (unuse-package #\G ph)) |
(ignore-errors (unuse-package #\G ph)) |
75 |
(equal (package-use-list ph) nil) |
(equal (package-use-list ph) nil) |
76 |
(equal (package-used-by-list pg) nil)) |
(null (package-used-by-list pg))) |
77 |
(delete-package "H") |
(delete-package "H") |
78 |
(delete-package "G")))) |
(delete-package "G")))) |
79 |
t) |
t) |
90 |
(equal (package-used-by-list pg) (list ph)) |
(equal (package-used-by-list pg) (list ph)) |
91 |
(unuse-package (list pg) ph) |
(unuse-package (list pg) ph) |
92 |
(equal (package-use-list ph) nil) |
(equal (package-use-list ph) nil) |
93 |
(equal (package-used-by-list pg) nil)) |
(null (package-used-by-list pg))) |
94 |
(delete-package "H") |
(delete-package "H") |
95 |
(delete-package "G")))) |
(delete-package "G")))) |
96 |
t) |
t) |
107 |
(equal (package-used-by-list pg) (list ph)) |
(equal (package-used-by-list pg) (list ph)) |
108 |
(unuse-package (list "G") ph) |
(unuse-package (list "G") ph) |
109 |
(equal (package-use-list ph) nil) |
(equal (package-use-list ph) nil) |
110 |
(equal (package-used-by-list pg) nil)) |
(null (package-used-by-list pg))) |
111 |
(delete-package "H") |
(delete-package "H") |
112 |
(delete-package "G")))) |
(delete-package "G")))) |
113 |
t) |
t) |
124 |
(equal (package-used-by-list pg) (list ph)) |
(equal (package-used-by-list pg) (list ph)) |
125 |
(unuse-package (list :|G|) ph) |
(unuse-package (list :|G|) ph) |
126 |
(equal (package-use-list ph) nil) |
(equal (package-use-list ph) nil) |
127 |
(equal (package-used-by-list pg) nil)) |
(null (package-used-by-list pg))) |
128 |
(delete-package "H") |
(delete-package "H") |
129 |
(delete-package "G")))) |
(delete-package "G")))) |
130 |
t) |
t) |
141 |
(equal (package-used-by-list pg) (list ph)) |
(equal (package-used-by-list pg) (list ph)) |
142 |
(ignore-errors (unuse-package (list #\G) ph)) |
(ignore-errors (unuse-package (list #\G) ph)) |
143 |
(equal (package-use-list ph) nil) |
(equal (package-use-list ph) nil) |
144 |
(equal (package-used-by-list pg) nil)) |
(null (package-used-by-list pg))) |
145 |
(delete-package "H") |
(delete-package "H") |
146 |
(delete-package "G")))) |
(delete-package "G")))) |
147 |
t) |
t) |
178 |
(equal (sort-package-list (package-use-list ph2)) |
(equal (sort-package-list (package-use-list ph2)) |
179 |
(list pg1 pg2 pg3)) |
(list pg1 pg2 pg3)) |
180 |
(equal (sort-package-list (package-used-by-list pg2)) |
(equal (sort-package-list (package-used-by-list pg2)) |
181 |
(list ph1 ph2))) |
(list ph1 ph2)) |
182 |
|
t) |
183 |
(dolist (p '("H1" "H2" "G1" "G2" "G3")) |
(dolist (p '("H1" "H2" "G1" "G2" "G3")) |
184 |
(ignore-errors (delete-package p))))))) |
(ignore-errors (delete-package p))))))) |
185 |
t) |
t) |