/[gcl]/gcl/ansi-tests/allocate-instance.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/allocate-instance.lsp

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

revision 1.3 by pfdietz, Sat May 3 16:20:43 2003 UTC revision 1.4 by pfdietz, Thu May 15 12:12:32 2003 UTC
# Line 89  Line 89 
89    t t t    t t t
90    x 1234567890 #\Z foo)    x 1234567890 #\Z foo)
91    
92    ;;; Order of evaluation tests
93    
94    (deftest allocate-instance.order.1
95      (let* ((class (find-class 'allocate-instance-class-01))
96             (i 0) x y z w
97             (obj (allocate-instance (progn (setf x (incf i)) class)
98                                     :e (setf y (incf i))
99                                     :b (setf z (incf i))
100                                     :e (setf w (incf i)))))
101        (values
102         (eqt (class-of obj) class)
103         (typep* obj 'allocate-instance-class-01)
104         (typep* obj class)
105         i x y z w))
106      t t t 4 1 2 3 4)
107    
108    ;;; Error tests
109    
110  (deftest allocate-instance.error.1  (deftest allocate-instance.error.1
111    (classify-error (allocate-instance))    (classify-error (allocate-instance))
112    program-error)    program-error)

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