The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl -w
use strict;
use Test::More; 
use utf8;
eval "use Text::Unaccent::PurePerl";
if ($@) {
	plan skip_all => "Text::Unaccent::PurePerl required for testing accent changes";
}
else	{
	plan tests => 1;
}

use Music::Tag;


my $tag = Music::Tag->new('t/fake.music',
                          { 'Unaccent' => 1 },
                          "Generic"
                         );

ok ( $tag->plugin('Generic')->simple_compare('Björk', 'Bjork'), 'Accent compare');