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 => 92};
+ eval q{use Test::More tests => 136};
}
}
use Cwd;
+use File::Basename;
my $tmp = 't/tmp';
my $statedir = 't/tinypodcast/.ikiwiki';
-sub simple_podcast {
+sub podcast {
+ my $podcast_style = shift;
+
my $baseurl = 'http://example.com';
my @command = (qw(./ikiwiki.out -plugin inline -rss -atom));
push @command, qw(-underlaydir=underlays/basewiki);
);
for my $format (qw(atom rss)) {
- my $feed = XML::Feed->parse("$tmp/out/simple/index.$format");
+ my $feed = XML::Feed->parse("$tmp/out/$podcast_style/index.$format");
- is($feed->title, 'simple',
+ is($feed->title, $podcast_style,
qq{$format feed title});
- is($feed->link, "$baseurl/simple/",
+ is($feed->link, "$baseurl/$podcast_style/",
qq{$format feed link});
is($feed->description, 'wiki',
qq{$format feed description});
qq{$format $title enclosure length});
}
else {
- is($url, "$baseurl/$title/",
+ # XXX hack hack hack
+ my $expected_id = "$baseurl/$title/";
+ $expected_id =~ s/\ /_/g;
+
+ is($url, $expected_id,
qq{$format $title id});
isnt($body, undef,
qq{$format $title body text});
- is($enclosure, undef,
- qq{$format $title no enclosure});
+
+ if ('fancy' eq $podcast_style) {
+ isnt($enclosure, undef,
+ qq{$format $title enclosure});
+ my $filename = basename($enclosure->url);
+ is($enclosure->type, $media_types{$filename},
+ qq{$format $title enclosure type});
+ cmp_ok($enclosure->length, '>', 0,
+ qq{$format $title enclosure length});
+ }
+ else {
+ is($enclosure, undef,
+ qq{$format $title no enclosure});
+ }
}
}
}
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',
return @hrefs;
}
-simple_podcast();
+podcast('simple');
single_page_html();
inlined_pages_html();
+podcast('fancy');