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

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

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

revision 1.8 by pfdietz, Wed Jan 29 02:11:55 2003 UTC revision 1.9 by pfdietz, Sat Feb 15 05:11:11 2003 UTC
# Line 10  Line 10 
10  ;;; list-all-packages  ;;; list-all-packages
11    
12  ;; list-all-packages returns a list  ;; list-all-packages returns a list
13  (deftest list-all-packages-1  (deftest list-all-packages.1
14      (numberp (ignore-errors (list-length (list-all-packages))))    (numberp (ignore-errors (list-length (list-all-packages))))
15    t)    t)
16    
17  ;; The required packages are present  ;; The required packages are present
18  (deftest list-all-packages-2  (deftest list-all-packages.2
19      (subsetp    (subsetp
20       (list (find-package "CL")     (list (find-package "CL")
21             (find-package "CL-USER")           (find-package "CL-USER")
22             (find-package "KEYWORD")           (find-package "KEYWORD")
23             (find-package "A")           (find-package "A")
24             (find-package "RT")           (find-package "RT")
25             (find-package "CL-TEST")           (find-package "CL-TEST")
26             (find-package "B"))           (find-package "B"))
27       (list-all-packages))     (list-all-packages))
28    t)    t)
29    
30  ;; The list returned has only packages in it  ;; The list returned has only packages in it
31  (deftest list-all-packages-3  (deftest list-all-packages.3
32      (notnot-mv (every #'packagep (list-all-packages)))    (notnot-mv (every #'packagep (list-all-packages)))
33    t)    t)
34    
35  ;; It returns a list of the same packages each time it is called  ;; It returns a list of the same packages each time it is called
36  (deftest list-all-packages-4  (deftest list-all-packages.4
37      (let ((p1 (list-all-packages))    (let ((p1 (list-all-packages))
38            (p2 (list-all-packages)))          (p2 (list-all-packages)))
39        (and (subsetp p1 p2)      (and (subsetp p1 p2)
40             (subsetp p2 p1)))           (subsetp p2 p1)))
41    t)    t)
42    
43  (deftest list-all-packages.error.1  (deftest list-all-packages.error.1
# Line 48  Line 48 
48  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
49  ;;; package-name  ;;; package-name
50    
51  (deftest package-name-1  (deftest package-name.1
52      (ignore-errors (package-name "A"))    (ignore-errors (package-name "A"))
53    "A")    "A")
54    
55  (deftest package-name-2  (deftest package-name.2
56      (ignore-errors (package-name #\A))    (ignore-errors (package-name #\A))
57    "A")    "A")
58    
59  (deftest package-name-3  (deftest package-name.3
60      (ignore-errors (package-name "Q"))    (ignore-errors (package-name "Q"))
61    "A")    "A")
62    
63  (deftest package-name-4  (deftest package-name.4
64      (ignore-errors (package-name #\Q))    (ignore-errors (package-name #\Q))
65    "A")    "A")
66    
67  (deftest package-name-5  (deftest package-name.5
68    (notnot-mv (member (classify-error (package-name "NOT-THERE"))    (notnot-mv (member (classify-error (package-name "NOT-THERE"))
69                       '(type-error package-error)))                       '(type-error package-error)))
70    t)    t)
71    
72  (deftest package-name-6  (deftest package-name.6
73    (notnot-mv (member (classify-error (package-name #\*))    (notnot-mv (member (classify-error (package-name #\*))
74                       '(type-error package-error)))                       '(type-error package-error)))
75    t)    t)
76    
77  (deftest package-name-6a  (deftest package-name.6a
78    (notnot-mv (member (classify-error (locally (package-name #\*) t))    (notnot-mv (member (classify-error (locally (package-name #\*) t))
79                       '(type-error package-error)))                       '(type-error package-error)))
80    t)    t)
81    
82  (deftest package-name-7  (deftest package-name.7
83    (package-name "CL")    (package-name "CL")
84    "COMMON-LISP")    "COMMON-LISP")
85    
86  (deftest package-name-8  (deftest package-name.8
87    (package-name "COMMON-LISP")    (package-name "COMMON-LISP")
88    "COMMON-LISP")    "COMMON-LISP")
89    
90  (deftest package-name-9  (deftest package-name.9
91    (package-name "COMMON-LISP-USER")    (package-name "COMMON-LISP-USER")
92    "COMMON-LISP-USER")    "COMMON-LISP-USER")
93    
94  (deftest package-name-10  (deftest package-name.10
95    (package-name "CL-USER")    (package-name "CL-USER")
96    "COMMON-LISP-USER")    "COMMON-LISP-USER")
97    
98  (deftest package-name-11  (deftest package-name.11
99    (package-name "KEYWORD")    (package-name "KEYWORD")
100    "KEYWORD")    "KEYWORD")
101    
102  (deftest package-name-12  (deftest package-name.12
103    (package-name (find-package "CL"))    (package-name (find-package "CL"))
104    "COMMON-LISP")    "COMMON-LISP")
105    
106  (deftest package-name-13  (deftest package-name.13
107    (let* ((p (make-package "TEMP1"))    (let* ((p (make-package "TEMP1"))
108           (pname1 (package-name p)))           (pname1 (package-name p)))
109      (rename-package "TEMP1" "TEMP2")      (rename-package "TEMP1" "TEMP2")
# Line 113  Line 113 
113    ("TEMP1" "TEMP2" nil))    ("TEMP1" "TEMP2" nil))
114    
115  ;; (find-package (package-name p)) == p for any package p  ;; (find-package (package-name p)) == p for any package p
116  (deftest package-name-14  (deftest package-name.14
117    (loop    (loop
118     for p in (list-all-packages) count     for p in (list-all-packages) count
119     (not     (not
# Line 124  Line 124 
124    
125  ;; package-name applied to a package's name  ;; package-name applied to a package's name
126  ;; should return an equal string  ;; should return an equal string
127  (deftest package-name-15  (deftest package-name.15
128    (loop    (loop
129     for p in (list-all-packages) count     for p in (list-all-packages) count
130     (not (equal (package-name p)     (not (equal (package-name p)
# Line 142  Line 142 
142  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
143  ;;; package-nicknames  ;;; package-nicknames
144    
145  (deftest package-nicknames-1  (deftest package-nicknames.1
146      (ignore-errors (package-nicknames "A"))    (ignore-errors (package-nicknames "A"))
147    ("Q"))    ("Q"))
148    
149  (deftest package-nicknames-2  (deftest package-nicknames.2
150    (ignore-errors (package-nicknames #\A))    (ignore-errors (package-nicknames #\A))
151    ("Q"))    ("Q"))
152    
153  (deftest package-nicknames-3  (deftest package-nicknames.3
154    (ignore-errors (package-nicknames ':|A|))    (ignore-errors (package-nicknames ':|A|))
155    ("Q"))    ("Q"))
156    
157  (deftest package-nicknames-4  (deftest package-nicknames.4
158    (ignore-errors (package-nicknames "B"))    (ignore-errors (package-nicknames "B"))
159    nil)    nil)
160    
161  (deftest package-nicknames-5  (deftest package-nicknames.5
162    (ignore-errors (package-nicknames #\B))    (ignore-errors (package-nicknames #\B))
163    nil)    nil)
164    
165  (deftest package-nicknames-6  (deftest package-nicknames.6
166    (ignore-errors (package-nicknames '#:|B|))    (ignore-errors (package-nicknames '#:|B|))
167    nil)    nil)
168    
169  (deftest package-nicknames-7  (deftest package-nicknames.7
170    (ignore-errors    (ignore-errors
171      (subsetp '("CL")      (subsetp '("CL")
172               (package-nicknames "COMMON-LISP")               (package-nicknames "COMMON-LISP")
173               :test #'string=))               :test #'string=))
174    t)    t)
175    
176  (deftest package-nicknames-8  (deftest package-nicknames.8
177    (ignore-errors    (ignore-errors
178      (notnot      (notnot
179       (subsetp '("CL-USER")       (subsetp '("CL-USER")
# Line 181  Line 181 
181                :test #'string=)))                :test #'string=)))
182    t)    t)
183    
184  (deftest package-nicknames-9  (deftest package-nicknames.9
185    (classify-error (package-nicknames 10))    (classify-error (package-nicknames 10))
186    type-error)    type-error)
187    
188  (deftest package-nicknames-9a  (deftest package-nicknames.9a
189    (classify-error (locally (package-nicknames 10) t))    (classify-error (locally (package-nicknames 10) t))
190    type-error)    type-error)
191    
192  (deftest package-nicknames-10  (deftest package-nicknames.10
193    (ignore-errors (package-nicknames (find-package "A")))    (ignore-errors (package-nicknames (find-package "A")))
194    ("Q"))    ("Q"))
195    
196  (deftest package-nicknames-11  (deftest package-nicknames.11
197    (notnot-mv (member (classify-error (package-nicknames "NOT-A-PACKAGE-NAME"))    (notnot-mv (member (classify-error (package-nicknames "NOT-A-PACKAGE-NAME"))
198                       '(type-error package-error)))                       '(type-error package-error)))
199    t)    t)
# Line 201  Line 201 
201    
202  ;; (find-package n) == p for each n in (package-nicknames p),  ;; (find-package n) == p for each n in (package-nicknames p),
203  ;; for any package p  ;; for any package p
204  (deftest package-nicknames-12  (deftest package-nicknames.12
205    (loop    (loop
206     for p in (list-all-packages) sum     for p in (list-all-packages) sum
207     (loop     (loop

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

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