source: project/release/4/message-digest/tags/3.8.0/tests/run.scm @ 35045

Last change on this file since 35045 was 35045, checked in by kon, 5 months ago

rel 3.8.0

File size: 1.2 KB
Line 
1
2(define EGG-NAME "message-digest")
3
4;chicken-install invokes as "<csi> -s run.scm <eggnam> <eggdir>"
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(define (run-tests eggnams #!optional (cscopts *csc-options*))
39  (for-each (cut run-test <> cscopts) eggnams) )
40
41;;;
42
43(run-test)
Note: See TracBrowser for help on using the repository browser.