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

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