Mercurial > hg > xemacs-beta

diff tests/automated/lisp-tests.el @ 464:5aa1854ad537 r21-2-47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-47
author cvs
date Mon, 13 Aug 2007 11:45:51 +0200
parents 3078fd1074e8
children 6728e641994e
line wrap: on
line diff
--- a/tests/automated/lisp-tests.el	Mon Aug 13 11:44:39 2007 +0200
+++ b/tests/automated/lisp-tests.el	Mon Aug 13 11:45:51 2007 +0200
@@ -243,6 +243,8 @@
   (Assert (= (- one) -1))
   (Assert (= (- one one) 0))
   (Assert (= (- one one one) -1))
+  (Assert (= (- 0 one) -1))
+  (Assert (= (- 0 one one) -2))
   (Assert (= (+ one 1) 2))
   (dolist (zero '(0 0.0 ?\0))
     (Assert (= (+ 1 zero) 1))