Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: bbf6d127a6
Fetching contributors…

Cannot retrieve contributors at this time

executable file 29 lines (24 sloc) 0.534 kb
use Test::More tests => 2;
use Template;
my $t = <<END;
[%- USE song = AudioFile.Info(file) -%]
Title: [% song.title %]
Artist: [% song.artist %]
Album: [% song.album %] (track [% song.track | format '%1d' %])
Year: [% song.year %]
Genre: [% song.genre %]
END
my $out = <<END;
Title: test
Artist: davorg
Album: none (track 0)
Year: 2003
Genre: nonsense
END
my $tt = Template->new;
foreach (qw/mp3 ogg/) {
my $result;
$tt->process(\$t, { file => "t/test.$_" }, \$result)
or die $tt->error;
is($result, $out);
}
Jump to Line
Something went wrong with that request. Please try again.