[libconfig-model-dpkg-perl] 01/02: Accept autopkgtest-pkg-octave as a valid value for the Testsuite field.

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository libconfig-model-dpkg-perl.

commit c3f662c17b603330283362ef6f7382b19eade375
Author: gregor herrmann <gregoa at debian.org>
Date:   Sat Sep 23 14:03:31 2017 +0200

    Accept autopkgtest-pkg-octave as a valid value for the Testsuite field.
    
    Thanks: Sébastien Villemot for the bug report.
    Closes: #876534
---
 lib/Config/Model/models/Dpkg/Control/Source.pl | 2 +-
 t/dpkg.t                                       | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/Config/Model/models/Dpkg/Control/Source.pl b/lib/Config/Model/models/Dpkg/Control/Source.pl
index 4bdc3d3..3cc90aa 100644
--- a/lib/Config/Model/models/Dpkg/Control/Source.pl
+++ b/lib/Config/Model/models/Dpkg/Control/Source.pl
@@ -146,7 +146,7 @@ $_ = $str ? \'autopkgtest-pkg-\'.$str : undef;',
           }
         },
         'warn_unless_match' => {
-          '^autopkgtest(-pkg-(dkms|elpa|go|nodejs|perl|python|r|ruby))?$' => {
+          '^autopkgtest(-pkg-(dkms|elpa|go|nodejs|octave|perl|python|r|ruby))?$' => {
             'fix' => 'my $m = $self->grab_value(\'- Maintainer\');
 my ($str) = ($m =~ /pkg-(perl|ruby|go)/);
 $_ = $str ? \'autopkgtest-pkg-\'.$str : undef;',
diff --git a/t/dpkg.t b/t/dpkg.t
index ff0ec99..bd661e0 100644
--- a/t/dpkg.t
+++ b/t/dpkg.t
@@ -20,7 +20,7 @@ if ( $@ ) {
     plan skip_all => "AptPkg::Config is not installed";
 }
 elsif ( -r '/etc/debian_version' ) {
-    plan tests => 38;
+    plan tests => 39;
 }
 else {
     plan skip_all => "Not a Debian system";
@@ -105,7 +105,7 @@ warning_is {
 } undef, 'check that undefined Testsuite does not warn for random maintainer ';
 
 my $ts = $root->grab("control source Testsuite");
-foreach my $target (qw(elpa nodejs pif paf go dkms pouf perl python r ruby)) {
+foreach my $target (qw(elpa nodejs octave pif paf go dkms pouf perl python r ruby)) {
     if ($target =~ /^p\w+f$/) {
         warning_like {
             $ts->store("autopkgtest-pkg-$target");

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git