diff tests/automated/byte-compiler-tests.el @ 412:697ef44129c6 r21-2-14

Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents 74fd4e045ea6
children
line wrap: on
line diff
--- a/tests/automated/byte-compiler-tests.el	Mon Aug 13 11:19:22 2007 +0200
+++ b/tests/automated/byte-compiler-tests.el	Mon Aug 13 11:20:41 2007 +0200
@@ -91,30 +91,3 @@
  error "`let' bindings can have only one value-form"
  (eval '(let* ((x 1 2)) 3)))
 
-(defmacro before-and-after-compile-equal (&rest form)
-  `(Assert (equal (funcall (quote (lambda () ,@form)))
-		 (funcall (byte-compile (quote (lambda () ,@form)))))))
-
-(defvar simplyamarker (point-min-marker))
-
-;; The byte optimizer must be careful with +/- with a single argument.
-
-(before-and-after-compile-equal (+))
-(before-and-after-compile-equal (+ 2 2))
-(before-and-after-compile-equal (+ 2 1))
-(before-and-after-compile-equal (+ 1 2))
-;; (+ 1) is OK. but (+1) signals an error.
-(before-and-after-compile-equal (+ 1))
-(before-and-after-compile-equal (+ 3))
-(before-and-after-compile-equal (+ simplyamarker 1))
-;; The optimization (+ m) --> m is invalid when m is a marker.
-;; Currently the following test fails - controversial.
-;; (before-and-after-compile-equal (+ simplyamarker))
-;; Same tests for minus.
-(before-and-after-compile-equal (- 2 2))
-(before-and-after-compile-equal (- 2 1))
-(before-and-after-compile-equal (- 1 2))
-(before-and-after-compile-equal (- 1))
-(before-and-after-compile-equal (- 3))
-(before-and-after-compile-equal (- simplyamarker 1))
-(before-and-after-compile-equal (- simplyamarker))