use Test::More tests => 3; use HTML::Declare ':all'; my $html = HTML { _ => [ HEAD { _ => [ TITLE { _ => 'Hello World!' } ] }, BODY { _ => 'Hello World!' } ] }; is( "$html\n", <<'EOF', 'Simple HTML ducument generated' ); Hello World!Hello World! EOF my $html2 = HTML { _ => [ HEAD { _ => TITLE { _ => 'Hello World!' } }, BODY { _ => '
' } ] }; is( "$html2\n", <<'EOF', 'Simple HTML documument with quoted text generated' ); Hello World!<lalala><quoteme><br/> EOF my $html3 = DIV { _ => [ A { href => 'http://127.0.0.1', _ => '<< Home Sweet Home!' } ] }; is( "$html3\n", <<'EOF', 'Simple HTML snippet with quoted text generated' );
<< Home Sweet Home!
EOF