[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 ed383eebcbaa716353fa08d53c0e13e8859d6351
Author: Dominique Dumont <dod at debian.org>
Date:   Mon May 20 16:07:13 2013 +0200

    added test for struct_to_dep

diff --git a/t/debian-dependency-check.t b/t/debian-dependency-check.t
index 8541470..b44373e 100644
--- a/t/debian-dependency-check.t
+++ b/t/debian-dependency-check.t
@@ -136,6 +136,27 @@ warning_like {
 
 my $c_unit = $unit->config_root ;
 my $dep_value = $c_unit->grab("binary:dummy Depends:0");
+
+my @struct_2_dep = (
+    [['foo']] => 'foo',
+    [['foo'],['bar']] => 'foo | bar',
+    [[ 'foo', '>=' , '2.15']] => 'foo (>= 2.15)',
+    [[ 'foo', '>=' , '2.15', 'linux-i386', 'hurd']] => 'foo (>= 2.15) [linux-i386 hurd]',
+    [[ 'foo', undef , undef, 'linux-i386', 'hurd']] => 'foo [linux-i386 hurd]',
+    [[ 'udev', undef , undef, 'linux-any'],[ 'makedev', undef , undef, 'linux-any']] => 'udev [linux-any] | makedev [linux-any]',
+);
+
+while (@struct_2_dep) {
+    my $data = shift @struct_2_dep ;
+    my $str = shift @struct_2_dep ;
+    is(
+        $dep_value->struct_to_dep(@$data),
+        $str,
+        "test struct_to_dep -> $str"
+    ) ;
+}
+
+
 warning_like {
     $dep_value->store('perl') ;
 }

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