You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
767 B
Racket
21 lines
767 B
Racket
#lang racket/base
|
|
(require racket/class
|
|
rackunit
|
|
"document.rkt"
|
|
"page.rkt"
|
|
"reference.rkt"
|
|
"core.rkt"
|
|
sugar/unstable/js)
|
|
(define p (make-object PDFPage))
|
|
(check-equal? (· p size) "letter")
|
|
(check-equal? (· p layout) "portrait")
|
|
(check-equal? (· p margins) (margin 72 72 72 72))
|
|
(check-equal? (· p height) 792.0)
|
|
(check-equal? (· p width) 612.0)
|
|
(check-equal? (· p resources ProcSet) '(PDF Text ImageB ImageC ImageI))
|
|
|
|
(check-equal? (· p dictionary Type) 'Page)
|
|
(check-equal? (· p dictionary MediaBox) '(0 0 612.0 792.0))
|
|
(check-true (is-a? (· p dictionary Contents) PDFReference))
|
|
(check-true (is-a? (· p dictionary Resources) PDFReference))
|
|
#;(check-true (is-a? (· p dictionary Parent) PDFReference)) |