Changeset 1593
- Timestamp:
- 08/24/06 21:25:18
- Files:
-
- trunk/plagger/lib/Plagger/Util.pm (modified) (1 diff)
- trunk/plagger/t/regression/mime-type-dup.t (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/plagger/lib/Plagger/Util.pm
r1389 r1593 133 133 our $mimetypes = MIME::Types->new; 134 134 $mimetypes->addType( MIME::Type->new(type => 'video/x-flv', extensions => [ 'flv' ]) ); 135 $mimetypes->addType( MIME::Type->new(type => 'audio/aac', extensions => [ 'm4a', '.aac' ]) ); 135 $mimetypes->addType( MIME::Type->new(type => 'audio/aac', extensions => [ 'm4a', 'aac' ]) ); 136 $mimetypes->addType( MIME::Type->new(type => 'video/mp4', extensions => [ 'mp4', 'm4v' ]) ); 136 137 137 138 sub mime_type_of { trunk/plagger/t/regression/mime-type-dup.t
r846 r1593 1 1 use strict; 2 use Test::More tests => 3;2 use Test::More tests => 5; 3 3 4 4 use Plagger::Util; … … 9 9 is Plagger::Util::mime_type_of("flv"), "video/x-flv"; 10 10 is Plagger::Util::mime_type_of("m4a"), "audio/aac"; 11 is Plagger::Util::mime_type_of("foo.mp4"), "video/mp4"; 12 is Plagger::Util::mime_type_of("bar.m4v"), "video/mp4"; 11 13 12 14 is $warning, undef;
