[SCM] Debian native package for Config::Model::Dpkg branch, master, updated. debian/2.036-17-gdc3acc3

[Dominique Dumont]

The following commit has been merged in the master branch:
commit c2dc87eefced81ff393fbf5c1e4b877ffa22eec3
Author: Dominique Dumont <dod at debian.org>
Date:   Mon May 20 16:05:54 2013 +0200

    added parameters to run select the subtest to run

diff --git a/t/dependency-grammar.t b/t/dependency-grammar.t
index 154c753..53c5d7f 100644
--- a/t/dependency-grammar.t
+++ b/t/dependency-grammar.t
@@ -36,10 +36,10 @@ my $parser = Config::Model::Dpkg::Dependency::dep_parser ;
 exit main( @ARGV );
 
 sub main {
-    my @args  = @_;
+    my ($do, $pattern)  = @_;
 
-    test_good();
-    test_errors();
+    test_good($pattern) if not $do or $do eq 'g';
+    test_errors($pattern) if not $do or $do eq 'e';
 
     done_testing;
     return 0;
@@ -48,6 +48,7 @@ sub main {
 
 sub test_good {
     # dep, data struct
+    my $pat = shift;
     my @tests = (
         [ 'foo' ,  ['foo']  ],
         [ 'foo | bar ' , ['foo' ], ['bar'] ],
@@ -66,6 +67,7 @@ sub test_good {
 
     foreach my $td ( @tests ) {
         my ($dep, at exp) = @$td ;
+        next if $pat and $dep !~ /$pat/;
         unshift @exp, 1; # match what's returned when there's no errors
         my $ret = $parser->dependency($dep) ;
         eq_or_diff ($ret, \@exp,"parsed $dep");
@@ -73,6 +75,7 @@ sub test_good {
 }
 
 sub test_errors {
+    my $pat = shift;
     my @tests = (
         [ 'foo@' , q!bad package name: '%%'! ],
         [ 'foo ( >= 3.24' , q!Cannot parse: '%%'! ],
@@ -89,6 +92,7 @@ sub test_errors {
 
     foreach my $td ( @tests ) {
         my ($dep, at errs) = @$td ;
+        next if $pat and $dep !~ /$pat/;
         my $ret = $parser->dependency($dep) ;
         map { s/%%/$dep/;} @errs ;
         unshift @errs, 0; # match what's returned when there's an error

-- 
Debian native package for Config::Model::Dpkg