/[gcl]/gcl/ansi-tests/make-package.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/make-package.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pfdietz, Sun Aug 29 15:44:23 2004 UTC revision 1.3 by pfdietz, Sat Apr 23 14:32:49 2005 UTC
# Line 134  Line 134 
134    (progn    (progn
135      (safely-delete-package '#:|TEST1|)      (safely-delete-package '#:|TEST1|)
136      (let ((p (ignore-errors (make-package '#:|TEST1| :use '("A")))))      (let ((p (ignore-errors (make-package '#:|TEST1| :use '("A")))))
137        (prog1        (multiple-value-prog1
138            (and (packagep p)            (values (notnot (packagep p))
139                 (equalt (package-name p) "TEST1")                    (equalt (package-name p) "TEST1")
140                 (equalt (package-nicknames p) nil)                    (equalt (package-nicknames p) nil)
141                 (equalt (package-use-list p) (list (find-package "A")))                    (equalt (package-use-list p) (list (find-package "A")))
142                 (equalt (package-used-by-list p) nil))                    (equalt (package-used-by-list p) nil))
143          (safely-delete-package p))))          (safely-delete-package p))))
144    t)    t t t t t)
145    
146  (deftest make-package.8a  (deftest make-package.8a
147    (progn    (progn
148      (safely-delete-package '#:|TEST1|)      (safely-delete-package '#:|TEST1|)
149      (let ((p (ignore-errors (make-package '#:|TEST1| :use '(#:|A|)))))      (let ((p (ignore-errors (make-package '#:|TEST1| :use '(#:|A|)))))
150        (prog1        (multiple-value-prog1
151            (and (packagep p)            (values (notnot (packagep p))
152                 (equalt (package-name p) "TEST1")                    (equalt (package-name p) "TEST1")
153                 (equalt (package-nicknames p) nil)                    (equalt (package-nicknames p) nil)
154                 (equalt (package-use-list p) (list (find-package "A")))                    (equalt (package-use-list p) (list (find-package "A")))
155                 (equalt (package-used-by-list p) nil))                    (equalt (package-used-by-list p) nil))
156          (safely-delete-package p))))          (safely-delete-package p))))
157    t)    t t t t t)
158    
159  (deftest make-package.8b  (deftest make-package.8b
160    (progn    (progn
161      (safely-delete-package '#:|TEST1|)      (safely-delete-package '#:|TEST1|)
162      (let ((p (ignore-errors (make-package '#:|TEST1| :use '(#\A)))))      (let ((p (ignore-errors (make-package '#:|TEST1| :use '(#\A)))))
163        (prog1        (multiple-value-prog1
164            (and (packagep p)            (values (packagep p)
165                 (equalt (package-name p) "TEST1")                    (equalt (package-name p) "TEST1")
166                 (equalt (package-nicknames p) nil)                    (equalt (package-nicknames p) nil)
167                 (equalt (package-use-list p) (list (find-package "A")))                    (equalt (package-use-list p) (list (find-package "A")))
168                 (equalt (package-used-by-list p) nil))                    (equalt (package-used-by-list p) nil))
169          (safely-delete-package p))))          (safely-delete-package p))))
170    t)    t t t t t)
171    
172  (deftest make-package.9  (deftest make-package.9
173    (progn    (progn
174      (safely-delete-package #\X)      (safely-delete-package #\X)
175      (let ((p (ignore-errors (make-package #\X :use '("A")))))      (let ((p (ignore-errors (make-package #\X :use '("A")))))
176        (prog1        (multiple-value-prog1
177            (and (packagep p)            (values (notnot (packagep p))
178                 (equalt (package-name p) "X")                    (equalt (package-name p) "X")
179                 (equalt (package-nicknames p) nil)                    (equalt (package-nicknames p) nil)
180                 (equalt (package-use-list p) (list (find-package "A")))                    (equalt (package-use-list p) (list (find-package "A")))
181                 (equalt (package-used-by-list p) nil))                    (equalt (package-used-by-list p) nil))
182          (safely-delete-package p))))          (safely-delete-package p))))
183    t)    t t t t t)
184    
185  (deftest make-package.9a  (deftest make-package.9a
186    (progn    (progn
187      (safely-delete-package #\X)      (safely-delete-package #\X)
188      (let ((p (ignore-errors (make-package #\X :use '(#:|A|)))))      (let ((p (ignore-errors (make-package #\X :use '(#:|A|)))))
189        (prog1        (multiple-value-prog1
190            (and (packagep p)            (values (notnot (packagep p))
191                 (equalt (package-name p) "X")                    (equalt (package-name p) "X")
192                 (equalt (package-nicknames p) nil)                    (equalt (package-nicknames p) nil)
193                 (equalt (package-use-list p) (list (find-package "A")))                    (equalt (package-use-list p) (list (find-package "A")))
194                 (equalt (package-used-by-list p) nil))                    (equalt (package-used-by-list p) nil))
195          (safely-delete-package p))))          (safely-delete-package p))))
196    t)    t t t t t)
197    
198  (deftest make-package.9b  (deftest make-package.9b
199    (progn    (progn
200      (safely-delete-package #\X)      (safely-delete-package #\X)
201      (let ((p (ignore-errors (make-package #\X :use '(#\A)))))      (let ((p (ignore-errors (make-package #\X :use '(#\A)))))
202        (prog1        (multiple-value-prog1
203            (and (packagep p)            (values (notnot (packagep p))
204                 (equalt (package-name p) "X")                    (equalt (package-name p) "X")
205                 (equalt (package-nicknames p) nil)                    (equalt (package-nicknames p) nil)
206                 (equalt (package-use-list p) (list (find-package "A")))                    (equalt (package-use-list p) (list (find-package "A")))
207                 (equalt (package-used-by-list p) nil))                    (equalt (package-used-by-list p) nil))
208          (safely-delete-package p))))          (safely-delete-package p))))
209    t)    t t t t t)
210    
211  ;; make-package with nicknames  ;; make-package with nicknames
212    
213  (deftest make-package.10  (deftest make-package.10
214    (progn    (progn
215      (safely-delete-package "TEST1")      (mapc #'safely-delete-package '("TEST1" "F"))
216      (let ((p (make-package "TEST1" :nicknames '("F"))))      (let ((p (make-package "TEST1" :nicknames '("F"))))
217        (prog1        (multiple-value-prog1
218            (and (packagep p)            (values (notnot (packagep p))
219                 (equalt (package-name p) "TEST1")                    (equalt (package-name p) "TEST1")
220                 (equalt (package-nicknames p) '("F"))                    (equalt (package-nicknames p) '("F"))
221                 (equalt (package-used-by-list p) nil))                    (equalt (package-used-by-list p) nil))
222          (safely-delete-package p))))          (safely-delete-package p))))
223    t)    t t t t)
224    
225  (deftest make-package.11  (deftest make-package.11
226    (progn    (progn
227      (safely-delete-package '#:|TEST1|)      (mapc #'safely-delete-package '("TEST1" "G"))
228      (let ((p (make-package '#:|TEST1| :nicknames '(#:|G|))))      (let ((p (make-package '#:|TEST1| :nicknames '(#:|G|))))
229        (prog1        (multiple-value-prog1
230            (and (packagep p)            (values (notnot (packagep p))
231                 (equalt (package-name p) "TEST1")                    (equalt (package-name p) "TEST1")
232                 (equalt (package-nicknames p) '("G"))                    (equalt (package-nicknames p) '("G"))
233                 (equalt (package-used-by-list p) nil))                    (equalt (package-used-by-list p) nil))
234          (safely-delete-package p))))          (safely-delete-package p))))
235    t)    t t t t)
236    
237  (deftest make-package.12  (deftest make-package.12
238    (progn    (progn
239      (safely-delete-package '#:|TEST1|)      (mapc #'safely-delete-package '("TEST1" "G"))
240      (let ((p (make-package '#:|TEST1| :nicknames '(#\G))))      (let ((p (make-package '#:|TEST1| :nicknames '(#\G))))
241        (prog1        (multiple-value-prog1
242            (and (packagep p)            (values (notnot (packagep p))
243                 (equalt (package-name p) "TEST1")                    (equalt (package-name p) "TEST1")
244                 (equalt (package-nicknames p) '("G"))                    (equalt (package-nicknames p) '("G"))
245                 (equalt (package-used-by-list p) nil))                    (equalt (package-used-by-list p) nil))
246          (safely-delete-package p))))          (safely-delete-package p))))
247    t)    t t t t)
248    
249  (deftest make-package.13  (deftest make-package.13
250    (progn    (progn
251      (safely-delete-package #\X)      (mapc #'safely-delete-package '(#\X #\F #\G #\H))
252      (let ((p (make-package #\X :nicknames '("F" #\G #:|H|))))      (let ((p (make-package #\X :nicknames '("F" #\G #:|H|))))
253        (prog1        (multiple-value-prog1
254            (and (packagep p)            (values (notnot (packagep p))
255                 (equalt (package-name p) "X")                    (equalt (package-name p) "X")
256                 (null (set-exclusive-or (package-nicknames p)                    (set-exclusive-or (package-nicknames p)
257                                         '("F" "G" "H")                                      '("F" "G" "H")
258                                         :test #'equal))                                      :test #'equal)
259                 (equalt (package-used-by-list p) nil))                    (equalt (package-used-by-list p) nil))
260          (safely-delete-package p))))          (safely-delete-package p))))
261    t)    t t nil t)
262    
263  ;;; Specialized sequences as designators  ;;; Specialized sequences as designators
264    
# Line 270  Line 270 
270         (assert (string= name "TEST1"))         (assert (string= name "TEST1"))
271         (safely-delete-package "TEST1")         (safely-delete-package "TEST1")
272         (let ((p (ignore-errors (make-package name))))         (let ((p (ignore-errors (make-package name))))
273           (prog1           (multiple-value-prog1
274               (and (packagep p)            (values (notnot (packagep p))
275                    (equalt (package-name p) "TEST1")                    (equalt (package-name p) "TEST1")
276                    (equalt (package-nicknames p) nil)                    (equalt (package-nicknames p) nil)
277                    (equalt (package-used-by-list p) nil))                    (equalt (package-used-by-list p) nil))
278             (safely-delete-package p))))            (safely-delete-package p))))
279       t))       t t t t))
280    
281  (def-make-package-test1 make-package.14  (def-make-package-test1 make-package.14
282    (make-array 5 :initial-contents "TEST1"    (make-array 5 :initial-contents "TEST1"
# Line 327  Line 327 
327         (safely-delete-package "TEST1")         (safely-delete-package "TEST1")
328         (safely-delete-package nickname)         (safely-delete-package nickname)
329         (let ((p (make-package name :nicknames (list nickname))))         (let ((p (make-package name :nicknames (list nickname))))
330           (prog1           (multiple-value-prog1
331               (and (packagep p)               (values (notnot (packagep p))
332                    (equalt (package-name p) "TEST1")                       (equalt (package-name p) "TEST1")
333                    (equalt (package-nicknames p) (list nickname))                       (equalt (package-nicknames p) (list nickname))
334                    (equalt (package-used-by-list p) nil))                       (equalt (package-used-by-list p) nil))
335             (safely-delete-package p))))               (safely-delete-package p))))
336       t))       t t t t))
337    
338  (def-make-package-test2 make-package.21  (def-make-package-test2 make-package.21
339    (make-array 5 :initial-contents "TEST1"    (make-array 5 :initial-contents "TEST1"
# Line 383  Line 383 
383         (safely-delete-package "TEST1")         (safely-delete-package "TEST1")
384         (assert (find-package name))         (assert (find-package name))
385         (let ((p (ignore-errors (make-package "TEST1" :use (list name)))))         (let ((p (ignore-errors (make-package "TEST1" :use (list name)))))
386           (prog1           (multiple-value-prog1
387               (and (packagep p)               (values (notnot (packagep p))
388                    (equalt (package-name p) "TEST1")                       (equalt (package-name p) "TEST1")
389                    (equalt (package-nicknames p) nil)                       (equalt (package-nicknames p) nil)
390                    (equalt (package-use-list p) (list (find-package name)))                       (equalt (package-use-list p) (list (find-package name)))
391                    (equalt (package-used-by-list p) nil))                       (equalt (package-used-by-list p) nil))
392             (safely-delete-package p))))               (safely-delete-package p))))
393       t))       t t t t t))
394    
395  (def-make-package-test3 make-package.28  (def-make-package-test3 make-package.28
396    (make-array 1 :initial-contents "A" :element-type 'base-char))    (make-array 1 :initial-contents "A" :element-type 'base-char))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26