/[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.10 by pfdietz, Sat Mar 1 03:35:48 2003 UTC revision 1.11 by pfdietz, Sat Jul 12 13:46:01 2003 UTC
# Line 49  Line 49 
49  ;;; package-name  ;;; package-name
50    
51  (deftest package-name.1  (deftest package-name.1
52    (ignore-errors (package-name "A"))    (let () (ignore-errors (package-name "A")))
53    "A")    "A")
54    
55  (deftest package-name.2  (deftest package-name.2
56    (ignore-errors (package-name #\A))    (let () (ignore-errors (package-name #\A)))
57    "A")    "A")
58    
59  (deftest package-name.3  (deftest package-name.3
60    (ignore-errors (package-name "Q"))    (let () (ignore-errors (package-name "Q")))
61    "A")    "A")
62    
63  (deftest package-name.4  (deftest package-name.4
64    (ignore-errors (package-name #\Q))    (let () (ignore-errors (package-name #\Q)))
65    "A")    "A")
66    
67  (deftest package-name.5  (deftest package-name.5
# Line 143  Line 143 
143  ;;; package-nicknames  ;;; package-nicknames
144    
145  (deftest package-nicknames.1  (deftest package-nicknames.1
146    (ignore-errors (package-nicknames "A"))    (let () (ignore-errors (package-nicknames "A")))
147    ("Q"))    ("Q"))
148    
149  (deftest package-nicknames.2  (deftest package-nicknames.2
150    (ignore-errors (package-nicknames #\A))    (let () (ignore-errors (package-nicknames #\A)))
151    ("Q"))    ("Q"))
152    
153  (deftest package-nicknames.3  (deftest package-nicknames.3
154    (ignore-errors (package-nicknames ':|A|))    (let () (ignore-errors (package-nicknames ':|A|)))
155    ("Q"))    ("Q"))
156    
157  (deftest package-nicknames.4  (deftest package-nicknames.4
158    (ignore-errors (package-nicknames "B"))    (let () (ignore-errors (package-nicknames "B")))
159    nil)    nil)
160    
161  (deftest package-nicknames.5  (deftest package-nicknames.5
162    (ignore-errors (package-nicknames #\B))    (let () (ignore-errors (package-nicknames #\B)))
163    nil)    nil)
164    
165  (deftest package-nicknames.6  (deftest package-nicknames.6
166    (ignore-errors (package-nicknames '#:|B|))    (let () (ignore-errors (package-nicknames '#:|B|)))
167    nil)    nil)
168    
169  (deftest package-nicknames.7  (deftest package-nicknames.7
170    (ignore-errors    (let ()
171      (subsetp '(#.(string '#:cl))      (ignore-errors
172               (package-nicknames "COMMON-LISP")        (subsetp '(#.(string '#:cl))
173               :test #'string=))                 (package-nicknames "COMMON-LISP")
174                   :test #'string=)))
175    t)    t)
176    
177  (deftest package-nicknames.8  (deftest package-nicknames.8
178    (ignore-errors    (let ()
179      (notnot      (ignore-errors
180       (subsetp '(#.(string '#:cl-user))        (notnot
181                (package-nicknames "COMMON-LISP-USER")         (subsetp '(#.(string '#:cl-user))
182                :test #'string=)))                  (package-nicknames "COMMON-LISP-USER")
183                    :test #'string=))))
184    t)    t)
185    
186  (deftest package-nicknames.9  (deftest package-nicknames.9
# Line 190  Line 192 
192    type-error)    type-error)
193    
194  (deftest package-nicknames.10  (deftest package-nicknames.10
195    (ignore-errors (package-nicknames (find-package "A")))    (let () (ignore-errors (package-nicknames (find-package "A"))))
196    ("Q"))    ("Q"))
197    
198  (deftest package-nicknames.11  (deftest package-nicknames.11

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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