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

use strictures 1;
use Test::More qw(no_plan);

use HTML::Zoom;
my $template = <<HTML;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> 
<html></html>
HTML

my $output = HTML::Zoom
  ->from_html($template)->to_html;
my $expect = <<HTML;
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> 
<html></html>
HTML
is($output, $expect, 'Synopsis code works ok');;
Commit	Line	Data
1cf03540	1	use strictures 1;
4b4f6408	2	use Test::More qw(no_plan);
	3
	4	use HTML::Zoom;
	5	my $template = <<HTML;
	6	<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
	7	<html></html>
	8	HTML
	9
	10	my $output = HTML::Zoom
	11	->from_html($template)->to_html;
	12	my $expect = <<HTML;
	13	<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
	14	<html></html>
	15	HTML
	16	is($output, $expect, 'Synopsis code works ok');;