suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

test for stop-when problem with booleans

Browse Source
This commit is contained in:
Matthias Felleisen 2013-10-04 15:07:01 -04:00
parent 88871caf6e
commit e9ee4c4504
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkgs/htdp-pkgs/htdp-test/2htdp/tests/stop-when-not-boolean.rkt Normal file
View File

@ -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 ***)))

3
pkgs/htdp-pkgs/htdp-test/2htdp/xtest
View File

@ -10,7 +10,6 @@ run() {
cd tests cd tests
run stop-when-error.rkt
run key-error.rkt run key-error.rkt
run run-movie.rkt run run-movie.rkt
run bad-draw.rkt run bad-draw.rkt
@ -38,7 +37,9 @@ run server-rename.rkt
run world0-stops.rkt run world0-stops.rkt
run record.rkt run record.rkt
run record-stop-when.rkt run record-stop-when.rkt
run stop-when-error.rkt
run stop-when-crash.rkt run stop-when-crash.rkt
run stop-when-not-boolean.rkt
run on-tick-universe-with-limit.rkt run on-tick-universe-with-limit.rkt
run on-tick-with-limit.rkt run on-tick-with-limit.rkt
run on-release-no-key.rkt run on-release-no-key.rkt