source: project/release/3/procedure-surface/trunk/tests/run.scm @ 8934

Last change on this file since 8934 was 8934, checked in by Kon Lovett, 12 years ago

Canon dir struct

File size: 445 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 TESTBASE-TEST-DRIVER "chicken-testbase-driver")
12(define-constant TESTBASE-TEST-DRIVER-OPTIONS "--indent 2")
13
14(define *test-driver-arguments* (string-append TESTBASE-TEST-DRIVER-OPTIONS (if *verbose* " -v" "")))
15
16;;
17
18(system* "~A ~A ~A" TESTBASE-TEST-DRIVER *test-driver-arguments* "*-test.scm")
Note: See TracBrowser for help on using the repository browser.