/[gcl]/gcl/ansi-tests/shared-initialize.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/shared-initialize.lsp

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

revision 1.11 by pfdietz, Sat May 10 17:14:56 2003 UTC revision 1.12 by pfdietz, Thu May 15 12:12:32 2003 UTC
# Line 654  Line 654 
654    (nil t)    (nil t)
655    y)    y)
656    
657    ;;; Order of evaluation tests
658    
659    (deftest shared-initialize.order.1
660      (let ((obj (allocate-instance (find-class 'shared-init-class-01)))
661            (i 0) x r y z w q)
662        (values
663         (eqt obj
664              (shared-initialize (progn (setf x (incf i)) obj)
665                                 (progn (setf r (incf i)) nil)
666                                 :b (setf y (incf i))
667                                 :a (setf z (incf i))
668                                 :b (setf w (incf i))
669                                 :c (setf q (incf i))))
670         (map-slot-value obj '(a b c))
671         i x r y z w q))
672      t (4 3 6)
673      6 1 2 3 4 5 6)
674    
675  ;;; Error tests  ;;; Error tests
676    
677  (deftest shared-initialize.error.1  (deftest shared-initialize.error.1
# Line 677  Line 695 
695                                (find-class 'shared-init-class-01))))                                (find-class 'shared-init-class-01))))
696                      (shared-initialize obj nil '(a b c) nil)))                      (shared-initialize obj nil '(a b c) nil)))
697    program-error)    program-error)
   
   
   
   
   

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

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