#!/usr/bin/perl
use lib qw(blib/lib blib/arch);
use Audio::Scan;
use Time::HiRes qw(sleep);
my $file = shift;
$ENV{AUDIO_SCAN_NO_ARTWORK} = 1;
for ( 1..50000 ) {
my $s = Audio::Scan->scan($file);
# Also test in no artwork mode
#{
# local $ENV{AUDIO_SCAN_NO_ARTWORK} = 1;
# $s = Audio::Scan->scan($file);
#}
# Test find_frame doesn't leak
if ( $file =~ /\.m4a$/ ) {
Audio::Scan->find_frame_return_info( $file, 10 );
}
else {
Audio::Scan->find_frame( $file, 10 );
}
sleep 0.001;
}