Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
463:a158004111cd 464:5aa1854ad537
241 (Assert (= (+ one) 1)) 241 (Assert (= (+ one) 1))
242 (Assert (= (+ one) one)) 242 (Assert (= (+ one) one))
243 (Assert (= (- one) -1)) 243 (Assert (= (- one) -1))
244 (Assert (= (- one one) 0)) 244 (Assert (= (- one one) 0))
245 (Assert (= (- one one one) -1)) 245 (Assert (= (- one one one) -1))
246 (Assert (= (- 0 one) -1))
247 (Assert (= (- 0 one one) -2))
246 (Assert (= (+ one 1) 2)) 248 (Assert (= (+ one 1) 2))
247 (dolist (zero '(0 0.0 ?\0)) 249 (dolist (zero '(0 0.0 ?\0))
248 (Assert (= (+ 1 zero) 1)) 250 (Assert (= (+ 1 zero) 1))
249 (Assert (= (+ zero 1) 1)) 251 (Assert (= (+ zero 1) 1))
250 (Assert (= (- zero) zero)) 252 (Assert (= (- zero) zero))