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 () |
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) |