Ticket #469: test-egg.diff

test-support.scm

@@ -448 +448 @@
 (define current-test-group (make-parameter #f))
 (define current-test-verbosity
   (make-parameter
-   (cond ((getenv "TEST_QUIET") => (lambda (s) (equal? s "0"))) (else #t))))
+   (cond ((get-environment-variable "TEST_QUIET") => (lambda (s) (equal? s "0"))) (else #t))))
 (define current-test-epsilon (make-parameter 1e-5))
 (define current-test-comparator (make-parameter test-equal?))
 (define current-test-applier (make-parameter test-default-applier))
@@ -460 +460 @@
 
 (define test-first-indentation
   (make-parameter
-   (or (cond ((getenv "TEST_FIRST_INDENTATION") => string->number) (else #f))
+   (or (cond ((get-environment-variable "TEST_FIRST_INDENTATION") => string->number) (else #f))
        1)))
 
 (define test-max-indentation
   (make-parameter
-   (or (cond ((getenv "TEST_MAX_INDENTATION") => string->number) (else #f))
+   (or (cond ((get-environment-variable "TEST_MAX_INDENTATION") => string->number) (else #f))
        5)))
 
 (define (string->info-matcher str)
@@ -482 +482 @@
 
 (define (getenv-filter-list proc name . o)
   (cond
-    ((getenv name)
+    ((get-environment-variable name)
      => (lambda (s)
           (condition-case
            (let ((f (proc s)))
@@ -507 +507 @@
 
 (define current-column-width
   (make-parameter
-   (or (cond ((getenv "TEST_COLUMN_WIDTH") => string->number) (else #f))
+   (or (cond ((get-environment-variable "TEST_COLUMN_WIDTH") => string->number) (else #f))
        78)))
 
 (define test-ansi?
   (make-parameter
    (cond
-    ((getenv "TEST_USE_ANSI")
+    ((get-environment-variable "TEST_USE_ANSI")
      => (lambda (s) (not (equal? s "0"))))
     (else
      (and (##sys#tty-port? (current-output-port))
-          (member (getenv "TERM")
+          (member (get-environment-variable "TERM")
                   '("xterm" "xterm-color" "xterm-256color" "rxvt" "kterm"
                     "linux" "screen" "screen-256color" "vt100")))))))