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

commit b8556478f5bf7ef40bfc9174316c54b9b912f29d
parent 0e1979d80bef9ee90c6101630bf2db1ba891d036
Author: Eli Barzilay <eli@barzilay.org>
Date:   Tue, 28 Jun 2011 18:29:59 -0400

Try to improve the tests wrt timeouts and memory limits

original commit: 226f86d201794a880e0ec49ab6cb03ec937c962e

Diffstat:
M
collects/tests/scribble/text-lang.rkt
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/collects/tests/scribble/text-lang.rkt b/collects/tests/scribble/text-lang.rkt
@@ -40,7 +40,8 @@
             . stuff))
     (parameterize ([current-directory this-dir]
                    [sandbox-output o]
-                   [sandbox-error-output current-output-port])
+                   [sandbox-error-output current-output-port]
+                   [sandbox-eval-limits '(2 10)])
       (define exn #f)
       (define thd #f)
       (define (run)
@@ -54,8 +55,7 @@
         (call-with-output-file (car m) #:exists 'truncate
           (lambda (o) (display (cdr m) o))))
       (set! thd (thread run))
-      (t (with-limits 2 #f
-           (if len-to-read (read-string len-to-read i) (port->string i)))
+      (t (if len-to-read (read-string len-to-read i) (port->string i))
          => expected)
       (t (begin (kill-thread thd) (cond [exn => raise] [else #t])))
       (for ([m more])