racket/collects/htdp/Test/hangman-error.ss
Matthias Felleisen 469c1a0c89 small refactoring of hangman checks
svn: r10793
2008-07-16 16:14:21 +00:00

14 lines
767 B
Scheme

;; The first three lines of this file were inserted by DrScheme. They record metadata
;; about the language level of this file in a form that our tools can easily process.
#reader(lib "htdp-advanced-reader.ss" "lang")((modname hangman-error) (read-case-sensitive #t) (teachpacks ((lib "hangman.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #t #t none #f ((lib "hangman.ss" "teachpack" "htdp")))))
(define (reveal-list chosen status guess)
'(a))
(define (draw-next-part body-part)
(begin
"this revealed an omission in the teachpack"
(printf "body-part ~s\n" body-part)))
(start 200 200)
(check-error (hangman-list reveal-list draw-next-part)
"draw-next-part: result of type <boolean> expected, given: #<void>")