From e9ee4c45043c7eafcaaf5ada84a3798ec992e4ae Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Fri, 4 Oct 2013 15:07:01 -0400 Subject: [PATCH] test for stop-when problem with booleans --- .../htdp-test/2htdp/tests/stop-when-not-boolean.rkt | 12 ++++++++++++ pkgs/htdp-pkgs/htdp-test/2htdp/xtest | 3 ++- 2 files changed, 14 insertions(+), 1 deletion(-) create mode 100644 pkgs/htdp-pkgs/htdp-test/2htdp/tests/stop-when-not-boolean.rkt diff --git a/pkgs/htdp-pkgs/htdp-test/2htdp/tests/stop-when-not-boolean.rkt b/pkgs/htdp-pkgs/htdp-test/2htdp/tests/stop-when-not-boolean.rkt new file mode 100644 index 0000000000..06b5e900ce --- /dev/null +++ b/pkgs/htdp-pkgs/htdp-test/2htdp/tests/stop-when-not-boolean.rkt @@ -0,0 +1,12 @@ +#lang racket + +;; --------------------------------------------------------------------------------------------------- +;; the stop-when clause crashes. make sure that it signals a catchable error. + +(require 2htdp/universe 2htdp/image) + +(with-handlers ((exn:fail? void)) + (big-bang 0 + (on-draw (λ _ (empty-scene 500 500))) + (stop-when (λ _ 5))) + (displayln '(*** SOMETHING WENT WRONG IN STOP-WHEN NOT BOOLEAN ***))) diff --git a/pkgs/htdp-pkgs/htdp-test/2htdp/xtest b/pkgs/htdp-pkgs/htdp-test/2htdp/xtest index c95f473491..251022b923 100755 --- a/pkgs/htdp-pkgs/htdp-test/2htdp/xtest +++ b/pkgs/htdp-pkgs/htdp-test/2htdp/xtest @@ -10,7 +10,6 @@ run() { cd tests -run stop-when-error.rkt run key-error.rkt run run-movie.rkt run bad-draw.rkt @@ -38,7 +37,9 @@ run server-rename.rkt run world0-stops.rkt run record.rkt run record-stop-when.rkt +run stop-when-error.rkt run stop-when-crash.rkt +run stop-when-not-boolean.rkt run on-tick-universe-with-limit.rkt run on-tick-with-limit.rkt run on-release-no-key.rkt