[libconfig-model-dpkg-perl] 02/02: test for new corner case fix

[dod at debian.org]

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

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

commit 77cc19bfc2d00b41ce3d64ad811dca20b75a0700
Author: Dominique Dumont <dod at debian.org>
Date:   Sat Sep 21 20:51:19 2013 +0200

    test for new corner case fix
---
 t/dependency-check.t |   19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/t/dependency-check.t b/t/dependency-check.t
index 61109fc..43d0244 100644
--- a/t/dependency-check.t
+++ b/t/dependency-check.t
@@ -7,10 +7,10 @@ BEGIN {
     %Config::Model::Dpkg::Dependency::cache = (
         'libarchive-extract-perl' => 'jessie 0.68-1 sid 0.68-1',
         'perl-modules' => 'lenny 5.10.0-19lenny3 squeeze 5.10.1-17 sid 5.10.1-17 experimental 5.12.0-2 experimental 5.12.2-2',
-        'perl' => 'lenny 5.10.0-19lenny3 squeeze 5.10.1-17 sid 5.10.1-17 experimental 5.12.0-2 experimental 5.12.2-2',
+        'perl' => 'squeeze 5.10.1-17 wheezy 5.14.2-21 jessie 5.18.1-3 sid 5.18.1-4',
         'debhelper' => 'etch 5.0.42 backports/etch 7.0.15~bpo40+2 lenny 7.0.15 backports/lenny 8.0.0~bpo50+2 squeeze 8.0.0 wheezy 8.1.2 sid 8.1.2',
         'libcpan-meta-perl' => 'squeeze 2.101670-1 wheezy 2.110580-1 sid 2.110580-1',
-        'libmodule-build-perl' => 'etch 0.26-1 backports/etch 0.2808.01-2~bpo40+1 lenny 0.2808.01-2 squeeze 0.360700-1 wheezy 0.380000-1 sid 0.380000-1', 
+        'libmodule-build-perl' => 'squeeze 0.360700-1 wheezy 0.380000-1 jessie 0.400700-1 sid 0.400700-1',
         'xserver-xorg-input-evdev' => 'etch 1:1.1.2-6 lenny 1:2.0.8-1 squeeze 1:2.3.2-6 wheezy 1:2.3.2-6 sid 1:2.6.0-2 experimental 1:2.6.0-3',
         'lcdproc' => 'etch 0.4.5-1.1 lenny 0.4.5-1.1 squeeze 0.5.2-3 wheezy 0.5.2-3.1 sid 0.5.2-3.1',
         'libsdl1.2' => '', # only source
@@ -39,7 +39,7 @@ if ( $@ ) {
     plan skip_all => "AptPkg::Config is not installed";
 }
 elsif ( -r '/etc/debian_version' ) {
-    plan tests => 58;
+    plan tests => 60;
 }
 else {
     plan skip_all => "Not a Debian system";
@@ -133,7 +133,7 @@ warning_like {
     $unit->config_root->init ;
 }
  [ qr/is unknown/, qr/unnecessary/, (qr/dual life/) , qr/unnecessary/,
-   ( qr/dual life/) x 2 , (qr/unnecessary/) x 1 ] ,
+   ( qr/dual life/) x 2 , (qr/unnecessary/) x 2 ] ,
   "test BDI warn on unittest instance";
 
 my $c_unit = $unit->config_root ;
@@ -184,11 +184,12 @@ $dep_value->check_versioned_dep( $ok_cb, ['perl','>=','5.6.0'] ) ;
 # exit ;
 my @chain_tests = (
     # tag name for display, test data, expected result: 1 (good dep) or expected fixed structure
-    'libcpan-meta-perl' => [ ['libcpan-meta-perl']]  => [['libcpan-meta-perl'],[qw/perl >= 5.13.10/]],
-    'libmodule-build-perl' => [ [qw/perl >= 5.10/], ['libmodule-build-perl']]  => [['perl'],[]],
+    'libcpan-meta-perl' => [ ['libcpan-meta-perl']]  => [[qw/perl >= 5.13.10/],['libcpan-meta-perl']],
+    'libmodule-build-perl perl 5.10' => [ [qw/perl >= 5.10/], ['libmodule-build-perl']]  => [['perl'],[]],
     # test Debian #719225
-    'libarchive-extract-perl' => [ [qw/libarchive-extract-perl >= 0.68/] , [qw/perl >= 5.17.9/]]  =>  [ ['libarchive-extract-perl'] , [qw/perl >= 5.17.9/]],
-    'libarchive-extract-perl' => [ ['libarchive-extract-perl'] , [qw/perl >= 5.17.9/]]  => 1,
+    'libarchive-extract-perl' => [ [qw/libarchive-extract-perl >= 0.68/] , [qw/perl >= 5.17.9/]]  =>  [ [qw/perl >= 5.17.9/], ['libarchive-extract-perl'] ,],
+    'libarchive-extract-perl' => [ [qw/perl >= 5.17.9/], ['libarchive-extract-perl'] , ]  => 1,
+    'libmodule-build-perl to fix' =>  [ [qw/perl >= 5.11.3/], [qw/libmodule-build-perl >= 0.360000/] ] => [ [qw/perl >= 5.11.3/], ['libmodule-build-perl'] ] ,
 );
 
 while (@chain_tests) {
@@ -216,7 +217,7 @@ warning_like {
     $inst->config_root->init ;
 }
  [ qr/is unknown/, qr/unnecessary/, (qr/dual life/) , qr/unnecessary/,
-   ( qr/dual life/) x 2 , (qr/unnecessary/) x 1 ] ,
+   ( qr/dual life/) x 2 , (qr/unnecessary/) x 2 ] ,
   "test BDI warn";
 
 ok($inst,"Read $control_file and created instance") ;

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