diff --git a/frog/responsive-images.rkt b/frog/responsive-images.rkt index b2ad9ff9..8e95d5c5 100644 --- 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))))