bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE

render.rkt (805B)

      1 #lang racket/base
      2 (require scribble/render
      3          scribble/text-render
      4          scribble/core
      5          racket/file
      6          tests/eli-tester)
      7 
      8 (provide render-tests)
      9 (module+ main (render-tests))
     10 (define (render-tests)
     11   (dynamic-wind
     12     (λ() (render (list (part #f
     13                              null
     14                              (list "Render")
     15                              (style #f null)
     16                              null
     17                              (list (paragraph (style #f null) "The content."))
     18                              null))
     19                  (list "example-for-render-test")
     20                  #:render-mixin render-mixin))
     21     (λ() (test (file->string "example-for-render-test.txt")
     22                => "Render\n\nThe content.\n"))
     23     (λ() (delete-file "example-for-render-test.txt"))))