From caefe1563c2c2bbd4cbf18979a94d581f88a2ef2 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Mon, 20 Oct 2014 15:31:45 -0400 Subject: [PATCH] eliminated bug introduced with latest revision please add to 6.1.1. (cherry picked from commit 538bb75d646b42acbdf98a762687419707f4f5dc) Conflicts: pkgs/htdp-pkgs/htdp-lib/test-engine/racket-tests.rkt --- .../htdp-lib/test-engine/racket-tests.rkt | 20 +++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) diff --git a/pkgs/htdp-pkgs/htdp-lib/test-engine/racket-tests.rkt b/pkgs/htdp-pkgs/htdp-lib/test-engine/racket-tests.rkt index 6ef532f7ca..96432ed75e 100644 --- a/pkgs/htdp-pkgs/htdp-lib/test-engine/racket-tests.rkt +++ b/pkgs/htdp-pkgs/htdp-lib/test-engine/racket-tests.rkt @@ -203,14 +203,18 @@ ;; it, but it is possibly weird for students (send (send test-engine get-info) add-check) (run-and-check - (lambda (v p? _what-is-this?) (p? v)) - (lambda (src format v1 v2 _) (make-satisfied-failed src format v2 property?)) - test - actual - #f - src - test-engine - (list 'check-satisfied property?))) + ;; check + (lambda (p? v _what-is-this?) (p? v)) + ;; maker + (lambda (src format v1 _v2 _) (make-satisfied-failed src format v1 property?)) + ;; test + test + ;; expect + actual + #f + src + test-engine + (list 'check-satisfied property?))) ;; check-values-expected: (-> scheme-val) (-> nat scheme-val) src test-engine -> void (define (check-random-values test actual-maker src test-engine)