;;;; run-testbase.scm (run.scm)

(use utils posix)

;;

(define *egg-name* (car (command-line-arguments)))

(define *verbose* #t)

(define-constant TEST-DRIVER "chicken-testbase-driver")
(define-constant TEST-DRIVER-OPTIONS "--indent 2")

(define *test-driver-arguments* (string-append TEST-DRIVER-OPTIONS (if *verbose* " -v" "")))

;;

(system* "~A ~A ~A" TEST-DRIVER *test-driver-arguments* "*-test.scm")