From 8499a4e65d1911c87db4af8697ad7806cafcc44b Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 21 Sep 2010 15:27:49 -0500 Subject: [PATCH] added a test suite for the hangman teachpack --- collects/tests/drracket/hangman.rkt | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 collects/tests/drracket/hangman.rkt diff --git a/collects/tests/drracket/hangman.rkt b/collects/tests/drracket/hangman.rkt new file mode 100644 index 0000000000..b765aca84b --- /dev/null +++ b/collects/tests/drracket/hangman.rkt @@ -0,0 +1,21 @@ +#lang racket/base +(require "drracket-test-util.rkt" + racket/class) + +(fire-up-drscheme-and-run-tests + (λ () + (define drs (wait-for-drscheme-frame)) + (define defs (send drs get-definitions-text)) + (define rep (send drs get-interactions-text)) + (set-language-level! (list #rx"How to Design Programs" #rx"Beginning Student$")) + (send defs load-file (collection-file-path "hangman1.rkt" "htdp" "tests")) + (do-execute drs) + (insert-in-interactions drs "(hangman make-word reveal symbol?)") + (alt-return-in-interactions drs) + (define hangman-frame (wait-for-new-frame drs (list (send rep get-user-eventspace)))) + (cond + [(equal? (send hangman-frame get-label) "Hangman") + (printf "Hangman test passed.\n")] + [else + (error 'hangman.rkt "expected a hangman frame to appear, but got one with the label ~s" + (send hangman-frame get-label))])))