# $Id: parse4.t 1122 2004-02-05 11:57:32Z comdog $

use Test::More tests => 4;

use Mac::iTunes;
use Mac::iTunes::Library::Parse;

 $ENV{ITUNES_DEBUG} = 1;

my $File = "mp3/iTunes_4_Music_Library";
my $fh;

ok( open( $fh, $File ), 'Open music library' );

my $itunes;
isa_ok( Mac::iTunes::Library::Parse->parse( $fh ), 'Mac::iTunes' );
isa_ok( $itunes = Mac::iTunes->read( $File ), 'Mac::iTunes' );

is( scalar $itunes->playlists, 7, 'Correct number of playlists' );