picrin/contrib/10.roundtrip/t/roundtrip.scm

55 lines
1.1 KiB
Scheme
Raw Normal View History

(import (scheme base)
(srfi 27)
(scheme inexact)
(picrin test))
(test-begin)
(define (rountrip-ok number)
(let ((radix 10))
(eqv? number (string->number (number->string number radix) radix))))
(test #t (rountrip-ok -nan.0))
(test #t (rountrip-ok +nan.0))
(test #t (rountrip-ok -inf.0))
(test #t (rountrip-ok +inf.0))
2016-01-23 16:30:40 -05:00
(test #t (rountrip-ok +0.0))
(test #t (rountrip-ok -0.0))
(test #t (rountrip-ok 0.0))
(test -inf.0 (string->number "-inf.0"))
(test +inf.0 (string->number "+inf.0"))
(test #t (nan? (string->number "-nan.0")))
(test #t (nan? (string->number "+nan.0")))
(define (random-roundtrip)
(let ((r (random-real)))
(if (rountrip-ok r)
#t
r)))
(test #t (random-roundtrip))
(test #t (random-roundtrip))
(test #t (random-roundtrip))
(test #t (random-roundtrip))
(test #t (random-roundtrip))
(test #t (random-roundtrip))
(test #t (random-roundtrip))
(test #t (random-roundtrip))
(test #t (random-roundtrip))
(test #t (random-roundtrip))
(test #t (random-roundtrip))
(test #t (random-roundtrip))
(test #t (random-roundtrip))
(test-end)