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

("equal?"): add case for reduction of

Browse source 
rational numbers.
This commit is contained in:
Han-Wen Nienhuys 2006-12-24 01:05:56 +00:00
parent e2bf3b19f6
commit c6a576f766
2 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/ChangeLog
View file

@ -1,3 +1,8 @@
2006-12-24 Han-Wen Nienhuys <hanwen@lilypond.org>
* tests/numbers.test ("equal?"): add case for reduction of
rational numbers.
2006-12-12 Ludovic Courtès <ludovic.courtes@laas.fr>
* tests/unif.test (syntax): New test prefix. Check syntax for

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

@ -3180,3 +3180,15 @@
(pass-if "-100i swings back to 45deg down"
(eqv-loosely? +7.071-7.071i (sqrt -100.0i))))
;;
;; equal?
;;
(with-test-prefix "equal?"
(pass-if
;; lazy reduction bit for rationals should not affect equal?
(equal? 1/2 ((lambda (x) (denominator x) x) 1/2))))