From 488f8c210e2c311519c6967c2ad46a739cc6adc2 Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Wed, 18 Jun 2008 12:51:22 +0000 Subject: [PATCH] Corrected bug introduced by the introduction of match-let svn: r10339 --- collects/test-engine/scheme-tests.ss | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/collects/test-engine/scheme-tests.ss b/collects/test-engine/scheme-tests.ss index fbf011100b..23191d6642 100644 --- a/collects/test-engine/scheme-tests.ss +++ b/collects/test-engine/scheme-tests.ss @@ -187,17 +187,14 @@ (define (run-and-check check maker test expect range src test-info kind) (match-let ([(list result result-val) (with-handlers ([exn? (lambda (e) - (make-unexpected-error src expect - (exn-message e)))]) + (list (make-unexpected-error src expect + (exn-message e)) 'error))]) (let ([test-val (test)]) - ;; yikes! it appears that test-val and expect are reversed here! -- JBC, 2008-05-28 - (cond [(check test-val expect range) - (list #t test-val)] + (cond [(check expect test-val range) (list #t test-val)] [else (list (maker src test-val expect range) test-val)])))]) (cond [(check-fail? result) - (send (send test-info get-info) check-failed (check->message result) - (check-fail-src result)) + (send (send test-info get-info) check-failed (check->message result) (check-fail-src result)) (render-for-stepper/fail result expect range kind)] [else ;; I'd like to pass the actual, but I don't have it.