/[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.3 by pfdietz, Fri Oct 18 11:58:46 2002 UTC revision 1.4 by pfdietz, Sun Nov 3 11:06:15 2002 UTC
# Line 61  Line 61 
61    "A")    "A")
62    
63  (deftest package-name-5  (deftest package-name-5
64      (catch-type-error (package-name "NOT-THERE"))    (notnot (member (classify-error (package-name "NOT-THERE"))
65    type-error)                    '(type-error package-error)))
66      t)
67    
68  (deftest package-name-6  (deftest package-name-6
69      (catch-type-error (package-name #\*))    (notnot (member (classify-error (package-name #\*))
70    type-error)                    '(type-error package-error)))
71      t)
72    
73  (deftest package-name-7  (deftest package-name-7
74      (package-name "CL")    (package-name "CL")
75    "COMMON-LISP")    "COMMON-LISP")
76    
77  (deftest package-name-8  (deftest package-name-8
78      (package-name "COMMON-LISP")    (package-name "COMMON-LISP")
79    "COMMON-LISP")    "COMMON-LISP")
80    
81  (deftest package-name-9  (deftest package-name-9
82      (package-name "COMMON-LISP-USER")    (package-name "COMMON-LISP-USER")
83    "COMMON-LISP-USER")    "COMMON-LISP-USER")
84    
85  (deftest package-name-10  (deftest package-name-10
86      (package-name "CL-USER")    (package-name "CL-USER")
87    "COMMON-LISP-USER")    "COMMON-LISP-USER")
88    
89  (deftest package-name-11  (deftest package-name-11
90      (package-name "KEYWORD")    (package-name "KEYWORD")
91    "KEYWORD")    "KEYWORD")
92    
93  (deftest package-name-12  (deftest package-name-12
94      (package-name (find-package "CL"))    (package-name (find-package "CL"))
95    "COMMON-LISP")    "COMMON-LISP")
96    
97  (deftest package-name-13  (deftest package-name-13
98      (let* ((p (make-package "TEMP1"))    (let* ((p (make-package "TEMP1"))
99             (pname1 (package-name p)))           (pname1 (package-name p)))
100        (rename-package "TEMP1" "TEMP2")      (rename-package "TEMP1" "TEMP2")
101        (let ((pname2 (package-name p)))      (let ((pname2 (package-name p)))
102          (ignore-errors (delete-package p))        (ignore-errors (delete-package p))
103          (list pname1 pname2 (package-name p))))        (list pname1 pname2 (package-name p))))
104    ("TEMP1" "TEMP2" nil))    ("TEMP1" "TEMP2" nil))
105    
106  ;; (find-package (package-name p)) == p for any package p  ;; (find-package (package-name p)) == p for any package p
# Line 128  Line 130 
130    ("Q"))    ("Q"))
131    
132  (deftest package-nicknames-2  (deftest package-nicknames-2
133      (ignore-errors (package-nicknames #\A))    (ignore-errors (package-nicknames #\A))
134    ("Q"))    ("Q"))
135    
136  (deftest package-nicknames-3  (deftest package-nicknames-3
137      (ignore-errors (package-nicknames ':|A|))    (ignore-errors (package-nicknames ':|A|))
138    ("Q"))    ("Q"))
139    
140  (deftest package-nicknames-4  (deftest package-nicknames-4
141      (ignore-errors (package-nicknames "B"))    (ignore-errors (package-nicknames "B"))
142    nil)    nil)
143    
144  (deftest package-nicknames-5  (deftest package-nicknames-5
145      (ignore-errors (package-nicknames #\B))    (ignore-errors (package-nicknames #\B))
146    nil)    nil)
147    
148  (deftest package-nicknames-6  (deftest package-nicknames-6
149      (ignore-errors (package-nicknames '#:|B|))    (ignore-errors (package-nicknames '#:|B|))
150    nil)    nil)
151    
152  (deftest package-nicknames-7  (deftest package-nicknames-7
153      (ignore-errors    (ignore-errors
154        (subsetp '("CL")      (subsetp '("CL")
155              (package-nicknames "COMMON-LISP")               (package-nicknames "COMMON-LISP")
156              :test #'string=))               :test #'string=))
157    t)    t)
158    
159  (deftest package-nicknames-8  (deftest package-nicknames-8
# Line 163  Line 165 
165    t)    t)
166    
167  (deftest package-nicknames-9  (deftest package-nicknames-9
168      (catch-type-error (package-nicknames 10))    (catch-type-error (package-nicknames 10))
169    type-error)    type-error)
170    
171  (deftest package-nicknames-10  (deftest package-nicknames-10
172      (ignore-errors (package-nicknames (find-package "A")))    (ignore-errors (package-nicknames (find-package "A")))
173    ("Q"))    ("Q"))
174    
175  (deftest package-nicknames-11  (deftest package-nicknames-11
176      (catch-type-error (package-nicknames "NOT-A-PACKAGE-NAME"))    (notnot (member (classify-error (package-nicknames "NOT-A-PACKAGE-NAME"))
177    type-error)                    '(type-error package-error)))
178      t)
179    
180    
181  ;; (find-package n) == p for each n in (package-nicknames p),  ;; (find-package n) == p for each n in (package-nicknames p),

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

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