use strict;
use Test::More tests => 3;
use MP3::Info;
use lib qw(./t/lib ./lib);
$iTunesTest::Title = undef; # get around "only used once warning"
require "test_data.pl";
ok( -e $iTunesTest::Test_mp3, 'Test mp3 file exists' );
my $tag = get_mp3tag( $iTunesTest::Test_mp3 );
isa_ok( $tag, 'HASH' );
unless( is( $tag->{TITLE}, $iTunesTest::Title, 'Test mp3 has right title' ) )
{
require Data::Dumper;
print STDERR Data::Dumper::Dumper( $tag );
print "bail out! Test MP3 file is not what I expected!"
}