fix tests failing on cpan testers reports

t/LintTest.pl

@@ -5,7 +5,7 @@ sub checkit {
     my @expected = @{+shift};
     my @linesets = @_;
 
-    plan( tests => 3*(scalar @expected) + 4 );
+    plan( tests => 2*(scalar @expected) + 4 );
 
     my $lint = new HTML::Lint;
     isa_ok( $lint, 'HTML::Lint', 'Created lint object' );
@@ -21,29 +21,32 @@ sub checkit {
     my @errors = $lint->errors();
     is( scalar @errors, scalar @expected, 'Right # of errors' );
 
-    while ( @errors && @expected ) {
+    my $expected_found = 0;
+    while ( @errors ) {
         my $error = shift @errors;
         isa_ok( $error, 'HTML::Lint::Error' );
+        foreach my $exp (@expected) {
+            my $match = $exp->[1];
+            if ( ref $match eq "Regexp" && $error->as_string =~ /$match/) {
+                $expected_found++;
+                is( $error->errcode, $exp->[0], 'Error codes match' );
+                last;
+            }
+            elsif ($error->as_string eq $match) {
+                $expected_found++;
+                is( $error->errcode, $exp->[0], 'Error codes match' );
+                last;
+            }
 
-        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;
+    is( $expected_found, scalar @expected, 'No expected errors missing' ) or $dump = 1;
 
     if ( $dump && @errors ) {
-        diag( "Leftover errors..." ); 
+        diag( "Leftover errors..." );
         diag( $_->as_string ) for @errors;
     }
 }