(use numbers test) (test-begin) (test-group "Basic numbers tests" (include "numbers-test.scm")) (test-group "Numbers tests by Alex Shinn" (include "numbers-test-ashinn.scm")) (test-group "sum-of-exponents" (include "sum-of-exponents.scm")) (test-group "r4rstests (not using the test egg)" (let ((test #f)) ;; Uses its own "test" procedure (include "r4rstest.scm"))) (test-end) (test-exit)