]> git.vanrenterghem.biz Git - git.ikiwiki.info.git/blobdiff - t/podcast.t
(no commit message)
[git.ikiwiki.info.git] / t / podcast.t
index a00545b984c76728a7bf608799314a8b0c259e2f..94505a05e2ca70dabcbdd28f4cda14be353fbf9f 100755 (executable)
@@ -3,10 +3,10 @@ use warnings;
 use strict;
 
 BEGIN {
 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 =>
        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};
        }
        else {
                eval q{use Test::More tests => 136};
@@ -37,7 +37,7 @@ sub podcast {
                'simplepost'    => undef,
                'piano.mp3'     => 'audio/mpeg',
                'scroll.3gp'    => 'video/3gpp',
                '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)) {
        );
 
        for my $format (qw(atom rss)) {
@@ -126,7 +126,7 @@ sub single_page_html {
        my $html = "$tmp/out/pianopost/index.html";
        like(_extract_html_content($html, 'content'), qr/has content and/m,
                q{html body text});
        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',
                q{html enclosure});
        my ($href) = _extract_html_links($html, 'piano');
        is($href, '/piano.mp3',
@@ -135,7 +135,7 @@ sub single_page_html {
        $html = "$tmp/out/attempted_multiple_enclosures/index.html";
        like(_extract_html_content($html, 'content'), qr/has content and/m,
                q{html body text});
        $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',
                q{html enclosure});
        ($href) = _extract_html_links($html, 'walter');
        is($href, '/walter.ogg',
@@ -175,7 +175,7 @@ sub inlined_pages_html {
        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($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',
                q{html enclosure});
        my ($href) = _extract_html_links($html, 'piano.mp3');
        is($href, '/piano.mp3',