Changeset 31123 in project for release/4/test/trunk/test-support.scm


Ignore:
Timestamp:
07/15/14 14:48:24 (6 years ago)
Author:
Alex Shinn
Message:

Adding patch for test-total-count from Mario.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/test/trunk/test-support.scm

    r30595 r31123  
    222222                    (test-group-inc! group 'count))
    223223                (test-group-inc! group status))))
     224    (cond ((not (eq? 'SKIP status))
     225           (test-total-count (+ 1 (test-total-count)))))
    224226    (cond
    225227     ((or (eq? status 'FAIL) (eq? status 'ERROR))
     
    479481  (make-parameter test-default-group-reporter))
    480482(define test-failure-count (make-parameter 0))
     483(define test-total-count (make-parameter 0))
    481484
    482485(define test-first-indentation
Note: See TracChangeset for help on using the changeset viewer.