mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

(=): Exercise inum/flonum cases that used to

Browse source 
round on 64-bit systems.
This commit is contained in:
Kevin Ryde 2005-03-13 00:14:23 +00:00
parent e8c5b1f291
commit 6f6847fa21
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1483,7 +1483,17 @@
(pass-if (= 0.5+0i 1/2)) (pass-if (= 0.5+0i 1/2))
(pass-if (not (= 0.5+0i 2/3))) (pass-if (not (= 0.5+0i 2/3)))
(pass-if (not (= 0+0.5i 1/2)))) (pass-if (not (= 0+0.5i 1/2)))
;; prior to guile 1.8, inum/flonum comparisons were done just by
;; converting the inum to a double, which on a 64-bit would round making
;; say inexact 2^58 appear equal to exact 2^58+1
(pass-if (= (ash-flo 1.0 58) (ash 1 58)))
(pass-if (not (= (ash-flo 1.0 58) (1+ (ash 1 58)))))
(pass-if (not (= (ash-flo 1.0 58) (1- (ash 1 58)))))
(pass-if (= (ash 1 58) (ash-flo 1.0 58)))
(pass-if (not (= (1+ (ash 1 58)) (ash-flo 1.0 58))))
(pass-if (not (= (1- (ash 1 58)) (ash-flo 1.0 58)))))
;;; ;;;
;;; < ;;; <