Fix failing test

This commit is contained in:
Dave Cross 2023-01-12 18:09:03 +00:00
parent 529c06b04c
commit f7c21bdcba
2 changed files with 18 additions and 18 deletions

View file

@ -35,25 +35,25 @@ has parse_spec => (
sub _build_parse_spec { sub _build_parse_spec {
return { return {
scalars => { scalars => {
name => qr[^Name:\s*(\S+)], name => qr[^Name:\s+(\S+)],
version => qr[^Version:\s*(\S+)], version => qr[^Version:\s+(\S+)],
epoch => qr[^Epoch:\s*(\S+)], epoch => qr[^Epoch:\s+(\S+)],
release => qr[^Release:\s*(\S+)], release => qr[^Release:\s+(\S+)],
summary => qr[^Summary:\s*(.+)], summary => qr[^Summary:\s+(.+)],
license => qr[^License:\s*(.+)], license => qr[^License:\s+(.+)],
group => qr[^Group:\s*(\S+)], group => qr[^Group:\s+(\S+)],
url => qr[^URL:\s*(\S+)], url => qr[^URL:\s+(\S+)],
buildroot => qr[^BuildRoot:\s*(\S+)], buildroot => qr[^BuildRoot:\s+(\S+)],
buildarch => qr[^BuildArch:\s*(\S+)], buildarch => qr[^BuildArch:\s+(\S+)],
excludearch => qr[^ExcludeArch:\s*(\S+)], excludearch => qr[^ExcludeArch:\s+(\S+)],
exclusivearch => qr[^ExclusiveArch:\s*(\S+)], exclusivearch => qr[^ExclusiveArch:\s+(\S+)],
excludeos => qr[^ExcludeOS:\s*(\S+)], excludeos => qr[^ExcludeOS:\s+(\S+)],
exclusiveos => qr[^ExclusiveOS:\s*(\S+)], exclusiveos => qr[^ExclusiveOS:\s+(\S+)],
}, },
arrays => { arrays => {
source => qr[^Source\d*:\s*(\S+)], source => qr[^Source\d*:\s+(\S+)],
buildrequires => qr[^BuildRequires:\s*(.+)], buildrequires => qr[^BuildRequires:\s+(.+)],
requires => qr[^Requires:\s*(.+)], requires => qr[^Requires:\s+(.+)],
}, },
}; };
} }

View file

@ -4,7 +4,7 @@ use warnings;
use Test::More; use Test::More;
use Test::Exception; use Test::Exception;
BEGIN { use_ok('Parse::RPM::Spec') }; use Parse::RPM::Spec;
my $spec = Parse::RPM::Spec->new( { file => 't/perl-License-Syntax.spec' } ); my $spec = Parse::RPM::Spec->new( { file => 't/perl-License-Syntax.spec' } );