Unicodeが好きですか?
HTML-Tidy-1.56/t/wordwrap.t 0000644 0000764 0000764 00000001126 12217654662 014110 0 ustar andy andy #!perl -T use warnings; use strict; use Test::More tests => 1; use HTML::Tidy; my $input=q{Here's some ed andThis is my paragraph
HTML-Tidy-1.56/t/perfect.t 0000644 0000764 0000764 00000006477 12217665351 013706 0 ustar andy andy #!perl -T use warnings; use strict; use Test::More tests => 3; use HTML::Tidy; my $html = join '', ; # No errors at all. my $tidy = HTML::Tidy->new; isa_ok( $tidy, 'HTML::Tidy' ); $tidy->ignore( type => TIDY_INFO ); my $rc = $tidy->parse( '-', $html ); ok( $rc, 'Parsed OK' ); my @returned = map { $_->as_string } $tidy->messages; is_deeply( \@returned, [], 'Should have no messages' ); # User reported a segfault when there are no messages. By gum, he was # right. __DATA__more blah
HTML-Tidy-1.56/t/extra-quote.t 0000644 0000764 0000764 00000001714 12217661216 014515 0 ustar andy andy #!perl -T use warnings; use strict; # Response to an HTML::Lint request that it handle mishandled quotes. # See https://rt.cpan.org/Ticket/Display.html?id=1459 use Test::More tests => 4; use HTML::Tidy; my $html = do { local $/ = undef; }; my $tidy = HTML::Tidy->new; isa_ok( $tidy, 'HTML::Tidy' ); $tidy->ignore( text => qr/DOCTYPE/ ); my $rc = $tidy->parse( '-', $html ); ok( $rc, 'Parsed OK' ); my @expected = split /\n/, q{ - (4:1) Warning:Here's some ed and
eakfest MarkUp: ...
EOD my @expected = split(/\n/, $expected); my $result = $tidy->clean( $input ); my @result = split(/\r/, $result); is_deeply( \@result, \@expected, 'Cleaned stuff looks like what we expected'); HTML-Tidy-1.56/t/ignore.t 0000644 0000764 0000764 00000010665 12217666427 013540 0 ustar andy andy #!perl -T use strict; use warnings; use Test::More tests => 9; use HTML::Tidy; my $html = do { local $/ = undef; }; my @expected_warnings = split /\n/, q{ - (1:1) Warning: missing declaration - (23:1) Warning: discarding unexpected
Unicodeが好きですか?
HTML-Tidy-1.56/t/cfg-for-parse.t 0000644 0000764 0000764 00000001405 12217661211 014662 0 ustar andy andy #!perl -T use warnings; use strict; use Test::More tests => 3; use HTML::Tidy; my $html = do { local $/; }; my @expected_messages = split /\n/, q{ DATA (3:1) Error: