mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-05 09:10:18 +02:00
Code Activity

(1+, 1-): New tests.

Browse source
This commit is contained in:
Kevin Ryde 2005-04-13 23:54:45 +00:00
parent bd6795e95f
commit a580ebba22
1 changed files with 28 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

28
test-suite/tests/numbers.test
View file

@ -71,6 +71,34 @@
(quotient (- n d -1) d) ;; neg/pos (quotient (- n d -1) d) ;; neg/pos
(quotient n d))) ;; pos/pos (quotient n d))) ;; pos/pos
;;;
;;; 1+
;;;
(with-test-prefix "1+"
(pass-if "documented?"
(documented? 1+))
(pass-if (eqv? 1 (1+ 0)))
(pass-if (eqv? 0 (1+ -1)))
(pass-if (eqv? 101 (1+ 100)))
(pass-if (eqv? -99 (1+ -100))))
;;;
;;; 1-
;;;
(with-test-prefix "1-"
(pass-if "documented?"
(documented? 1-))
(pass-if (eqv? -1 (1- 0)))
(pass-if (eqv? 0 (1- 1)))
(pass-if (eqv? 99 (1- 100)))
(pass-if (eqv? -101 (1- -100))))
;;; ;;;
;;; ash ;;; ash
;;; ;;;