Thanks for visiting Ace of ♠
Ace of ♠ is your single source for everything related to Motörhead.
Here's an icon of my girlfriend Jenny: �
And here's an icon of a deceased cow: �
Another deceased cow: &xdeadbeef;
Here's an awesome link to "You Better Swim" from the SpongeBob movie.
libhtml-lint-perl-2.22+dfsg.orig/t/elem-img-alt-missing.t 0000644 0001750 0001750 00000000606 12506561573 021043 0 ustar fs fs use warnings;
use strict;
require 't/LintTest.pl';
checkit( [
[ 'elem-img-alt-missing' => qr/ This is my paragraph
Here's an awesome link to "You Better Swim" from the SpongeBob movie.
libhtml-lint-perl-2.22+dfsg.orig/t/50-multiple-files.t 0000644 0001750 0001750 00000001752 12506561573 020302 0 ustar fs fs use warnings;
use strict;
require 't/LintTest.pl';
my @files = get_paragraphed_files();
checkit( [
[ 'elem-unopened' => qr/<\/p> with no opening /i ],
[ 'elem-unclosed' => qr/ at \(6:5\) is never closed/i ],
[ 'elem-unclosed' => qr/ at \(7:5\) is never closed/i ],
[ 'elem-unopened' => qr/<\/b> with no opening /i ],
], @files );
__DATA__
This is my paragraph This is another paragraph This is my paragraph /i ],
], [] );
__DATA__
This is my paragraph about burritos This is my paragraph
A test for this bug.
Bad
Bad
is repeated/i ],
], [] );
__DATA__
This is my paragraph This is my paragraph This is my paragraph This is another paragraph This is my paragraph
does not have ALT text defined/i ],
], [] );
__DATA__
libhtml-lint-perl-2.22+dfsg.orig/t/config-unknown-directive.t 0000644 0001750 0001750 00000000740 12506561573 022037 0 ustar fs fs use warnings;
use strict;
require 't/LintTest.pl';
checkit( [
# [ 'config-unknown-directive' => q{Set #1 (6:5) Unknown directive "bongo"} ],
[ 'config-unknown-directive' => qr/Unknown directive "bongo"$/ ],
], [] );
__DATA__
libhtml-lint-perl-2.22+dfsg.orig/t/LintTest.pl 0000644 0001750 0001750 00000003122 12507334676 017037 0 ustar fs fs use Test::More;
use HTML::Lint;
sub checkit {
my @expected = @{+shift};
my @linesets = @_;
plan( tests => 3*(scalar @expected) + 4 );
my $lint = new HTML::Lint;
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;
}
}
# Read in a set of sets of lines, where each "file" is separated by a
# blank line in
sub get_paragraphed_files {
local $/ = "";
my @sets;
while ( my $paragraph = ) {
my @lines = split /\n/, $paragraph;
@lines = map { "$_\n" } @lines;
push( @sets, [@lines] );
}
return @sets;
}
1; # happy
libhtml-lint-perl-2.22+dfsg.orig/t/strong-id.t 0000644 0001750 0001750 00000001643 12506561573 017032 0 ustar fs fs use warnings;
use strict;
require 't/LintTest.pl';
checkit( [
[ 'attr-unknown' => qr/Unknown attribute "bongo" for tag / ],
], [] );
=pod
HTML::Lint 2.02 and weblint, Red Hat EL 3
This should result in no warnings:
echo '
does not have ALT text defined' ],
[ 'doc-tag-required' => 'Set #1 (6:1) tag is required' ],
[ 'doc-tag-required' => 'Set #1 (6:1) tag is required' ],
[ 'doc-tag-required' => 'Set #1 (6:1)