Mercurial > hg > xemacs-beta

comparison tests/automated/byte-compiler-tests.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents 9d177e8d4150
children 3d3049ae1304
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
116 (before-and-after-compile-equal (- 1 2)) 116 (before-and-after-compile-equal (- 1 2))
117 (before-and-after-compile-equal (- 1)) 117 (before-and-after-compile-equal (- 1))
118 (before-and-after-compile-equal (- 3)) 118 (before-and-after-compile-equal (- 3))
119 (before-and-after-compile-equal (- simplyamarker 1)) 119 (before-and-after-compile-equal (- simplyamarker 1))
120 (before-and-after-compile-equal (- simplyamarker)) 120 (before-and-after-compile-equal (- simplyamarker))
121
122 ;; byte-after-unbind-ops
123
124 ;; byte-constant
125 ;; byte-dup
126
127 ;; byte-symbolp
128 (before-and-after-compile-equal
129 (let ((x 's))
130 (unwind-protect
131 (symbolp x)
132 (setq x 1))))
133
134 ;; byte-consp
135 (before-and-after-compile-equal
136 (let ((x '(a b)))
137 (unwind-protect
138 (consp x)
139 (setq x 1))))
140
141 ;; byte-stringp
142 (before-and-after-compile-equal
143 (let ((x "a"))
144 (unwind-protect
145 (stringp x)
146 (setq x 1))))
147
148 ;; byte-listp
149 (before-and-after-compile-equal
150 (let ((x '(a b c)))
151 (unwind-protect
152 (listp x)
153 (setq x 1))))
154
155 ;; byte-numberp
156 (before-and-after-compile-equal
157 (let ((x 1))
158 (unwind-protect
159 (numberp x)
160 (setq x nil))))
161
162 ;; byte-integerp
163 (before-and-after-compile-equal
164 (let ((x 1))
165 (unwind-protect
166 (integerp x)
167 (setq x nil))))
168
169 ;; byte-equal
170 (before-and-after-compile-equal
171 (let ((x 'a)
172 (y 'a))
173 (unwind-protect
174 (eq x y)
175 (setq x 'c))))
176
177 ;; byte-not
178 (before-and-after-compile-equal
179 (let (x)
180 (unwind-protect
181 (not x)
182 (setq x t))))
183
184 ;; byte-cons
185 (before-and-after-compile-equal
186 (equal '(1 . 2)
187 (let ((x 1)
188 (y 2))
189 (unwind-protect
190 (cons x y)
191 (setq x t)))))
192
193 ;; byte-list1
194 (before-and-after-compile-equal
195 (equal '(1)
196 (let ((x 1))
197 (unwind-protect
198 (list x)
199 (setq x t)))))
200
201 ;; byte-list2
202 (before-and-after-compile-equal
203 (equal '(1 . 2)
204 (let ((x 1)
205 (y 2))
206 (unwind-protect
207 (list x y)
208 (setq x t)))))
209
210 ;; byte-interactive-p
211
212 ;; byte-equal
213 (before-and-after-compile-equal
214 (let (x y)
215 (setq x '(1 . 2))
216 (setq y '(1 . 2))
217 (unwind-protect
218 (equal x y)
219 (setq y '(1 . 3)))))