[catagits/HTML-Zoom.git] / t / tags.t

use strict; use warnings FATAL => 'all';
use Test::More qw(no_plan);

{

  package Foo;

  sub foo {
    use XML::Tags qw(one two three);
    <one>, <two>, <three>;
  }

  sub bar {
    no warnings 'once'; # this is supposed to warn, it's broken
    <one>
  }

  sub baz {
    use XML::Tags qw(bar);
    </bar>;
  }

  sub quux {
    use HTML::Tags;
    <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';
    <woo ent="$ent">;
  }

  sub flaax {
    use XML::Tags qw(woo);
    my $data = "one&two<three>four";
    <woo>,  $data, </woo>,
    <woo>, \$data, </woo>;
  }

  sub HTML_comment {
    use HTML::Tags;
    <!-- this is a comment -->;
  }

  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 bugs {
    <t/bugs/*>;
  }
}

is(
  join(', ', XML::Tags::to_xml_string Foo::foo()),
  '<one>, <two>, <three>',
  'open tags ok'
);

ok(!eval { Foo::bar(); 1 }, 'Death on use of unimported tag');

is(
  join(', ', XML::Tags::to_xml_string Foo::baz()),
  '</bar>',
  'close tag ok'
);

is(
  join('', HTML::Tags::to_html_string Foo::quux),
  '<html><body id="spoon">YAY</body></html>',
  'HTML tags ok'
);

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::HTML_comment),
  '<!-- this is a comment -->',
  'HTML comment ok'
);

is(
  join('', XML::Tags::to_xml_string Foo::fleem),
  '<woo ent="one&amp;two&lt;three&gt;&quot;four">',
  'Escaping ok'
);

is(
  join('', XML::Tags::to_xml_string Foo::flaax),
  '<woo>one&amp;two&lt;three&gt;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(', ', sort { $b cmp $a } Foo::bugs),
  't/bugs/void.t, t/bugs/repeat_replace_on_empty_tag.t',
  'real glob re-installed ok'
);
Commit	Line	Data
d7f82e1b	1	use strict; use warnings FATAL => 'all';
	2	use Test::More qw(no_plan);
	3
	4	{
	5
	6	package Foo;
	7
	8	sub foo {
	9	use XML::Tags qw(one two three);
	10	<one>, <two>, <three>;
	11	}
	12
	13	sub bar {
	14	no warnings 'once'; # this is supposed to warn, it's broken
	15	<one>
	16	}
	17
	18	sub baz {
	19	use XML::Tags qw(bar);
	20	</bar>;
	21	}
	22
	23	sub quux {
	24	use HTML::Tags;
	25	<html>, <body id="spoon">, "YAY", </body>, </html>;
	26	}
	27
	28	sub xquux {
	29	use HTML::Tags;
	30	<link href="#self" rel="me" />,
	31	<table>,<tr>,<td>,'x',<sub>,1,</sub>,</td>,</tr>,</table>;
	32	}
	33
	34	sub fleem {
	35	use XML::Tags qw(woo);
	36	my $ent = 'one&two<three>"four';
	37	<woo ent="$ent">;
	38	}
	39
	40	sub flaax {
	41	use XML::Tags qw(woo);
	42	my $data = "one&two<three>four";
	43	<woo>, $data, </woo>,
	44	<woo>, \$data, </woo>;
	45	}
	46
	47	sub HTML_comment {
	48	use HTML::Tags;
	49	<!-- this is a comment -->;
	50	}
	51
	52	sub PI {
	53	use XML::Tags;
	54	<?xml version="1.0" encoding="UTF-8"?>;
	55	}
	56
	57	sub DTD {
	58	use HTML::Tags;
	59	<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
	60	}
	61
490df899	62	sub bugs {
490df899	63	<t/bugs/*>;
d7f82e1b	64	}
	65	}
	66
	67	is(
	68	join(', ', XML::Tags::to_xml_string Foo::foo()),
	69	'<one>, <two>, <three>',
	70	'open tags ok'
	71	);
	72
	73	ok(!eval { Foo::bar(); 1 }, 'Death on use of unimported tag');
	74
	75	is(
	76	join(', ', XML::Tags::to_xml_string Foo::baz()),
	77	'</bar>',
	78	'close tag ok'
	79	);
	80
	81	is(
	82	join('', HTML::Tags::to_html_string Foo::quux),
	83	'<html><body id="spoon">YAY</body></html>',
	84	'HTML tags ok'
	85	);
	86
	87	is(
	88	join('', HTML::Tags::to_html_string Foo::xquux),
	89	'<link href="#self" rel="me" />' .
	90	'<table><tr><td>x<sub>1</sub></td></tr></table>',
	91	'Conflicting HTML tags ok'
	92	);
	93
	94	is(
	95	join('', XML::Tags::to_xml_string Foo::HTML_comment),
	96	'<!-- this is a comment -->',
	97	'HTML comment ok'
	98	);
	99
	100	is(
	101	join('', XML::Tags::to_xml_string Foo::fleem),
	102	'<woo ent="one&two<three>"four">',
	103	'Escaping ok'
	104	);
	105
	106	is(
	107	join('', XML::Tags::to_xml_string Foo::flaax),
	108	'<woo>one&two<three>four</woo><woo>one&two<three>four</woo>',
	109	'Escaping user data ok'
	110	);
	111
	112	is(
	113	join('', XML::Tags::to_xml_string Foo::PI),
	114	'<?xml version="1.0" encoding="UTF-8"?>',
	115	'XML processing instruction'
	116	);
	117
	118	is(
	119	join('', HTML::Tags::to_html_string Foo::DTD),
	120	'<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">',
	121	'DTD ok'
	122	);
	123
	124	is(
490df899	125	join(', ', sort { $b cmp $a } Foo::bugs),
0ecf05fd	126	't/bugs/void.t, t/bugs/repeat_replace_on_empty_tag.t',
d7f82e1b	127	'real glob re-installed ok'
d7f82e1b	128	);