zyppe/parse-rpm-spec
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Changes to support the Moose version.

Browse source
This commit is contained in:
Dave Cross 2009-07-25 20:20:19 +01:00
parent f9cee540f3
commit e405f0ee4e
1 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
t/Parse-RPM-Spec.t
View file

@ -1,14 +1,10 @@
use Test::More tests => 12; use Test::More tests => 10;
BEGIN { use_ok('Parse::RPM::Spec') }; BEGIN { use_ok('Parse::RPM::Spec') };
eval { my $spec = Parse::RPM::Spec->new(\'t/file.spec') }; ok($spec = Parse::RPM::Spec->new( { file => 't/file.spec' } ));
ok($@);
like($@, qr/SCALAR/);
ok($spec = Parse::RPM::Spec->new('t/file.spec'));
isa_ok($spec, 'Parse::RPM::Spec'); isa_ok($spec, 'Parse::RPM::Spec');
ok($spec = Parse::RPM::Spec->new({ file => 't/file.spec' })); ok($spec = Parse::RPM::Spec->new( { file => 't/file.spec' } ));
isa_ok($spec, 'Parse::RPM::Spec'); isa_ok($spec, 'Parse::RPM::Spec');
is($spec->name, 'perl-Array-Compare'); is($spec->name, 'perl-Array-Compare');