Changeset 15555 in project for chicken/trunk/tests/library-tests.scm

Timestamp:

08/24/09 09:05:59 (10 years ago)

Author:

felix winkelmann

Message:

-O2 enables inlining by default; fixed bug in rational? reported by Zbigniew

File:

• chicken/trunk/tests/library-tests.scm (modified) (1 diff)

chicken/trunk/tests/library-tests.scm

@@ -9 +9 @@
 (assert (zero? (round 0.3)))
 (assert (= 1.0 (round 0.6)))
+(assert (rational? 1))
+(assert (rational? 1.0))
+(assert (not (rational? +inf.)))
+(assert (handle-exceptions ex #t (begin (rational? 'foo) #f)))