XEmacs 21.2.47 (Zephir).
[chise/xemacs-chise.git.1] / tests / automated / lisp-tests.el
index 8f4bbfb..b2b6077 100644 (file)
   (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))