(use numbers test)

(test-begin "numbers")
; Workaround to get it reset after it gets set by the script
(parameterize ((current-test-epsilon current-test-epsilon))
  (test-group "Basic numbers tests"
    (include "numbers-test.scm"))
  (test-group "Numbers tests by Alex Shinn"
    (include "numbers-test-ashinn.scm")))
(test-group "Numbers tests from Gauche"
  (include "numbers-test-gauche.scm"))
(test-group "sum-of-exponents"
  (include "sum-of-exponents.scm"))
(test-group "string-conversion"
  (include "string-conversion.scm")
  ;; total-errors is defined by string-conversion.scm. Yes, this is ugly
  (test "String conversion tests were successful" 0 total-errors))
(test-group "R4RS tests"
  (include "r4rstest.scm")
  (test-assert "R4RS tests were successful" (null? errs)))
(test-end "numbers")

(test-exit)