# $Id: track_info.t 1484 2004-09-18 16:39:17Z comdog $
use strict;

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

use Test::More;
use Mac::iTunes;

eval "use Mac::iTunes::AppleScript qw(:boolean :state :size)";

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

require "test_data.pl";

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

$controller->set_playlist( $iTunesTest::Test_playlist );
my $name = $controller->get_track_at_position( 1 );

is( $name, $iTunesTest::Track_name, "Track name at position 1" );

$controller->play_track(1, $iTunesTest::Test_playlist);
is( $controller->current_track_name, $iTunesTest::Track_name, 
	'Fetch the current track name while playing' );

$controller->stop;
is( $controller->current_track_name, $iTunesTest::Track_name, 
	'Fetch the current track name while stopped' );