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