Changeset 31123 in project


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

Adding patch for test-total-count from Mario.

Location:
release/4/test
Files:
3 edited
4 copied

Legend:

Unmodified
Added
Removed
  • release/4/test/tags/0.9.9.7/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
  • release/4/test/tags/0.9.9.7/test.scm

    r30595 r31123  
    1111   current-test-verbosity current-test-epsilon current-test-comparator
    1212   current-test-applier current-test-handler current-test-skipper
    13    current-test-group-reporter test-failure-count)
     13   current-test-group-reporter test-failure-count test-total-count)
    1414  (import scheme chicken)
    1515
  • release/4/test/tags/0.9.9.7/test.setup

    r30595 r31123  
    55 'test
    66 '("test.so" "test.import.so")
    7  '((version 0.9.9.6)))
     7 '((version 0.9.9.7)))
  • 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
  • release/4/test/trunk/test.scm

    r30595 r31123  
    1111   current-test-verbosity current-test-epsilon current-test-comparator
    1212   current-test-applier current-test-handler current-test-skipper
    13    current-test-group-reporter test-failure-count)
     13   current-test-group-reporter test-failure-count test-total-count)
    1414  (import scheme chicken)
    1515
  • release/4/test/trunk/test.setup

    r30595 r31123  
    55 'test
    66 '("test.so" "test.import.so")
    7  '((version 0.9.9.6)))
     7 '((version 0.9.9.7)))
Note: See TracChangeset for help on using the changeset viewer.