/Template-Plugin-RPM2/dist/t/test.t

[view plain text]

use Test::More tests => 1;

use Template;

my $t = <<'END';
[% USE pkg = RPM2(file) -%]
Name:     [% pkg.name %]
Version:  [% pkg.version %]
Release:  [% pkg.release %]
Group:    [% pkg.group %]
Packager: [% pkg.packager %]
END

my $out = <<'END';
Name:     perl-AudioFile-Info-MP3-ID3Lib
Version:  1.07
Release:  1.fc11
Group:    Development/Libraries
Packager: Dave Cross <dave@mag-sol.com>
END

my $tt = Template->new;
my $result;
$tt->process(\$t, { file => 't/test.rpm' }, \$result)
  or die $tt->error;
is($result, $out);