use utc time in test footer

quad/qtest/all.rkt

@@ -10,6 +10,6 @@
   (displayln (path->string name))
   (check-pdfs-equal? (time (parameterize ([quadwriter-test-mode #t]
                                           [current-output-port (open-output-nowhere)])
-                             (render-pdf (dynamic-require test-path 'doc) pdf-path test-path #:compress #false)
+                             (render-pdf (dynamic-require test-path 'doc) pdf-path test-path)
                              pdf-path))
                      (test-pdf-name test-path)))

quad/qtest/update-tests.rkt

@@ -6,4 +6,4 @@
   (define-values (dir name _) (split-path test-path))
   (displayln (path->string name))
   (time (parameterize ([quadwriter-test-mode #t])
-          (render-pdf (dynamic-require test-path 'doc) (test-pdf-name test-path) test-path #:compress #false))))
+          (render-pdf (dynamic-require test-path 'doc) (test-pdf-name test-path) test-path))))

quad/quadwriter/layout.rkt

@@ -533,7 +533,7 @@
   (fill-color doc default-font-color)
   (text doc (format "~a · ~a at ~a" (quad-ref q :page-number 0)
                     (if (quadwriter-test-mode) "test" (quad-ref q :doc-title "untitled"))
-                    (date->string (if (quadwriter-test-mode) (seconds->date 0) (current-date)) #t))
+                    (date->string (if (quadwriter-test-mode) (seconds->date 0 #f) (current-date)) #t))
         x y))
 
 (define (make-footer-quad col-q page-idx path)