From 8f804afcaa5574bba2cb7fadc66398b22cca0303 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Tue, 18 Oct 2011 12:36:16 -0400 Subject: [PATCH] adjusted error message checking --- collects/htdp/tests/hangman-error.rkt | 2 +- collects/htdp/tests/world.rkt | 3 +-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/htdp/tests/hangman-error.rkt b/collects/htdp/tests/hangman-error.rkt index 16704365e4..79a645049f 100644 --- a/collects/htdp/tests/hangman-error.rkt +++ b/collects/htdp/tests/hangman-error.rkt @@ -11,4 +11,4 @@ (start 200 200) (check-error (hangman-list reveal-list draw-next-part) - "draw-next-part: result of type expected, your function produced #") + "draw-next-part: is expected to return a boolean, but it returned (void)") diff --git a/collects/htdp/tests/world.rkt b/collects/htdp/tests/world.rkt index 54da7e0fb6..b51fefaa6e 100644 --- a/collects/htdp/tests/world.rkt +++ b/collects/htdp/tests/world.rkt @@ -28,8 +28,7 @@ (check-expect (key=? "b" "a") false) -(check-error (key=? "a" 0) "key=?: expected as second argument, given: 0") - +(check-error (key=? "a" 0) "key=?: expects a KEY-EVTS as second argument, given 0") ;; run world run