nicer test

pitfall/pitfall/check-pdf.rkt

@@ -121,8 +121,12 @@
 (define (dict-compare arg1 arg2)
   (define d1 (if (dict? arg1) arg1 (pdf->dict arg1)))
   (define d2 (if (dict? arg2) arg2 (pdf->dict arg2)))
-  (and (dict? d1) (dict? d2)
-       (= (length d1) (length d2))
+  (unless (dict? d1)
+    (error "d1 is not a dict"))
+  (unless (dict? d2)
+    (error "d2 is not a dict"))
+  (unless (= (length d1) (length d2))
+    (error (format "dict lengths different in d1 (~a) and d2 (~a)" (length d1) (length d2))))
   (for/and ([(k1 v1) (in-dict d1)]
             [(k2 v2) (in-dict d2)])
     (unless (equal? k1 k2)
@@ -131,7 +135,7 @@
       (error (format "values unequal in ~e and ~e: ~e ≠ ~e" arg1 arg2 v1 v2)))
     (when (dict? v1)
       (dict-compare v1 v2))
-                #true)))
+    #true))
 
 (define-simple-check (check-headers-equal? ps1 ps2)
   (equal? (peek-bytes 14 0 (open-input-file ps1))