t/doctype.t

   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');;