/[gcl]/gcl/ansi-tests/packages-09.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/packages-09.lsp

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

revision 1.7 by pfdietz, Sat Jan 18 18:14:02 2003 UTC revision 1.8 by pfdietz, Sat Feb 15 05:11:11 2003 UTC
# Line 12  Line 12 
12  ;; Test basic make-package, using string, symbol and character  ;; Test basic make-package, using string, symbol and character
13  ;;    package-designators  ;;    package-designators
14    
15  (deftest make-package-1  (deftest make-package.1
16    (progn    (progn
17      (safely-delete-package "TEST1")      (safely-delete-package "TEST1")
18      (let ((p (ignore-errors (make-package "TEST1"))))      (let ((p (ignore-errors (make-package "TEST1"))))
# Line 24  Line 24 
24          (safely-delete-package p))))          (safely-delete-package p))))
25    t)    t)
26    
27  (deftest make-package-2  (deftest make-package.2
28    (progn    (progn
29      (safely-delete-package '#:|TEST1|)      (safely-delete-package '#:|TEST1|)
30      (let ((p (ignore-errors (make-package '#:|TEST1|))))      (let ((p (ignore-errors (make-package '#:|TEST1|))))
# Line 36  Line 36 
36          (safely-delete-package p))))          (safely-delete-package p))))
37    t)    t)
38    
39  (deftest make-package-3  (deftest make-package.3
40    (progn    (progn
41      (safely-delete-package #\X)      (safely-delete-package #\X)
42      (let ((p (ignore-errors (make-package #\X))))      (let ((p (ignore-errors (make-package #\X))))
# Line 50  Line 50 
50    
51  ;; Same, but with a null :use list  ;; Same, but with a null :use list
52    
53  (deftest make-package-4  (deftest make-package.4
54    (progn    (progn
55      (safely-delete-package "TEST1")      (safely-delete-package "TEST1")
56      (let ((p (ignore-errors (make-package "TEST1" :use nil))))      (let ((p (ignore-errors (make-package "TEST1" :use nil))))
# Line 63  Line 63 
63          (safely-delete-package p))))          (safely-delete-package p))))
64    t)    t)
65    
66  (deftest make-package-5  (deftest make-package.5
67    (progn    (progn
68      (safely-delete-package '#:|TEST1|)      (safely-delete-package '#:|TEST1|)
69      (let ((p (ignore-errors (make-package '#:|TEST1| :use nil))))      (let ((p (ignore-errors (make-package '#:|TEST1| :use nil))))
# Line 76  Line 76 
76          (safely-delete-package p))))          (safely-delete-package p))))
77    t)    t)
78    
79  (deftest make-package-6  (deftest make-package.6
80    (progn    (progn
81      (safely-delete-package #\X)      (safely-delete-package #\X)
82      (let ((p (make-package #\X)))      (let ((p (make-package #\X)))
# Line 91  Line 91 
91    
92  ;; Same, but use the A package  ;; Same, but use the A package
93    
94  (deftest make-package-7  (deftest make-package.7
95    (progn    (progn
96      (safely-delete-package "TEST1")      (safely-delete-package "TEST1")
97      (let ((p (ignore-errors (make-package "TEST1" :use '("A")))))      (let ((p (ignore-errors (make-package "TEST1" :use '("A")))))
# Line 104  Line 104 
104          (safely-delete-package p))))          (safely-delete-package p))))
105    t)    t)
106    
107  (deftest make-package-7a  (deftest make-package.7a
108    (progn    (progn
109      (safely-delete-package "TEST1")      (safely-delete-package "TEST1")
110      (let ((p (ignore-errors (make-package "TEST1" :use '(#:|A|)))))      (let ((p (ignore-errors (make-package "TEST1" :use '(#:|A|)))))
# Line 117  Line 117 
117          (safely-delete-package p))))          (safely-delete-package p))))
118    t)    t)
119    
120  (deftest make-package-7b  (deftest make-package.7b
121    (progn    (progn
122      (safely-delete-package "TEST1")      (safely-delete-package "TEST1")
123      (let ((p (ignore-errors (make-package "TEST1" :use '(#\A)))))      (let ((p (ignore-errors (make-package "TEST1" :use '(#\A)))))
# Line 130  Line 130 
130          (safely-delete-package p))))          (safely-delete-package p))))
131    t)    t)
132    
133  (deftest make-package-8  (deftest make-package.8
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")))))
# Line 143  Line 143 
143          (safely-delete-package p))))          (safely-delete-package p))))
144    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|)))))
# Line 156  Line 156 
156          (safely-delete-package p))))          (safely-delete-package p))))
157    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)))))
# Line 169  Line 169 
169          (safely-delete-package p))))          (safely-delete-package p))))
170    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")))))
# Line 182  Line 182 
182          (safely-delete-package p))))          (safely-delete-package p))))
183    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|)))))
# Line 195  Line 195 
195          (safely-delete-package p))))          (safely-delete-package p))))
196    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)))))
# Line 210  Line 210 
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")      (safely-delete-package "TEST1")
216      (let ((p (make-package "TEST1" :nicknames '("F"))))      (let ((p (make-package "TEST1" :nicknames '("F"))))
# Line 222  Line 222 
222          (safely-delete-package p))))          (safely-delete-package p))))
223    t)    t)
224    
225  (deftest make-package-11  (deftest make-package.11
226    (progn    (progn
227      (safely-delete-package '#:|TEST1|)      (safely-delete-package '#:|TEST1|)
228      (let ((p (make-package '#:|TEST1| :nicknames '(#:|G|))))      (let ((p (make-package '#:|TEST1| :nicknames '(#:|G|))))
# Line 234  Line 234 
234          (safely-delete-package p))))          (safely-delete-package p))))
235    t)    t)
236    
237  (deftest make-package-12  (deftest make-package.12
238    (progn    (progn
239      (safely-delete-package '#:|TEST1|)      (safely-delete-package '#:|TEST1|)
240      (let ((p (make-package '#:|TEST1| :nicknames '(#\G))))      (let ((p (make-package '#:|TEST1| :nicknames '(#\G))))
# Line 246  Line 246 
246          (safely-delete-package p))))          (safely-delete-package p))))
247    t)    t)
248    
249  (deftest make-package-13  (deftest make-package.13
250    (progn    (progn
251      (safely-delete-package #\X)      (safely-delete-package #\X)
252      (let ((p (make-package #\X :nicknames '("F" #\G #:|H|))))      (let ((p (make-package #\X :nicknames '("F" #\G #:|H|))))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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