36 lines
1.2 KiB
Perl
36 lines
1.2 KiB
Perl
use strict;
|
|
use warnings;
|
|
|
|
use Test::More;
|
|
use Test::Exception;
|
|
|
|
BEGIN { use_ok('Parse::RPM::Spec') };
|
|
|
|
ok(my $spec = Parse::RPM::Spec->new( { file => 't/file.spec' } ),
|
|
'Got an object');
|
|
isa_ok($spec, 'Parse::RPM::Spec');
|
|
|
|
is($spec->name, 'perl-Array-Compare', 'Correct name');
|
|
is($spec->summary, 'Perl extension for comparing arrays', 'Correct summary');
|
|
is($spec->url, 'http://search.cpan.org/dist/Array-Compare/', 'Correct URL');
|
|
is($spec->epoch, 1, 'Correct epoch');
|
|
|
|
is($spec->version, '1.16', 'Correct version');
|
|
$spec->version('1.17');
|
|
is($spec->version, '1.17', 'Changed version correctly');
|
|
is($spec->buildarch, 'noarch', 'Correct build architecture');
|
|
is(@{$spec->buildrequires}, 2, 'Correct number of build requirements');
|
|
is($spec->buildrequires->[0], 'perl >= 1:5.6.0',
|
|
'First build requirement is correct');
|
|
|
|
is($spec->exclusivearch, 'megaCPU', 'Correct exclusive architecture');
|
|
is($spec->excludearch, 'crapCPU', 'Correct excluded architecture');
|
|
|
|
dies_ok { Parse::RPM::Spec->new }
|
|
'No spec file given';
|
|
dies_ok { Parse::RPM::Spec->new( file => 'not-there') }
|
|
'Missing spec file given';
|
|
dies_ok { Parse::RPM::Spec->new( file => 'empty.spec') }
|
|
'Empty spec file given';
|
|
|
|
done_testing;
|