/[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.4 by pfdietz, Sun Nov 3 11:06:15 2002 UTC revision 1.5 by pfdietz, Mon Jan 13 14:11:50 2003 UTC
# Line 40  Line 40 
40             (subsetp p2 p1)))             (subsetp p2 p1)))
41    t)    t)
42    
43    (deftest list-all-packages.error.1
44      (classify-error (list-all-packages nil))
45      program-error)
46    
47    
48  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
49  ;;; package-name  ;;; package-name
# Line 122  Line 126 
126                 (ignore-errors (package-name (package-name p))))))                 (ignore-errors (package-name (package-name p))))))
127    0)    0)
128    
129    (deftest package-name.error.1
130      (classify-error (package-name))
131      program-error)
132    
133    (deftest package-name.error.2
134      (classify-error (package-name "CL" nil))
135      program-error)
136    
137  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
138  ;;; package-nicknames  ;;; package-nicknames
139    
# Line 189  Line 201 
201            (and (stringp nk)            (and (stringp nk)
202                 (eqt p (find-package nk))))))                 (eqt p (find-package nk))))))
203    0)    0)
204    
205    (deftest package-nicknames.error.1
206      (classify-error (package-nicknames))
207      program-error)
208    
209    (deftest package-nicknames.error.2
210      (classify-error (package-nicknames "CL" nil))
211      program-error)

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

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