From f600531e50db6bb2e8cda7807380a4d2ebd269d9 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Wed, 27 Oct 2010 10:35:11 -0400 Subject: [PATCH] improved testing for record? --- collects/2htdp/tests/record-stop-when.rkt | 45 ++++++++++------------- collects/2htdp/tests/xtest | 5 +++ 2 files changed, 24 insertions(+), 26 deletions(-) diff --git a/collects/2htdp/tests/record-stop-when.rkt b/collects/2htdp/tests/record-stop-when.rkt index de3c676ed9..cda9803e55 100644 --- a/collects/2htdp/tests/record-stop-when.rkt +++ b/collects/2htdp/tests/record-stop-when.rkt @@ -11,30 +11,23 @@ stop) (define stop (text "STOP" 44 'red)) -;; -> Nat -;; make the clock tick n times, expected expected-n files in dir -(define (create-n-images) - (define dir "images0") - (unless (directory-exists? dir) - (make-directory dir)) - (parameterize ([current-directory dir]) - (for-each delete-file (directory-list))) - (with-output-to-file (format "./~a/index.html" dir) - (lambda () - (displayln "")) - #:exists 'replace) - (define final-world - (big-bang 0 - (on-tick add1) - (stop-when (curry = 5) draw-stop) - (on-draw draw-number) - (record? dir))) - (sleep 1) - (parameterize ([current-directory dir]) - (define dlst (directory-list)) - (displayln dlst) - (length - (filter (lambda (f) (regexp-match "\\.png" (path->string f))) - dlst)))) -(create-n-images) +(define dir "images0") +(unless (directory-exists? dir) + (make-directory dir)) +(parameterize ([current-directory dir]) + (for-each delete-file (directory-list))) +(with-output-to-file (format "./~a/index.html" dir) + (lambda () + (displayln "")) + #:exists 'replace) +(define final-world + (big-bang 0 + (on-tick add1) + (stop-when (curry = 5) draw-stop) + (on-draw draw-number) + (record? dir))) +(sleep 1) +(unless (image=? (bitmap "images0/i1.png") (draw-number 0)) + (printf "this test needs to be revised -- image=? doesn't work\n")) + diff --git a/collects/2htdp/tests/xtest b/collects/2htdp/tests/xtest index 015d6edf30..842230dbcd 100755 --- a/collects/2htdp/tests/xtest +++ b/collects/2htdp/tests/xtest @@ -30,3 +30,8 @@ gracket ufo-rename.rkt echo "--- ufo-rename.rkt ---" echo "" gracket world0-stops.rkt +echo "--- record.rkt ---" echo "" +gracket record.rkt +echo "--- record-stop-when.rkt ---" echo "" +gracket record-stop-when.rkt +