2 (in-package #:smarkup-test
)
4 (defun test-xhtml-file ()
5 (let ((smarkup-file (ch-asdf:asdf-lookup-path
"asdf:/smarkup-test/test/sample-sexp"))
6 (xhtml-file (merge-pathnames #p
"sample.xhtml"
7 (ch-asdf:asdf-lookup-path
"asdf:/smarkup-test/test"))))
8 (with-open-file (stream smarkup-file
)
9 (let ((sexp (read stream
)))
10 (let ((filtered (smarkup::apply-filters
12 '(:lisp
:smarkup-metadata
:html-metadata
:ref
))))
13 (smarkup::render-as
:xhtml filtered xhtml-file
))))))