;;;; number-limits-test

(use number-limits)
(use test)

(print "** long long " (if (positive? long-long-size) "supported" "unsupported") " **")
(print "** unsigned long long " (if (positive? unsigned-long-long-size) "supported" "unsupported") " **")

#;(print "** long double " (if (fp= maximum-long-double maximum-long-double) "supported" "unsupported") " **")

(test-assert (fx= float-radix flonum-radix))
(test-assert (fp= maximum-double maximum-flonum))
(test-assert (fp= minimum-double minimum-flonum))