t/doctype.t

   1 use strictures 1;
   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');;