external/smarkup/test/smarkup-test.cl

   1
   2 (in-package #:smarkup-test)
   3
   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
  11                          sexp
  12                          '(:lisp :smarkup-metadata :html-metadata :ref))))
  13           (smarkup::render-as :xhtml filtered xhtml-file))))))