source: project/release/4/thread-utils/trunk/tests/run.scm @ 34914

Last change on this file since 34914 was 34914, checked in by Kon Lovett, 3 years ago

add toy

File size: 1.1 KB
Line 
1
2;chicken-install invokes as "<csi> -s run.scm <eggnam> <eggdir>"
3
4(define *egg-name* "thread-utils")
5
6(use files)
7
8;no -disable-interrupts
9(define *csc-options* "-inline-global -scrutinize -optimize-leaf-routines -local -inline -specialize -unsafe -no-trace -no-lambda-info -clustering -lfa2")
10
11(define *args* (argv))
12
13(define (test-name #!optional (eggnam *egg-name*))
14  (string-append eggnam "-test") )
15
16(define (egg-name #!optional (def *egg-name*))
17  (cond
18    ((<= 4 (length *args*))
19      (cadddr *args*) )
20    (def
21      def )
22    (else
23      (error 'test "cannot determine egg-name") ) ) )
24
25;;;
26
27(set! *egg-name* (egg-name))
28
29(define (run-test #!optional (eggnam *egg-name*) (cscopts *csc-options*))
30  (let ((tstnam (test-name eggnam)))
31    (print "*** csi ***")
32    (system (string-append "csi -s " (make-pathname #f tstnam "scm")))
33    (newline)
34    (print "*** csc (" cscopts ") ***")
35    (system (string-append "csc" " " cscopts " " (make-pathname #f tstnam "scm")))
36    (system (make-pathname (cond-expand (unix "./") (else #f)) tstnam)) ) )
37
38;;;
39
40(run-test)
41
42(run-test "atomic-value")
Note: See TracBrowser for help on using the repository browser.