Changeset 25472 in project


Ignore:
Timestamp:
11/01/11 12:16:04 (10 years ago)
Author:
Alex Shinn
Message:

Fixing bug introduced with last change to re-allow test with no group for simple cases.

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

Legend:

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

    r25426 r25472  
    158158(define (test-default-applier expect expr info)
    159159  (let* ((group (current-test-group))
    160          (verbose? (and group (test-group-ref group 'verbosity)))
    161          (indent (and verbose? (test-group-indent-width group))))
     160         (verbose? (or (not group) (test-group-ref group 'verbosity)))
     161         (indent (and group (test-group-indent-width group))))
    162162    (cond
    163163     (verbose?
    164164      (cond
    165        ((and (equal? 0 (test-group-ref group 'count 0))
     165       ((and group
     166             (equal? 0 (test-group-ref group 'count 0))
    166167             (zero? (test-group-ref group 'subgroups-count 0))
    167168             (test-group-ref group 'verbosity))
     
    204205  ;; update group info
    205206  (let* ((group (current-test-group))
    206          (verbose? (and group (test-group-ref group 'verbosity)))
     207         (verbose? (or (not group) (test-group-ref group 'verbosity)))
    207208         (indent
    208209          (cond (group
     
    223224      (write-char (case status
    224225                    ((PASS) #\.) ((FAIL) #\x) ((ERROR) #\!) (else #\space)))
    225       (if (zero? (modulo (test-group-ref group 'count) (current-column-width)))
     226      (if (zero? (modulo (test-group-ref group 'count)
     227                         (current-column-width)))
    226228          (newline)))
    227229     ((not (eq? status 'SKIP))
  • release/4/test/tags/0.9.9.4/test.setup

    r25426 r25472  
    55 'test
    66 '("test.so" "test.import.so")
    7  '((version 0.9.9.3)))
     7 '((version 0.9.9.4)))
  • release/4/test/trunk/test-support.scm

    r25426 r25472  
    158158(define (test-default-applier expect expr info)
    159159  (let* ((group (current-test-group))
    160          (verbose? (and group (test-group-ref group 'verbosity)))
    161          (indent (and verbose? (test-group-indent-width group))))
     160         (verbose? (or (not group) (test-group-ref group 'verbosity)))
     161         (indent (and group (test-group-indent-width group))))
    162162    (cond
    163163     (verbose?
    164164      (cond
    165        ((and (equal? 0 (test-group-ref group 'count 0))
     165       ((and group
     166             (equal? 0 (test-group-ref group 'count 0))
    166167             (zero? (test-group-ref group 'subgroups-count 0))
    167168             (test-group-ref group 'verbosity))
     
    204205  ;; update group info
    205206  (let* ((group (current-test-group))
    206          (verbose? (and group (test-group-ref group 'verbosity)))
     207         (verbose? (or (not group) (test-group-ref group 'verbosity)))
    207208         (indent
    208209          (cond (group
     
    223224      (write-char (case status
    224225                    ((PASS) #\.) ((FAIL) #\x) ((ERROR) #\!) (else #\space)))
    225       (if (zero? (modulo (test-group-ref group 'count) (current-column-width)))
     226      (if (zero? (modulo (test-group-ref group 'count)
     227                         (current-column-width)))
    226228          (newline)))
    227229     ((not (eq? status 'SKIP))
  • release/4/test/trunk/test.setup

    r25426 r25472  
    55 'test
    66 '("test.so" "test.import.so")
    7  '((version 0.9.9.3)))
     7 '((version 0.9.9.4)))
Note: See TracChangeset for help on using the changeset viewer.