1. David Krentzlin
  2. test-generative

Commits

David Krentzlin  committed d348f1e

updated stubbed environment

  • Participants
  • Parent commits d074d57
  • Branches default

Comments (0)

Files changed (2)

File test-generative.scm

View file
  • Ignore whitespace
         (original-test-end   test-end))
     (dynamic-wind
       (lambda ()
-        ;(set! test-begin (constantly #t))
+        (set! test-begin (constantly #t))
         (set! test-end   (constantly #t)))
       proc
       (lambda ()
-        ;(set! test-begin original-test-begin)
+        (set! test-begin original-test-begin)
         (set! test-end original-test-end)))))
 
 (define (run-iteration iteration tests seeds)
            (or (eq? status 'FAIL) (eq? status 'ERROR))))
        results))
 
-(define (finish/failures test-group tests seeds iteration)
+(define (finish/failures tests seeds iteration)
   (let* ((original-handler (current-test-handler))
          (decorating-handler (lambda (status expect expr info)
                                (cond
     (let loop ((iteration 1) (seeds (generator)))
       (let ((results (run-iteration iteration tests seeds)))
         (if (failed-tests? results)
-            (finish/failures test-group tests seeds iteration)
+            (finish/failures tests seeds iteration)
             (if (>= iteration iteration-count)
                 (finish/success seeds tests)
                 (loop (add1 iteration) (generator))))))))

File tests/run.scm

View file
  • Ignore whitespace
             (test-group "with failing probably assertions"
                         (test-generative ((number (gen-fixnum))
                                           (string (gen-string-of (gen-char #\a #\z))))
-                                         ;; (test "error" #t (error "foo"))
                                          (test-assert (> (string-length string) 30))
                                          (test-assert ((constantly #t)))))
             (test-group "all passing"