Suppress output during tests

Author: gerdint

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"))))))

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"