1# Before "make install", this script should be runnable with "make test". 2# After "make install" it should work as "perl t/MP3.t". 3 4BEGIN { 5 $| = 1; print "1..2\n"; $Image::ExifTool::configFile = ''; 6 require './t/TestLib.pm'; t::TestLib->import(); 7} 8END {print "not ok 1\n" unless $loaded;} 9 10# test 1: Load the module(s) 11use Image::ExifTool 'ImageInfo'; 12use Image::ExifTool::ID3; 13use Image::ExifTool::MPEG; 14$loaded = 1; 15print "ok 1\n"; 16 17my $testname = 'MP3'; 18my $testnum = 1; 19 20# test 2: Extract information from test image 21{ 22 ++$testnum; 23 my $exifTool = new Image::ExifTool; 24 my $info = $exifTool->ImageInfo('t/images/MP3.mp3'); 25 print 'not ' unless check($exifTool, $info, $testname, $testnum); 26 print "ok $testnum\n"; 27} 28 29 30# end 31