(require 'sxml-templates)
(use sxml-templates test)
(let ((doc '(html
(head (title "Harro"))
(body (%data body)))))
(test
"sxml-template:fill-string"
"\n\n\nHarro\n\ncowboys
"
(sxml-template:fill-string
(make-sxml-template doc)
'((body . (p "cowboys"))))))
(test-exit)