mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

Correction to:

Browse source 
(integer?): Exercise nan and +/-inf.

+/-inf should be #t.
This commit is contained in:
Kevin Ryde 2004-09-08 01:22:37 +00:00
parent 7424deab5d
commit e456f08e24
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1234,8 +1234,8 @@
(pass-if (and (= 3+0i (round 3+0i)) (integer? 3+0i))) (pass-if (and (= 3+0i (round 3+0i)) (integer? 3+0i)))
(pass-if (and (= 1.0 (round 1.0)) (integer? 1.0))) (pass-if (and (= 1.0 (round 1.0)) (integer? 1.0)))
(pass-if (not (integer? 1.3))) (pass-if (not (integer? 1.3)))
(pass-if (not (integer? +inf.0))) (pass-if (integer? +inf.0))
(pass-if (not (integer? -inf.0))) (pass-if (integer? -inf.0))
(pass-if (not (integer? +nan.0))) (pass-if (not (integer? +nan.0)))
(pass-if (not (integer? 3+4i))) (pass-if (not (integer? 3+4i)))
(pass-if (not (integer? #\a))) (pass-if (not (integer? #\a)))