[SCM] Debian native package for Config::Model::Dpkg branch, master, updated. debian/2.033-16-g8e18722

[Dominique Dumont]

The following commit has been merged in the master branch:
commit 007186ae76038c90258618ceb2bd5c1345e6acf5
Author: Dominique Dumont <dod at debian.org>
Date:   Sun Mar 24 19:22:33 2013 +0100

    tests: fixed the warnings

diff --git a/t/debian-dependency-check.t b/t/debian-dependency-check.t
index 446220d..8541470 100644
--- a/t/debian-dependency-check.t
+++ b/t/debian-dependency-check.t
@@ -37,7 +37,7 @@ if ( $@ ) {
     plan skip_all => "AptPkg::Config is not installed";
 }
 elsif ( -r '/etc/debian_version' ) {
-    plan tests => 43;
+    plan tests => 47;
 }
 else {
     plan skip_all => "Not a Debian system";
@@ -127,15 +127,30 @@ my $unit = $model->instance (
     instance_name   => "unittest",
 );
 
+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 ] ,
+  "test BDI warn on unittest instance";
 
 my $c_unit = $unit->config_root ;
 my $dep_value = $c_unit->grab("binary:dummy Depends:0");
-$dep_value->store('perl') ;
+warning_like {
+    $dep_value->store('perl') ;
+}
+ [ qr/better written/ ] ,
+  "test warn on perl dep";
 is($dep_value->_pending_store, 0,"check that no pending store is left") ;
 
 is($dep_value->fetch, 'perl', "check stored dependency value") ;
 
-$dep_value->store('perl (  >= 5.6.0)') ;
+warning_like {
+    $dep_value->store('perl (  >= 5.6.0)') ;
+}
+ [ qr/unnecessary/ ] ,
+  "test warn on perl dep with old version";
+
 is($dep_value->_pending_store, 0,"check that no pending store is left") ;
 
 my $ok_cb = sub {is($_[0],0,"check perl (>= 5.6.0) dependency: no older version"); };
@@ -162,12 +177,12 @@ my $inst = $model->instance (
     instance_name   => "deptest",
 );
 
-#warning_like { 
+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 ] ,
-  # "test BDI warn";
+}
+ [ qr/is unknown/, qr/unnecessary/, (qr/dual life/) , qr/unnecessary/,
+   ( qr/dual life/) x 2 , (qr/unnecessary/) x 1 ] ,
+  "test BDI warn";
 
 ok($inst,"Read $control_file and created instance") ;
 

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