/[gcl]/gcl/ansi-tests/defclass.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/defclass.lsp

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

revision 1.5 by pfdietz, Mon Apr 21 12:20:33 2003 UTC revision 1.6 by pfdietz, Wed Apr 30 11:16:31 2003 UTC
# Line 5  Line 5 
5    
6  (in-package :cl-test)  (in-package :cl-test)
7    
 ;;; Error tests (let's get them out of the way)  
   
 (deftest defclass.error.1  
   (classify-error  
    (defclass defclass-error-1 nil  
      (foo foo)))  
   program-error)  
   
 (deftest defclass.error.2  
   (classify-error  
    (defclass defclass-error-2 nil  
      (foo (foo))))  
   program-error)  
   
 (deftest defclass.error.3  
   (classify-error  
    (defclass defclass-error-3 nil  
      ((foo :initarg f1))  
      (:default-initargs :f1 10 :f1 20)))  
   program-error)  
   
 (deftest defclass.error.4  
   (classify-error  
    (defclass defclass-error-4 nil  
      ((foo :initform 10 :initform 20 :reader defclass-error-4/foo))))  
   program-error)  
   
 (deftest defclass.error.5  
   (classify-error  
    (defclass defclass-error-5 nil  
      ((foo :initform 10 :initform 10 :reader defclass-error-5/foo))))  
   program-error)  
   
 (deftest defclass.error.6  
   (classify-error  
    (defclass defclass-error-6 nil  
      ((foo :initarg f1 :type t :type t :reader defclass-error-6/foo))))  
   program-error)  
   
 (deftest defclass.error.7  
   (classify-error  
    (defclass defclass-error-7 nil  
      ((foo :initarg f1 :documentation "x" :reader defclass-error-7/foo  
            :documentation "x"))))  
   program-error)  
   
 (deftest defclass.error.8  
   (classify-error  
    (defclass defclass-error-8 ()  
      ((foo #:unknown-slot-option nil))))  
   program-error)  
   
 (deftest defclass.error.9  
   (let ((option (gentemp "UNKNOWN-OPTION" (symbol-package :foo))))  
     (eval  
      `(classify-error  
        (defclass defclass-error-9 ()  
          (foo bar)  
          (,option nil)))))  
   program-error)  
   
   
 ;;; Now non-error tests  
   
8  (defclass-with-tests defclass-1 nil nil)  (defclass-with-tests defclass-1 nil nil)
9  (defclass-with-tests defclass-2 nil (slot1 slot2 slot3))  (defclass-with-tests defclass-2 nil (slot1 slot2 slot3))
10    

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

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