1 use strict; use warnings FATAL => 'all';
2 use Test::More qw(no_plan);
9 use XML::Tags qw(one two three);
10 <one>, <two>, <three>;
14 no warnings 'once'; # this is supposed to warn, it's broken
19 use XML::Tags qw(bar);
25 <html>, <body id="spoon">, "YAY", </body>, </html>;
29 use XML::Tags qw(woo);
35 use XML::Tags qw(woo);
36 my $data = "one&two<three>four";
38 <woo>, \$data, </woo>;
47 join(', ', XML::Tags::to_xml_string Foo::foo()),
48 '<one>, <two>, <three>',
52 ok(!eval { Foo::bar(); 1 }, 'Death on use of unimported tag');
55 join(', ', XML::Tags::to_xml_string Foo::baz()),
61 join('', HTML::Tags::to_html_string Foo::quux),
62 '<html><body id="spoon">YAY</body></html>',
67 join('', XML::Tags::to_xml_string Foo::fleem),
68 '<woo ent="one&two">',
73 join('', XML::Tags::to_xml_string Foo::flaax),
74 '<woo>one&two<three>four</woo><woo>one&two<three>four</woo>',
75 'Escaping user data ok'
79 join(', ', Foo::globbery),
80 't/globbery/one, t/globbery/two',
81 'real glob re-installed ok'