From 36394500e552b1f00fca97b2e99fc674cd3a5857 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Sun, 6 May 2012 05:53:19 -0400
Subject: [PATCH] Streamline all scribble tests.

---
 collects/meta/props                           |  2 +-
 collects/tests/scribble/main.rkt              |  8 +++--
 collects/tests/scribble/render.rkt            | 35 ++++++++++---------
 .../{collect.rkt => text-collect.rkt}         |  0
 collects/tests/scribble/xref.rkt              | 32 ++++++++---------
 5 files changed, 39 insertions(+), 38 deletions(-)
 rename collects/tests/scribble/{collect.rkt => text-collect.rkt} (100%)

diff --git a/collects/meta/props b/collects/meta/props
index 5d2d498686..e700aab38d 100755
--- a/collects/meta/props
+++ b/collects/meta/props
@@ -1944,7 +1944,7 @@ path/s is either such a string or a list of them.
 "collects/tests/rackunit/standalone-test-case-test.rkt" drdr:command-line #f
 "collects/tests/rackunit/standalone.rkt" drdr:command-line (racket "-qjt" *)
 "collects/tests/run-automated-tests.rkt" responsible (eli) drdr:command-line (mzc "-k" *) drdr:timeout 600
-"collects/tests/scribble" responsible (eli)
+"collects/tests/scribble" responsible (eli mflatt)
 "collects/tests/slatex" responsible (jay sstrickl)
 "collects/tests/srfi" responsible (noel chongkai jay)
 "collects/tests/srfi/1/run-tests.rktl" drdr:command-line (racket "-f" *)
diff --git a/collects/tests/scribble/main.rkt b/collects/tests/scribble/main.rkt
index 0c8226950e..3fd1df3c6d 100644
--- a/collects/tests/scribble/main.rkt
+++ b/collects/tests/scribble/main.rkt
@@ -1,11 +1,13 @@
 #lang racket/base
 
 (require tests/eli-tester
-         "reader.rkt" "collect.rkt" "text-lang.rkt" "text-wrap.rkt"
-         "docs.rkt")
+         "reader.rkt" "text-collect.rkt" "text-lang.rkt" "text-wrap.rkt"
+         "docs.rkt" "render.rkt" "xref.rkt")
 
 (test do (reader-tests)
       do (begin/collect-tests)
       do (text-lang-tests)
       do (wrap-tests)
-      do (docs-tests))
+      do (docs-tests)
+      do (render-tests)
+      do (xref-tests))
diff --git a/collects/tests/scribble/render.rkt b/collects/tests/scribble/render.rkt
index 19301c1750..78f20ff8b6 100644
--- a/collects/tests/scribble/render.rkt
+++ b/collects/tests/scribble/render.rkt
@@ -2,21 +2,22 @@
 (require scribble/render
          scribble/text-render
          scribble/core
-         racket/file)
-
-(render (list (part #f
-                    null
-                    (list "Render")
-                    (style #f null)
-                    null
-                    (list (paragraph (style #f null) "The content."))
-                    null))
-        (list "example")
-        #:render-mixin render-mixin)
-
-(unless (string=? "Render\n\nThe content.\n"
-                  (file->string "example.txt"))
-  (error "render test failed"))
-
-(delete-file "example.txt")
+         racket/file
+         tests/eli-tester)
 
+(provide render-tests)
+(module+ main (render-tests))
+(define (render-tests)
+  (dynamic-wind
+    (λ() (render (list (part #f
+                             null
+                             (list "Render")
+                             (style #f null)
+                             null
+                             (list (paragraph (style #f null) "The content."))
+                             null))
+                 (list "example-for-render-test")
+                 #:render-mixin render-mixin))
+    (λ() (test (file->string "example-for-render-test.txt")
+               => "Render\n\nThe content.\n"))
+    (λ() (delete-file "example-for-render-test.txt"))))
diff --git a/collects/tests/scribble/collect.rkt b/collects/tests/scribble/text-collect.rkt
similarity index 100%
rename from collects/tests/scribble/collect.rkt
rename to collects/tests/scribble/text-collect.rkt
diff --git a/collects/tests/scribble/xref.rkt b/collects/tests/scribble/xref.rkt
index fc12d91c75..cb8ef79e1c 100644
--- a/collects/tests/scribble/xref.rkt
+++ b/collects/tests/scribble/xref.rkt
@@ -1,21 +1,19 @@
 #lang racket/base
 (require scribble/xref
          racket/fasl
-         setup/dirs)
-
-(define xref (load-xref (list 
-                         (lambda ()
-                           (cadr
-                            (call-with-input-file*
-                             (build-path (find-doc-dir)
-                                         "reference"
-                                         "out.sxref")
-                             fasl->s-exp))))))
-
-(unless (equal? '(form ((lib "racket/contract/base.rkt") ->))
-                (xref-binding->definition-tag 
-                 xref 
-                 (list '(lib "contract.rkt" "racket") '->)
-                 #f))
-  (error "failed"))
+         setup/dirs
+         tests/eli-tester)
 
+(provide xref-tests)
+(module+ main (xref-tests))
+(define (xref-tests)
+  (define xref
+    (load-xref (list
+                (lambda ()
+                  (cadr
+                   (call-with-input-file*
+                       (build-path (find-doc-dir) "reference" "out.sxref")
+                     fasl->s-exp))))))
+  (test (xref-binding->definition-tag
+         xref (list '(lib "contract.rkt" "racket") '->) #f)
+        => '(form ((lib "racket/contract/base.rkt") ->))))