Index: main/test.lisp
===================================================================
--- main/test.lisp	(revision main,1)
+++ main/test.lisp	(revision main,1)
@@ -0,0 +1,35 @@
+#|
+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)