"XML::Feed and/or HTML::Parser 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});
+ }
}
}
}
return @hrefs;
}
-simple_podcast();
+podcast('simple');
single_page_html();
inlined_pages_html();
+podcast('fancy');