Changeset 9863 in project


Ignore:
Timestamp:
03/18/08 04:03:13 (12 years ago)
Author:
Kon Lovett
Message:

Chg for rmvd knd param in make-test-results-row.

Location:
release/3/testbase-driver/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/3/testbase-driver/trunk/testbase-driver.scm

    r9784 r9863  
    1919    (inline)
    2020    (fixnum)
     21    (no-bound-checks)
     22    (no-procedure-checks)
    2123    (unused
    2224      add-startup-object ) ) )
     
    2527     srfi-37 args miscmacros lookup-table
    2628     misc-extn-list misc-extn-directory misc-extn-condition
    27      testbase-results)
     29     testbase-results )
    2830
    2931;;;
     
    3335;;; Constants & Other Global Data
    3436
    35 (define-constant TESTBASE-DRIVER-VERSION "1.2.1")
     37(define-constant TESTBASE-DRIVER-VERSION "1.3.1")
    3638
    3739(define-constant STD-COMPILER "csc")
     
    248250  (unless *dry-run?*
    249251    (let ([optn-col
    250           (lambda (dict-key #!optional (result-key dict-key))
    251             (let ([itm (dict-ref model-tbl dict-key)])
    252               (if itm
    253                   `((,result-key . ,itm))
    254                   '()) ) )])
     252            (lambda (dict-key #!optional (result-key dict-key))
     253              (let ([itm (dict-ref model-tbl dict-key)])
     254                (if itm
     255                    `((,result-key . ,itm))
     256                    '() ) ) )])
    255257      (append-test-results-row
    256258       (pathname-file test-file)
    257        (apply make-test-results-row knd
    258                                     rslts
    259                                     `((mode . ,*results-mode*)
     259       (apply make-test-results-row rslts
     260                                    `((model  . ,knd)
     261                                      (mode  . ,*results-mode*)
    260262                                      ,@(optn-col 'purpose)
    261263                                      ,@(optn-col 'feature)))
     
    683685      (absolute-pathname-parameter-option-set! test-files-directory 'files-repository opts)
    684686      ; Process test-file specific options
    685       ;FIXME global not specific
     687      ;FIXME global, not specific
    686688      (tagged-alist-option-set! lst compiler-option 'compile 'option option->list)
    687689      (tagged-alist-option-set! lst compiler 'compile 'command)
     
    717719    (when (memq #:csi (features))
    718720      (and-let* ([rest (member "--" args)])
    719         (set! args (cdr args))))
     721        (set! args (cdr rest))))
    720722    args ) )
    721723
    722724;;; Main
    723 
     725                                     
    724726(process-options (preprocess-options) *test-file-table*)
     727
    725728(dict-for-each *test-file-table* run-test)
  • release/3/testbase-driver/trunk/testbase-driver.setup

    r9377 r9863  
    44
    55(required-extension-version
    6   'testbase-results       "1.1"
     6  'testbase-results       "2.0.1"
    77  'misc-extn              "3.1"
    88  'miscmacros             "2.4"
Note: See TracChangeset for help on using the changeset viewer.