Failing test for doctypes.

diff --git a/t/doctype.t b/t/doctype.t

new file mode 100644 (file)

index 0000000..b0e5e1b
--- /dev/null
+++ b/t/doctype.t
@@ -0,0 +1,17 @@
+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');;