Suppress output during tests

greghendershott · Nov 10, 2016 · 3a20ca8 · 3a20ca8
1 parent 4936e27
commit 3a20ca8
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/frog/enhance-body.rkt b/frog/enhance-body.rkt
@@ -68,7 +68,7 @@
                  [current-image-sizes-attr #f]
                  [current-image-sizes '(320 600 1200)]
                  [current-image-default-size 600]
-                 [current-verbosity 99])
+                 [current-verbosity 0])
     (test-equal? "Remote images"
                  (responsive-images
                   '((div ((class "figure")) (img ((src "//somehost.com/img/file.jpg"))))))

diff --git a/frog/responsive-images.rkt b/frog/responsive-images.rkt
@@ -56,7 +56,8 @@
 
 (module+ test
   (when magick-available?
-    (parameterize ([top example])
+    (parameterize ([top example]
+                   [current-verbosity 0])
       (define tmp (find-system-path 'temp-dir))
       (define output (build-path tmp "600px-image.gif"))
       (test-eq? "resize"