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
|
package Util;
use parent 'Exporter';
use warnings;
use strict;
use Test::More;
use HTML::Lint;
our @EXPORT = qw(
checkit
);
sub checkit {
my @expected = @{+shift};
my @linesets = @_;
plan( tests => 3*(scalar @expected) + 4 );
my $lint = HTML::Lint->new;
isa_ok( $lint, 'HTML::Lint', 'Created lint object' );
my $n;
for my $set ( @linesets ) {
++$n;
$lint->newfile( "Set #$n" );
$lint->parse( $_ ) for @{$set};
$lint->eof;
}
my @errors = $lint->errors();
is( scalar @errors, scalar @expected, 'Right # of errors' );
while ( @errors && @expected ) {
my $error = shift @errors;
isa_ok( $error, 'HTML::Lint::Error' );
my $expected = shift @expected;
is( $error->errcode, $expected->[0], 'Error codes match' );
my $match = $expected->[1];
if ( ref($match) eq 'Regexp' ) {
like( $error->as_string, $match, 'Error matches regex' );
}
else {
is( $error->as_string, $match, 'Error matches string' );
}
}
my $dump;
is( scalar @errors, 0, 'No unexpected errors found' ) or $dump = 1;
is( scalar @expected, 0, 'No expected errors missing' ) or $dump = 1;
if ( $dump && @errors ) {
diag( 'Leftover errors...' );
diag( $_->as_string ) for @errors;
}
return;
}
1; # happy
|
