From 995ce61434481227067bf855483c6c22bb94b286 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Fri, 8 Oct 2010 16:17:03 -0400 Subject: [PATCH] to-draw and on-draw check --- collects/2htdp/tests/bad-draw2.rkt | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 collects/2htdp/tests/bad-draw2.rkt diff --git a/collects/2htdp/tests/bad-draw2.rkt b/collects/2htdp/tests/bad-draw2.rkt new file mode 100644 index 0000000000..b717a707ea --- /dev/null +++ b/collects/2htdp/tests/bad-draw2.rkt @@ -0,0 +1,13 @@ +#lang scheme + +(require 2htdp/universe) + +(define s "") +(define x 0) + +(with-handlers ((exn? (lambda _ "success!"))) + (big-bang 0 + (on-tick (lambda (w) (begin (set! x (+ x 1)) w))) + (to-draw (lambda (w) (set! s (number->string w)))) + (on-draw (lambda (w) (set! s (number->string w)))))) +