sub fleem {
use XML::Tags qw(woo);
- my $ent = "one&two";
+ my $ent = 'one&two<three>"four';
<woo ent="$ent">;
}
+ sub flaax {
+ use XML::Tags qw(woo);
+ my $data = "one&two<three>four";
+ <woo>, $data, </woo>,
+ <woo>, \$data, </woo>;
+ }
+
+ sub PI {
+ use XML::Tags;
+ <?xml version="1.0" encoding="UTF-8"?>;
+ }
+
+ sub DTD {
+ use HTML::Tags;
+ <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
+ }
+
sub globbery {
<t/globbery/*>;
}
is(
join('', XML::Tags::to_xml_string Foo::fleem),
- '<woo ent="one&two">',
+ '<woo ent="one&two<three>"four">',
'Escaping ok'
);
is(
+ join('', XML::Tags::to_xml_string Foo::flaax),
+ '<woo>one&two<three>four</woo><woo>one&two<three>four</woo>',
+ 'Escaping user data ok'
+);
+
+is(
+ join('', XML::Tags::to_xml_string Foo::PI),
+ '<?xml version="1.0" encoding="UTF-8"?>',
+ 'XML processing instruction'
+);
+
+is(
+ join('', HTML::Tags::to_html_string Foo::DTD),
+ '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">',
+ 'DTD ok'
+);
+
+is(
join(', ', Foo::globbery),
't/globbery/one, t/globbery/two',
'real glob re-installed ok'
projects / catagits/Web-Simple.git / blobdiff