From b86f9e677c244c5cf16e174c9d14f6a577bebb44 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 24 Oct 2014 09:20:53 -0400 Subject: [PATCH] Revert "eliminated bug introduced with latest revision" to cherry-pick an earlier patch first without conflict. This reverts commit caefe1563c2c2bbd4cbf18979a94d581f88a2ef2. --- .../htdp-lib/test-engine/racket-tests.rkt | 20 ++++++++----------- 1 file changed, 8 insertions(+), 12 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 96432ed75e..6ef532f7ca 100644 --- a/pkgs/htdp-pkgs/htdp-lib/test-engine/racket-tests.rkt +++ b/pkgs/htdp-pkgs/htdp-lib/test-engine/racket-tests.rkt @@ -203,18 +203,14 @@ ;; it, but it is possibly weird for students (send (send test-engine get-info) add-check) (run-and-check - ;; 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?))) + (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-values-expected: (-> scheme-val) (-> nat scheme-val) src test-engine -> void (define (check-random-values test actual-maker src test-engine)