1. David Krentzlin
  2. test-generative


David Krentzlin  committed dd12f72

fixed typo and renamed variable

  • Participants
  • Parent commits cc40898
  • Branches default

Comments (0)

Files changed (1)

File test-generative.scm

View file
  • Ignore whitespace
 ;;TODO: currently test-group-filter/remove doesn't work with groups inside test-generative
 ;; test-filter/remove does work however
-;; just do the bare minimum to evaluate the expresion
-;; this has been extracte from test's code
+;; just do the bare minimum to evaluate the expression
+;; this has been extracted from test's code
 (define (apply-test expect expr info)
   (define (assq-ref ls key . o)
     (cond ((assq key ls) => cdr)
               (append `((exception . ,e) (trace . ,get-call-chain)) info))))))
-(define (with-stubbed-environment proc)
+(define (with-stubbed-environment thunk)
   ;; this is the hacky part of the library
   ;; if you have groups there will be calls to test-begin and test-end that does some housekeeping
       (lambda ()
         (set! test-begin (constantly #t))
         (set! test-end   (constantly #t)))
-      proc
+      thunk
       (lambda ()
         (set! test-begin original-test-begin)
         (set! test-end original-test-end)))))