From f680811cb6dff24f1ada7f53bcd335c63b870c7b Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 10 Oct 2011 08:27:34 -0600 Subject: [PATCH] Fixing breakage from push 23693 (cherry picked from commit b20ffdbe95385f8357db0a4a9ab1b33fe2161a32) --- collects/tests/rackunit/check-test.rkt | 13 ++++--------- collects/tests/rackunit/standalone.rkt | 4 ++-- 2 files changed, 6 insertions(+), 11 deletions(-) diff --git a/collects/tests/rackunit/check-test.rkt b/collects/tests/rackunit/check-test.rkt index 53fe998609..4f994bb426 100644 --- a/collects/tests/rackunit/check-test.rkt +++ b/collects/tests/rackunit/check-test.rkt @@ -310,14 +310,9 @@ ;; Check evaluation contexts (test-case "current-check-around is used by checks" - (check-eq? (parameterize ([current-check-around (lambda (t) 'foo)]) + (let ([x #f]) + (parameterize ([current-check-around (lambda (t) (set! x 'foo))]) (check-eq? 'a 'b)) - 'foo)) - - (test-case - "current-check-handler is used by checks" - (check-eq? (parameterize ([current-check-handler (lambda (e) 'foo)]) - (check-eq? 'a 'b)) - 'foo)) - )) + (check-eq? x + 'foo))))) diff --git a/collects/tests/rackunit/standalone.rkt b/collects/tests/rackunit/standalone.rkt index 4b7f36ef69..00f00f6769 100644 --- a/collects/tests/rackunit/standalone.rkt +++ b/collects/tests/rackunit/standalone.rkt @@ -29,9 +29,9 @@ (test-file "standalone-check-test.rkt" #"Oh HAI!\nI didn't run\n" - #"--------------------\nERROR\nOutta here!\n\n === context ===\nPLTHOME/collects/tests/rackunit/standalone-check-test.rkt:40:12: temp7\nPLTHOME/collects/rackunit/private/check.rkt:122:29\nPLTHOME/collects/racket/private/more-scheme.rkt:209:2: call-handled-body\nPLTHOME/collects/rackunit/private/check.rkt:55:0: top-level-check-around\n\n\n--------------------\n--------------------\nFAILURE\nname: check\nlocation: (# 44 0 1344 17)\nexpression: (check = 1 2)\nparams: (# 1 2)\nmessage: 0.0\n\nCheck failure\n--------------------\n") + #"--------------------\nERROR\nOutta here!\n\n === context ===\nPLTHOME/collects/tests/rackunit/standalone-check-test.rkt:40:12: temp7\nPLTHOME/collects/rackunit/private/check.rkt:122:29\nPLTHOME/collects/racket/private/more-scheme.rkt:209:2: call-handled-body\nPLTHOME/collects/rackunit/private/check.rkt:55:0: top-level-check-around\nPLTHOME/collects/rackunit/private/check.rkt:108:21: core50\n\n\n--------------------\n--------------------\nFAILURE\nname: check\nlocation: (# 44 0 1344 17)\nexpression: (check = 1 2)\nparams: (# 1 2)\nmessage: 0.0\n\nCheck failure\n--------------------\n") (test-file "standalone-test-case-test.rkt" - #"#t\n#t\n" + #"" #"--------------------\nERROR\nFirst Outta here!\n\n === context ===\nPLTHOME/collects/racket/private/more-scheme.rkt:209:2: call-handled-body\n\n\n--------------------\n--------------------\nerror\nERROR\nSecond Outta here!\n\n === context ===\nPLTHOME/collects/racket/private/more-scheme.rkt:209:2: call-handled-body\n\n\n--------------------\n--------------------\nFAILURE\nname: check-eq?\nlocation: (# 19 12 520 15)\nexpression: (check-eq? 1 2)\nactual: 1\nexpected: 2\n\nCheck failure\n--------------------\n--------------------\nfailure\nFAILURE\nname: check-eq?\nlocation: (# 20 21 558 15)\nexpression: (check-eq? 1 2)\nactual: 1\nexpected: 2\n\nCheck failure\n--------------------\n")