<html>, <body id="spoon">, "YAY", </body>, </html>;
}
+ sub xquux {
+ use HTML::Tags;
+ <link href="#self" rel="me" />,
+ <table>,<tr>,<td>,'x',<sub>,1,</sub>,</td>,</tr>,</table>;
+ }
+
sub fleem {
use XML::Tags qw(woo);
my $ent = 'one&two<three>"four';
);
is(
+ join('', HTML::Tags::to_html_string Foo::xquux),
+ '<link href="#self" rel="me" />' .
+ '<table><tr><td>x<sub>1</sub></td></tr></table>',
+ 'Conflicting HTML tags ok'
+);
+
+is(
join('', XML::Tags::to_xml_string Foo::fleem),
'<woo ent="one&two<three>"four">',
'Escaping ok'