/[gcl]/gcl/ansi-tests/slot-exists-p.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/slot-exists-p.lsp

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

revision 1.3 by pfdietz, Sat May 10 15:43:31 2003 UTC revision 1.4 by pfdietz, Sat May 10 19:05:59 2003 UTC
# Line 132  Line 132 
132      (map-slot-exists-p* obj (list 'a 'b 'c 'd 'e (gensym))))      (map-slot-exists-p* obj (list 'a 'b 'c 'd 'e (gensym))))
133    (t t t t t nil))    (t t t t t nil))
134    
135    
136    ;;; Errors tests
137    
138    (deftest slot-exists-p.error.1
139      (classify-error (slot-exists-p))
140      program-error)
141    
142    (deftest slot-exists-p.error.2
143      (classify-error (slot-exists-p 'a))
144      program-error)
145    
146    (deftest slot-exists-p.error.3
147      (classify-error (slot-exists-p (make-instance 'slot-exists-p-class-01)))
148      program-error)
149    
150    (deftest slot-exists-p.error.4
151      (classify-error (slot-exists-p (make-instance 'slot-exists-p-class-01)
152                                     'a nil))
153      program-error)
154    
155    

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