24 lines
805 B
Racket
24 lines
805 B
Racket
#lang racket/base
|
|
(require scribble/render
|
|
scribble/text-render
|
|
scribble/core
|
|
racket/file
|
|
tests/eli-tester)
|
|
|
|
(provide render-tests)
|
|
(module+ main (render-tests))
|
|
(define (render-tests)
|
|
(dynamic-wind
|
|
(λ() (render (list (part #f
|
|
null
|
|
(list "Render")
|
|
(style #f null)
|
|
null
|
|
(list (paragraph (style #f null) "The content."))
|
|
null))
|
|
(list "example-for-render-test")
|
|
#:render-mixin render-mixin))
|
|
(λ() (test (file->string "example-for-render-test.txt")
|
|
=> "Render\n\nThe content.\n"))
|
|
(λ() (delete-file "example-for-render-test.txt"))))
|