From 271f1c19efb412ee3de1f2bdd4476b4bc1eeed95 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Fri, 5 Aug 2011 12:08:43 -0400 Subject: [PATCH] added directory for tests expected to fail --- collects/2htdp/tests-failed/key-error.rkt | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 collects/2htdp/tests-failed/key-error.rkt diff --git a/collects/2htdp/tests-failed/key-error.rkt b/collects/2htdp/tests-failed/key-error.rkt new file mode 100644 index 0000000000..7aa1ddcbc1 --- /dev/null +++ b/collects/2htdp/tests-failed/key-error.rkt @@ -0,0 +1,20 @@ +#lang racket + +;; --------------------------------------------------------------------------------------------------- +;; the error message should refer to the 'on-tick handler, not the lambda in the clause + +(require 2htdp/universe) +(require 2htdp/image) + +(define (main) + (big-bang 0 + (on-tick (lambda (w) "3")) + (to-draw (lambda (w) (circle 10 'solid 'red))) + (check-with number?))) + +(with-handlers ((exn:fail? (lambda (x) + (define msg (exn-message x)) + (define hdl (regexp-match "check-with: (.*) returned" msg)) + (unless (and hdl (cons? (regexp-match "on-tick" (second hdl)))) + (error 'test "expected: \"on-tick\", actual: ~e" (second hdl)))))) + (main)) \ No newline at end of file