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

adjusted error message checking

Browse Source
This commit is contained in:
Matthias Felleisen 2011-10-18 12:36:16 -04:00
parent 38b802dde4
commit 8f804afcaa
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/htdp/tests/hangman-error.rkt
View File

@ -11,4 +11,4 @@
(start 200 200)
(check-error (hangman-list reveal-list draw-next-part)
"draw-next-part: result of type <boolean> expected, your function produced #<void>")
"draw-next-part: is expected to return a boolean, but it returned (void)")

3
collects/htdp/tests/world.rkt
View File

@ -28,8 +28,7 @@
(check-expect (key=? "b" "a") false)
(check-error (key=? "a" 0) "key=?: expected <KEY-EVTS> as second argument, given: 0")
(check-error (key=? "a" 0) "key=?: expects a KEY-EVTS as second argument, given 0")
;; run world run