1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
#!perl
use 5.010001;
use warnings;
use strict;
use Test::More tests => 3;
use Test::Builder::Tester;
use Test::HTML::Tidy5;
subtest 'html_fragment_tidy_ok fails on undef' => sub {
plan tests => 1;
my $msg = 'Fails on undef';
test_out( "not ok 1 - $msg" );
test_fail( +2 );
test_diag( 'Error: html_fragment_tidy_ok() got undef' );
html_fragment_tidy_ok( undef, $msg );
test_test( $msg );
};
subtest 'html_tidy_ok fails on a fragment, but html_fragment_tidy_ok is OK' => sub {
plan tests => 2;
my $html = <<'HTML';
<p>
This is an incomplete document but it's structurally OK.
<img src="alpha.jpg" height="21" width="12" alt="alpha">
<input type="image">
</p>
HTML
my $msg = 'Called html_tidy_ok on incomplete document';
test_out( "not ok 1 - $msg" );
test_fail( +6 );
test_diag( "Errors: $msg" );
test_diag( '(1:1) Warning: missing <!DOCTYPE> declaration' );
test_diag( '(1:1) Warning: inserting implicit <body>' );
test_diag( '(1:1) Warning: inserting missing \'title\' element' );
test_diag( '3 messages on the page' );
html_tidy_ok( $html, $msg );
test_test( $msg );
$msg = 'html_fragment_tidy_ok can handle it';
test_out( "not ok 1 - $msg" );
test_fail( +4 );
test_diag( "Errors: $msg" );
test_diag( '(-2:9) Warning: blank \'title\' element' );
test_diag( '1 message on the page' );
html_fragment_tidy_ok( $html, $msg );
test_test( $msg );
};
subtest 'html_fragment_tidy_ok gets the same errors as html_tidy_ok' => sub {
plan tests => 2;
my $html = <<'HTML';
<p>
This is an incomplete document, and it has structural </td> errors.
<img src="alpha.jpg" height="21" width="12">
</p>
HTML
my $msg = 'html_tidy_ok on sloppy doc';
test_out( "not ok 1 - $msg" );
test_fail( +8 );
test_diag( "Errors: $msg" );
test_diag( '(1:1) Warning: missing <!DOCTYPE> declaration' );
test_diag( '(1:1) Warning: inserting implicit <body>' );
test_diag( '(2:59) Warning: discarding unexpected </td>' );
test_diag( '(1:1) Warning: inserting missing \'title\' element' );
test_diag( '(3:5) Warning: <img> lacks "alt" attribute' );
test_diag( '5 messages on the page' );
html_tidy_ok( $html, $msg );
test_test( $msg );
# Note that the line numbers are the same between html_tidy_ok and html_fragment_tidy_ok.
$msg = 'html_fragment_tidy_ok on sloppy doc';
test_out( "not ok 1 - $msg" );
test_fail( +6 );
test_diag( "Errors: $msg" );
test_diag( '(2:59) Warning: discarding unexpected </td>' );
test_diag( '(-2:9) Warning: blank \'title\' element' );
test_diag( '(3:5) Warning: <img> lacks "alt" attribute' );
test_diag( '3 messages on the page' );
html_fragment_tidy_ok( $html, $msg );
test_test( $msg );
};
exit 0;
|
