Changeset 34852 in project


Ignore:
Timestamp:
11/01/17 17:32:13 (2 years ago)
Author:
Kon Lovett
Message:

std tst run , rm ./ for wnds

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/srfi-19/trunk/tests/run.scm

    r34836 r34852  
    22;chicken-install invokes as "<csi> -s run.scm <eggnam> <eggdir>"
    33
    4 (define (egg-name def)
    5   (let ((args (argv)))
    6     (if (<= 4 (length args))
    7       (cadddr args)
    8       def ) ) )
     4(define *egg-name* "srfi-19")
    95
    10 (define *egg-name* (egg-name "srfi-19"))
    11 
    12 (define (test-name #!optional (ext ""))
    13   (string-append *egg-name* "-test" ext) )
    14 
    15 (print "*** csi ***")
    16 (system (string-append "csi -s " (test-name ".scm")))
     6(use files)
    177
    188;no -disable-interrupts
    199(define *csc-options* "-inline-global -scrutinize -optimize-leaf-routines -local -inline -specialize -unsafe -no-trace -no-lambda-info -clustering -lfa2")
    20 (print "*** csc (" *csc-options* ") ***")
    21 (system (string-append "csc" " " *csc-options* " " (test-name ".scm")))
    22 (system (string-append "./" (test-name)))
     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)
Note: See TracChangeset for help on using the changeset viewer.