Changeset 37674 in project


Ignore:
Timestamp:
06/09/19 19:41:40 (7 days ago)
Author:
kon
Message:

reflow gloss.incl

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/bloom-filter/trunk/tests/test-gloss.incl.scm

    r37662 r37674  
    11
    22;;;test "Gloss" API
    3 
    4 ;;test internals
    53
    64(define (assq-ref ls key . o)
     
    1210  (apply assq-ref (cdr group) field o))
    1311
    14 (define-constant *test-indent-width* 4)
    15 
    1612(begin
    1713  (import (chicken process-context))
     14  (define *test-indent-width*
     15    (or (cond ((get-environment-variable "TEST_INDENT_WIDTH") => string->number) (else #f))
     16        4))
    1817  (define *test-first-indentation*
    1918    (or (cond ((get-environment-variable "TEST_FIRST_INDENTATION") => string->number) (else #f))
     
    2322        5)))
    2423
     24(define test-indent-width (lambda () *test-indent-width*))
    2525(define test-first-indentation (lambda () *test-first-indentation*))
    2626(define test-max-indentation (lambda () *test-max-indentation*))
     
    2929  (let ((level (max 0 (+ 1 (- (test-group-ref group 'level 0)
    3030                              (test-first-indentation))))))
    31     (* *test-indent-width* (min level (test-max-indentation)))))
     31    (* (test-indent-width) (min level (test-max-indentation)))))
    3232
    3333(define (test-group-indent-string group)
    3434  (make-string (test-group-indent-width group) #\space) )
    35 
    36 ;;test gloss
    3735
    3836(define-constant *test-gloss-marker* "--> ")
     
    4341      (newline))
    4442    ((obj)
    45       (print
    46         (test-group-indent-string (current-test-group))
    47         *test-gloss-marker*
    48         obj))))
     43      (print (test-group-indent-string (current-test-group)) *test-gloss-marker* obj))))
    4944
    5045(define (glossf fmt . args)
Note: See TracChangeset for help on using the changeset viewer.