use strict;
use File::Spec::Functions;
use FindBin ();
use Test::More tests => 7;
use Audio::Scan;
# Test for is_supported
{
is( Audio::Scan->is_supported( _f('v1.mp3') ), 1, 'is_supported on mp3 file ok' );
is( Audio::Scan->is_supported( _f('foo.dat') ), 0, 'is_supported on non-audio file ok' );
}
# Test for get_types
{
my $types = Audio::Scan->get_types;
is( $types->[0], 'mp4', 'get_types 1 ok' );
is( $types->[1], 'aac', 'get_types 2 ok' );
}
# Test for extensions_for
{
my $exts = Audio::Scan->extensions_for('mp4');
is( $exts->[0], 'mp4', 'extensions_for 1 ok' );
is( $exts->[1], 'm4a', 'extensions_for 2 ok' );
}
# Test for type_for
{
is( Audio::Scan->type_for('wma'), 'asf', 'type_for ok' );
}
sub _f {
return catfile( $FindBin::Bin, 'mp3', shift );
}