typesetting/pitfall/ptest/test3.rkt

#lang racket/base
(require pitfall/pdftest)

(define (proc doc)
  (text doc "Hello world"))

(define-runtime-path this "test3rkt.pdf")
(make-doc this #f proc)

(define-runtime-path that "test3crkt.pdf")
(make-doc that #t proc)
buildable not testable 6 years ago			`#lang racket/base`
			`(require pitfall/pdftest)`
consolidate test files 7 years ago
			`(define (proc doc)`
step5 5 years ago			`(text doc "Hello world"))`
consolidate test files 7 years ago
start test3 7 years ago			`(define-runtime-path this "test3rkt.pdf")`
consolidate test files 7 years ago			`(make-doc this #f proc)`
start test3 7 years ago
consolidate test files 7 years ago			`(define-runtime-path that "test3crkt.pdf")`
			`(make-doc that #t proc)`
start test3 7 years ago