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

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

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

revision 1.1 by pfdietz, Fri Apr 25 12:09:08 2003 UTC revision 1.2 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    
8    ;;; I created some redundant tests by accident.  This list of
9    ;;; tests could be reduced in size.
10    
11  (deftest defclass.error.1  (deftest defclass.error.1
12    (classify-error    (classify-error
13     (defclass erroneous-class.1 ()     (defclass erroneous-class.1 ()
# Line 83  Line 86 
86     (defclass erroneous-class.13 ()     (defclass erroneous-class.13 ()
87       (a b c)       (a b c)
88       (#.(gensym))))       (#.(gensym))))
   program-error)  
89      program-error)
90    
91    (deftest defclass.error.14
92      (classify-error
93       (defclass defclass-error-14 nil
94         (foo foo)))
95      program-error)
96    
97    (deftest defclass.error.15
98      (classify-error
99       (defclass defclass-error-15 nil
100         (foo (foo))))
101      program-error)
102    
103    (deftest defclass.error.16
104      (classify-error
105       (defclass defclass-error-16 nil
106         ((foo :initarg f1))
107         (:default-initargs :f1 10 :f1 20)))
108      program-error)
109    
110    (deftest defclass.error.17
111      (classify-error
112       (defclass defclass-error-17 nil
113         ((foo :initform 10 :initform 20 :reader defclass-error-4/foo))))
114      program-error)
115    
116    (deftest defclass.error.18
117      (classify-error
118       (defclass defclass-error-18 nil
119         ((foo :initform 10 :initform 10 :reader defclass-error-5/foo))))
120      program-error)
121    
122    (deftest defclass.error.19
123      (classify-error
124       (defclass defclass-error-19 nil
125         ((foo :initarg f1 :type t :type t :reader defclass-error-6/foo))))
126      program-error)
127    
128    (deftest defclass.error.20
129      (classify-error
130       (defclass defclass-error-20 nil
131         ((foo :initarg f1 :documentation "x" :reader defclass-error-7/foo
132               :documentation "x"))))
133      program-error)
134    
135    (deftest defclass.error.21
136      (classify-error
137       (defclass defclass-error-21 ()
138         ((foo #:unknown-slot-option nil))))
139      program-error)
140    
141    (deftest defclass.error.22
142      (let ((option (gentemp "UNKNOWN-OPTION" (symbol-package :foo))))
143        (eval
144         `(classify-error
145           (defclass defclass-error-22 ()
146             (foo bar)
147             (,option nil)))))
148      program-error)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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