aboutsummaryrefslogtreecommitdiff
path: root/t/podcast.t
diff options
context:
space:
mode:
authorAmitai Schlair <schmonz-web-ikiwiki@schmonz.com>2013-02-18 19:34:20 -0500
committerAmitai Schlair <schmonz-web-ikiwiki@schmonz.com>2013-02-19 20:22:47 -0500
commita7a68417d0b0dd9499afb593c21cf1b5cda02ab3 (patch)
treef142556bebb1c68860901d5f3eda63077060a706 /t/podcast.t
parentd27c587ec9e7ff179cef42d68a6079282ef1fca9 (diff)
downloadikiwiki-a7a68417d0b0dd9499afb593c21cf1b5cda02ab3.tar
ikiwiki-a7a68417d0b0dd9499afb593c21cf1b5cda02ab3.tar.gz
When inlining HTML pages, render enclosures.
Diffstat (limited to 't/podcast.t')
-rwxr-xr-xt/podcast.t38
1 files changed, 32 insertions, 6 deletions
diff --git a/t/podcast.t b/t/podcast.t
index 3125a7e55..235c2e768 100755
--- a/t/podcast.t
+++ b/t/podcast.t
@@ -9,7 +9,7 @@ BEGIN {
"XML::Feed and/or HTML::Parser not available"};
}
else {
- eval q{use Test::More tests => 81};
+ eval q{use Test::More tests => 89};
}
}
@@ -125,6 +125,36 @@ sub single_page_html {
ok(! system("rm -rf $tmp $statedir"), q{teardown});
}
+sub inlined_pages_html {
+ my @command = (qw(./ikiwiki.out -plugin inline));
+ push @command, qw(-underlaydir=underlays/basewiki);
+ push @command, qw(-set underlaydirbase=underlays -templatedir=templates);
+ push @command, qw(t/tinypodcast), "$tmp/out";
+
+ ok(! system("mkdir $tmp"),
+ q{setup});
+ ok(! system(@command),
+ q{build});
+
+ my $html = "$tmp/out/fancy/index.html";
+ my $contents = _extract_html_content($html, 'content');
+ like($contents, qr/has content and an/m,
+ q{html body text from pianopost});
+ 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,
+ q{html enclosure});
+ my ($href) = _extract_html_links($html, 'piano.mp3');
+ ok(-f $href,
+ q{html enclosure from pianopost exists});
+ ($href) = _extract_html_links($html, 'walter.ogg');
+ ok(-f $href,
+ q{html enclosure from attempted_multiple_enclosures exists});
+
+ ok(! system("rm -rf $tmp $statedir"), q{teardown});
+}
+
sub _extract_html_content {
my ($file, $desired_id, $desired_tag) = @_;
$desired_tag = 'div' unless defined $desired_tag;
@@ -141,11 +171,6 @@ sub _extract_html_content {
my ($dtext) = @_;
$content .= $dtext;
}, "dtext");
-
- $self->handler(end => sub {
- my ($tag, $self) = @_;
- $self->eof if $tag eq $desired_tag;
- }, "tagname,self");
}, "tagname,self,attr");
$p->parse_file($file) || die $!;
@@ -172,3 +197,4 @@ sub _extract_html_links {
simple_podcast();
single_page_html();
+inlined_pages_html();