(use test setup-api)

(cond-expand (linux) (else (exit 0)))

(define-syntax test-interpreted
  (syntax-rules ()
    ((_ file)
     (fluid-let ((test-exit void))
       (load file)))))

(define-syntax test-compiled
  (syntax-rules ()
    ((_ file)
     (let ((exit-status
            (handle-exceptions _ 1
             (compile file -o "compiled")
             (system "./compiled"))))
       (if (zero? exit-status)
           (test-exit)
           (exit exit-status))))))

(test-interpreted "all.scm")
(test-compiled "all.scm")