#lang scheme/base
(require "number.ss"
"test-base.ss")
(define/provide-test-suite number-tests
(test-case "number+false?"
(check-false (number+false? "dave") "string")
(check-true (number+false? #f) "false")
(check-true (number+false? 123.456) "real")
(check-true (number+false? 123) "integer"))
(test-case "integer+false?"
(check-false (integer+false? "dave") "string")
(check-true (integer+false? #f) "false")
(check-false (integer+false? 123.456) "real")
(check-true (integer+false? 123) "integer"))
(test-case "natural?"
(check-false (natural? #f) "false")
(check-false (natural? -1) "negative")
(check-true (natural? 0) "zero")
(check-true (natural? 1) "positive")
(check-false (natural? 1.5) "inexact")
(check-false (natural? (/ 1 2)) "exact"))
(test-case "natural+false?"
(check-true (natural+false? #f) "false")
(check-false (natural+false? -1) "negative")
(check-true (natural+false? 0) "zero")
(check-true (natural+false? 1) "positive")
(check-false (natural+false? 1.5) "inexact")
(check-false (natural+false? (/ 1 2)) "exact"))
(test-case "round-to"
(check-equal? (round-to 123.456 0) 123.0)
(check-equal? (round-to 123.456 1) 123.5)
(check-equal? (round-to 123.456 2) 123.46)
(check-equal? (round-to 123.456 3) 123.456)
(check-equal? (round-to 123.456 4) 123.456)
(check-equal? (round-to 654.321 0) 654.0)
(check-equal? (round-to 654.321 -1) 650.0)
(check-equal? (round-to 654.321 -2) 700.0)
(check-equal? (round-to 654.321 -3) 1000.0)
(check-equal? (round-to 654.321 -4) 00000.0))
(test-case "reprovided identifiers from convert.ss"
(for-each (lambda (proc)
(check-pred procedure? proc))
(list number+false->string+false
string+false->number+false
number+false->symbol+false
symbol+false->number+false
natural->hex-string
hex-string->natural))))