# $Id: setup_itunes.t 1119 2004-02-03 22:27:11Z comdog $
use strict;

BEGIN { $^W = 0 };

use Test::More;

use Mac::iTunes;

eval "use Mac::iTunes::AppleScript";

if( $@ )
	{
	plan skip_all => "Skipping tests: Need Mac::iTunes::Applescript"
	}
else
	{
	plan tests => 3;
	}

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

require "test_data.pl";

my $controller = Mac::iTunes->new()->controller;
isa_ok( $controller, 'Mac::iTunes::AppleScript' );

# delete everything there so we start fresh
$controller->delete_playlist( $iTunesTest::Test_playlist );

my $result = not $controller->playlist_exists( $iTunesTest::Test_playlist );
ok( $result, 'Playlist was deleted' );

# now add the playlist.  it should now be the only playlist
# with that name.
$controller->add_playlist( $iTunesTest::Test_playlist );
$result = $controller->playlist_exists( $iTunesTest::Test_playlist );
ok( $result, 'Playlist exists' );

# add a track to the playlist.  it will be the only track in
# the playlist.
print "bail out! could not add track to iTunes!\n" unless
	$controller->add_track( $iTunesTest::Test_mp3,
		$iTunesTest::Test_playlist );