From c07141408fa8419b5173a7b457af294402fde352 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 12 Feb 2014 11:00:03 -0600 Subject: [PATCH] track test case names to help find infinite loops --- .../racket-test/tests/racket/contract/test-util.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/contract/test-util.rkt b/pkgs/racket-pkgs/racket-test/tests/racket/contract/test-util.rkt index 9387aade25..d802643daf 100644 --- a/pkgs/racket-pkgs/racket-test/tests/racket/contract/test-util.rkt +++ b/pkgs/racket-pkgs/racket-test/tests/racket/contract/test-util.rkt @@ -29,11 +29,13 @@ (define failures 0) (provide new-test-case new-failure) -(define (new-test-case) (set! test-cases (+ test-cases 1))) +(define (new-test-case name) + ;(printf "running test ~a\n" name) + (set! test-cases (+ test-cases 1))) (define (new-failure) (set! failures (+ failures 1))) (define (test #:test-case-name [name #f] expected fun arg1 . args) - (new-test-case) + (new-test-case name) ;(printf "\n\nexpected ~s\n" arg1) (define result (cond @@ -50,7 +52,7 @@ (new-failure))) (define (test-an-error name thunk sexp predicate?) - (new-test-case) + (new-test-case name) (define exn (with-handlers ((exn:fail? values)) (thunk)