extroversion

pitfall/info.rkt

@@ -1,7 +1,7 @@
 #lang info
 (define collection 'multi)
 (define version "0.0")
-(define test-omit-paths 'all)
+(define test-omit-paths '("ptest"))
 (define deps '("draw-lib"
                "with-cache"
                "at-exp-lib"

pitfall/pitfall/font-embedded.rkt

@@ -32,6 +32,11 @@ https://github.com/mbutterick/pdfkit/blob/master/lib/font/embedded.coffee
 
 (struct efont pdf-font (font subset unicode widths scale encoding-cache) #:mutable)
 
+(define (exactify x)
+  (if (and (integer? x) (inexact? x))
+      (inexact->exact x)
+      x))
+
 (define (make-embedded-font name-arg [id #f])
   (define font (cond
                  [(string? name-arg) (open-font name-arg)]
@@ -43,10 +48,10 @@ https://github.com/mbutterick/pdfkit/blob/master/lib/font/embedded.coffee
   (define widths (mhasheq 0 (glyph-advance-width (get-glyph font 0))))
   (define name (font-postscript-name font))
   (define scale (/ 1000.0 (font-units-per-em font)))
-  (define ascender (* (font-ascent font) scale))
-  (define descender (* (font-descent font) scale))
+  (define ascender (exactify (* (font-ascent font) scale)))
+  (define descender (exactify (* (font-descent font) scale)))
   (define bbox (font-bbox font))
-  (define line-gap (* (font-linegap font) scale))
+  (define line-gap (exactify (* (font-linegap font) scale)))
   (define encoding-cache (make-hash)) ; needs to be per font, not in top level of module
   (efont
    name id ascender descender line-gap bbox #f #f efont-embedded efont-encode efont-measure-string

pitfall/pitfall/info.rkt

@@ -1 +0,0 @@
-#lang info

pitfall/pitfall/test.rkt

@@ -0,0 +1,2 @@
+#lang racket
+(require ptest/alltest)

pitfall/ptest/test20.rkt

@@ -1,4 +1,4 @@
-#lang debug racket/base
+#lang racket/base
 (require pitfall/pdftest)
 
 ;; subset OTF font
@@ -24,5 +24,6 @@
 (define-runtime-path that "test20crkt.pdf")
 (make-doc that #t proc)
 
-(check-font-subsets-equal? "test20rkt.pdf" "test20.pdf")
+(define-runtime-path the-other "test20.pdf")
+(check-font-subsets-equal? this the-other)
 

pitfall/ptest/test21.rkt

@@ -1,4 +1,4 @@
-#lang debug racket/base
+#lang racket/base
 (require pitfall/pdftest)
 
 ;; subset OTF font
@@ -24,4 +24,5 @@
 (define-runtime-path that "test21crkt.pdf")
 (make-doc that #t proc)
 
-(check-font-subsets-equal? "test21rkt.pdf" "test21.pdf")
+(define-runtime-path the-other "test21.pdf")
+(check-font-subsets-equal? this the-other)