;; This is all a bit messy, but probably the simplest way to test ;; interpreted *and* compiled (use numbers test setup-api) (test-group "entire numbers test suite" (test-group "interpreted" (fluid-let ((test-exit void)) (load "all-tests.scm"))) (if (version>=? (chicken-version) "4.8.0") (test-group "compiled" (compile -X numbers-syntax -O3 "all-tests.scm") (let ((exit-status (system "./all-tests"))) (test "compiled test succeeded" 0 exit-status))) (print "Skipping compiled tests: this version of CHICKEN is too old, core has some problems that don't allow compiling numeric literals"))) (test-exit)