use strict;
BEGIN {
- eval q{use XML::Feed; use HTML::Parser; use HTML::LinkExtor};
+ eval q{use XML::Feed; use HTML::Parser; use HTML::LinkExtor; use File::MimeInfo};
if ($@) {
eval q{use Test::More skip_all =>
- "XML::Feed and/or HTML::Parser not available"};
+ "XML::Feed and/or HTML::Parser or File::MimeInfo not available"};
}
else {
eval q{use Test::More tests => 136};
'simplepost' => undef,
'piano.mp3' => 'audio/mpeg',
'scroll.3gp' => 'video/3gpp',
- 'walter.ogg' => 'video/x-theora+ogg',
+ 'walter.ogg' => 'audio/ogg',
);
for my $format (qw(atom rss)) {
my $html = "$tmp/out/pianopost/index.html";
like(_extract_html_content($html, 'content'), qr/has content and/m,
q{html body text});
- like(_extract_html_content($html, 'enclosure'), qr/this episode/m,
+ like(_extract_html_content($html, 'enclosure'), qr/Download/m,
q{html enclosure});
my ($href) = _extract_html_links($html, 'piano');
is($href, '/piano.mp3',
$html = "$tmp/out/attempted_multiple_enclosures/index.html";
like(_extract_html_content($html, 'content'), qr/has content and/m,
q{html body text});
- like(_extract_html_content($html, 'enclosure'), qr/this episode/m,
+ like(_extract_html_content($html, 'enclosure'), qr/Download/m,
q{html enclosure});
($href) = _extract_html_links($html, 'walter');
is($href, '/walter.ogg',
like($contents, qr/has content and only one/m,
q{html body text from attempted_multiple_enclosures});
my $enclosures = _extract_html_content($html, 'inlineenclosure');
- like($enclosures, qr/this episode/m,
+ like($enclosures, qr/Download/m,
q{html enclosure});
my ($href) = _extract_html_links($html, 'piano.mp3');
is($href, '/piano.mp3',