bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit eb02149bb71a743bf9c4a0efa17abe8aed8e143d
parent 9a97f6693f40729641b75162008788d02ea5f3f6
Author: Eli Barzilay <eli@barzilay.org>
Date:   Fri, 13 Apr 2012 20:13:24 -0400

Make it possible to run each scribble test file by itself.

original commit: 115a3dfbac711d1ef8de2f52d9d1599bbf708333

Diffstat:
M
collects/tests/scribble/collect.rkt
 | 
2
+-
M
collects/tests/scribble/docs.rkt
 | 
33
++++++++++++++++++---------------
M
collects/tests/scribble/reader.rkt
 | 
5
++---
M
collects/tests/scribble/text-lang.rkt
 | 
4
++--

4 files changed, 23 insertions(+), 21 deletions(-)
diff --git a/collects/tests/scribble/collect.rkt b/collects/tests/scribble/collect.rkt
@@ -3,7 +3,7 @@
 (require tests/eli-tester scribble/text/syntax-utils)
 
 (provide begin/collect-tests)
-
+(module+ main (begin/collect-tests))
 (define (begin/collect-tests)
   (test
 
diff --git a/collects/tests/scribble/docs.rkt b/collects/tests/scribble/docs.rkt
@@ -19,6 +19,7 @@
     (send renderer render docs fns r-info)))
 
 (provide docs-tests)
+(module+ main (docs-tests))
 (define (docs-tests)
   (when (or (file-exists? work-dir) (directory-exists? work-dir))
     (delete-directory/files work-dir))
@@ -26,19 +27,21 @@
   (dynamic-wind void
     (lambda ()
       (define files (map path-element->string (directory-list source-dir)))
-      (for ([scrbl (in-list files)]
-            #:when (regexp-match? #rx"\\.scrbl$" scrbl)
-            [txt   (in-value (regexp-replace #rx"\\.scrbl$" scrbl ".txt"))]
-            #:when (member txt files))
-        ;; (printf "Testing ~s -> ~s\n" scrbl txt)
-        (define src-file (build-path source-dir scrbl))
-        (define expect-file (build-path source-dir txt))
-        (define generated-file (build-path work-dir "gen.txt"))
-        (define (contents file)
-          (regexp-replace #rx"\n+$" (file->string file) ""))
-        (build-text-doc src-file "gen.txt")
-        (test #:failure-message
-              (format "mismatch for: \"~a\", expected text in: \"~a\", got:\n~a"
-                      scrbl txt (contents generated-file))
-              (string=? (contents expect-file) (contents generated-file)))))
+      (test do
+        (for ([scrbl (in-list files)]
+              #:when (regexp-match? #rx"\\.scrbl$" scrbl)
+              [txt   (in-value (regexp-replace #rx"\\.scrbl$" scrbl ".txt"))]
+              #:when (member txt files))
+          ;; (printf "Testing ~s -> ~s\n" scrbl txt)
+          (define src-file (build-path source-dir scrbl))
+          (define expect-file (build-path source-dir txt))
+          (define generated-file (build-path work-dir "gen.txt"))
+          (define (contents file)
+            (regexp-replace #rx"\n+$" (file->string file) ""))
+          (build-text-doc src-file "gen.txt")
+          (test #:failure-message
+                (format
+                 "mismatch for: \"~a\", expected text in: \"~a\", got:\n~a"
+                 scrbl txt (contents generated-file))
+                (string=? (contents expect-file) (contents generated-file))))))
     (lambda () (delete-directory/files work-dir))))
diff --git a/collects/tests/scribble/reader.rkt b/collects/tests/scribble/reader.rkt
@@ -2,8 +2,6 @@
 
 (require tests/eli-tester (prefix-in scr: scribble/reader) racket/list)
 
-(provide reader-tests)
-
 (define the-tests #<<END-OF-TESTS
 
 ;; format:
@@ -901,7 +899,8 @@ END-OF-TESTS
 (define -\\error->  (mk-error-test read/BS))
 
 ;; running the tests
-
+(provide reader-tests)
+(module+ main (reader-tests))
 (define (reader-tests)
   (define (matching? x y)
     (cond [(equal? x y) #t]
diff --git a/collects/tests/scribble/text-lang.rkt b/collects/tests/scribble/text-lang.rkt
@@ -4,10 +4,10 @@
          (prefix-in doc: (lib "scribblings/scribble/text.scrbl")))
 
 (provide text-lang-tests)
-
+(module+ main (text-lang-tests))
 (define (text-lang-tests)
   ;; (sample-file-tests)
-  (in-documentation-tests))
+  (test do (in-documentation-tests)))
 
 ;; unused now
 (define-runtime-path text-dir "text")