diff options
Diffstat (limited to 't/03-html.t')
-rw-r--r-- | t/03-html.t | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/t/03-html.t b/t/03-html.t new file mode 100644 index 0000000..2640a5e --- /dev/null +++ b/t/03-html.t @@ -0,0 +1,28 @@ +#!perl +use Test::Most 'no_plan','die'; +use strict; +use warnings; +use Tree::Template::Declare options => {builder => '+HTML_Element'}; +use Data::Dumper; + +my $tree=tree { + node { + name 'html'; + node { + name 'head'; + node { + name 'title'; + node { name '~text'; attribs text => 'Page title' }; + } + }; + node { + name 'body'; + node { + name 'p'; + node { name '~text'; attribs text => 'Page para' }; + }; + }; + }; +}; + +diag $tree->as_HTML(); |