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


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/tests/library-tests.scm

    r2616 r15555  
    99(assert (zero? (round 0.3)))
    1010(assert (= 1.0 (round 0.6)))
     11(assert (rational? 1))
     12(assert (rational? 1.0))
     13(assert (not (rational? +inf.)))
     14(assert (handle-exceptions ex #t (begin (rational? 'foo) #f)))
Note: See TracChangeset for help on using the changeset viewer.