source: project/release/3/combinators/trunk/tests/run.scm @ 8624

Last change on this file since 8624 was 8624, checked in by Kon Lovett, 13 years ago

Creation.

File size: 407 bytes
Line 
1;;;; run-testbase.scm (run.scm)
2
3(use utils posix)
4
5;;
6
7(define *egg-name* (car (command-line-arguments)))
8
9(define *verbose* #t)
10
11(define-constant TEST-DRIVER "chicken-testbase-driver")
12(define-constant TEST-DRIVER-OPTIONS "--indent 2")
13
14(define *test-driver-arguments* (string-append TEST-DRIVER-OPTIONS (if *verbose* " -v" "")))
15
16;;
17
18(system* "~A ~A ~A" TEST-DRIVER *test-driver-arguments* "*-test.scm")
Note: See TracBrowser for help on using the repository browser.