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