#!/usr/bin/perl -w
use strict;
use Test::More tests => 13;
use 5.006;
BEGIN { use_ok('Music::Tag') }
my $tag = Music::Tag->new('t/fake.music',
{autoplugin =>
{music => 'Option', 'nothing' => 'Option'},
artist => "Sarah Slean",
album => "Orphan Music",
title => "Mary",
ANSIColor => 0,
quiet => 1,
locale => "ca"
},
"Auto"
);
ok($tag, 'Object created');
ok($tag->get_tag, 'get_tag called');
cmp_ok($tag->artist, 'eq', 'Sarah Slean', 'artist');
cmp_ok($tag->album, 'eq', 'Orphan Music', 'album');
cmp_ok($tag->albumartist, 'eq', 'Sarah Slean', 'albumartist');
ok($tag->encoded_by('Sarah'), 'Set encoded_by');
cmp_ok($tag->encoded_by, 'eq', 'Sarah', 'Get encoded_by');
$tag->albumtags('Canada,Female,Bible Reference');
cmp_ok($tag->albumtags->[2], 'eq', 'Bible Reference', 'albumtags');
$tag->artisttags(['Canada', 'Female']);
cmp_ok($tag->artisttags->[1], 'eq', 'Female', 'artisttags');
my $tag2 = Music::Tag->new('t/fake.music');
ok($tag2, 'Object defined');
ok($tag2->setfileinfo, 'setfileinfo');
cmp_ok($tag2->bytes, '==', 26, 'byte size');