Mercurial > hg > xemacs-beta
diff tests/automated/byte-compiler-tests.el @ 4855:189fb67ca31a
Create Assert-eq, Assert-equal, etc.
These are equivalent to (Assert (eq ...)) but display both the actual value
and the expected value of the comparison.
Use them throughout the test suite.
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Thu, 14 Jan 2010 02:18:03 -0600 |
| parents | 3d3049ae1304 |
| children | 0f66906b6e37 |
line wrap: on
line diff
--- a/tests/automated/byte-compiler-tests.el Thu Jan 14 01:25:16 2010 -0600 +++ b/tests/automated/byte-compiler-tests.el Thu Jan 14 02:18:03 2010 -0600 @@ -92,8 +92,8 @@ (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))))))) + `(Assert-equal (funcall (quote (lambda () ,@form))) + (funcall (byte-compile (quote (lambda () ,@form)))))) (defvar simplyamarker (point-min-marker))