More

greghendershott · Oct 14, 2016 · c58674e · c58674e
1 parent 3a66954
commit c58674e
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/frog/responsive-images.rkt b/frog/responsive-images.rkt
@@ -27,15 +27,20 @@
   (require rackunit))
 
 (define (image-width path)
+  (displayln "output: ")
+  (system* identify "-format" "%w" path)
+  (newline)
   (string->number
    (with-output-to-string
      (λ ()
-       (eprintf "identify=~a path=~a\n" identify path)
+       ;(eprintf "identify=~a path=~a\n" identify path)
        (system* identify "-format" "%w" path)))
    ))
 
 (module+ test
   (when magick-available?
+    (displayln "identify:")
+    (system* identify "-version")
     (parameterize ([top example])
       (check-eq? (image-width (build-path (www/img-path) "800px-image.gif")) 800))))