source: main/test.lisp

#|
Copyright (C) 2008  David Owen <dsowen@fugue88.ws>

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU Lesser Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU Lesser Public License for more details.

You should have received a copy of the GNU Lesser Public License
along with this program.  If not, see <http://www.gnu.org/licenses/>.
|#

(require '#:dso-simple-template)

(use-package '#:dso-simple-template)



(defun test ()
  (declare (optimize debug))
  (let ((env (make-instance 'env))
        (stream (make-string-output-stream)))
    (setf (env-value env "name") "world")
    (instantiate-template (load-template "test.txt") env stream)
    (let ((r (get-output-stream-string stream)))
      (format t "~A~%" r)
      (assert (string= "Hello, {world}!
" r) (r)))))

(test)