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

test case for PR 14009

Browse Source
This commit is contained in:
Matthias Felleisen 2013-09-11 20:43:47 +02:00
parent beb7e2f163
commit 0b4679d44f
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
pkgs/htdp-pkgs/htdp-test/2htdp/tests/stop-when-error.rkt Normal file
View File

@ -0,0 +1,13 @@
;; The first three lines of this file were inserted by DrRacket. They record metadata
;; about the language level of this file in a form that our tools can easily process.
#reader(lib "htdp-intermediate-lambda-reader.ss" "lang")((modname stop-when-error) (read-case-sensitive #t) (teachpacks ()) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ())))
(require 2htdp/image)
(require 2htdp/universe)
(define (render x) (circle x "solid" "blue"))
(check-error (big-bang 10
(to-draw render)
(on-tick sub1)
(stop-when zero? (circle 10 "solid" "red")))
"stop-when: expected a function as second argument; given #<image>")