# $Id: item.t 1119 2004-02-03 22:27:11Z comdog $

BEGIN { $^W = 0; }

use Test::More tests => 7;

use Mac::iTunes::Item;

use lib  qw(./t/lib ./lib);

require "test_data.pl";

my $item;

# can we create an item?
isa_ok( $item = Mac::iTunes::Item->new_from_mp3( $iTunesTest::Test_mp3 ), 
	'Mac::iTunes::Item' );
is( $iTunesTest::Title,      $item->title,   'Item title' );
is( $iTunesTest::Genre,      $item->genre,   'Item genre' );
is( $iTunesTest::Artist,     $item->artist,  'Item artist' );
is( $iTunesTest::Time,       $item->seconds, 'Item seconds' );
is( $iTunesTest::Test_mp3,   $item->file,    'Item file' );

# can we not create an item?
is( Mac::iTunes::Item->new_from_mp3( 'foo.mp' ), undef,
	'Do not make item from missing file' );