[libconfig-model-dpkg-perl] 14/23: rename variable in test file

[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 bec09e114cfcc3a195a8f2c7b4ce153e9150c299
Author: Dominique Dumont <dod at debian.org>
Date:   Tue Jan 31 19:01:28 2017 +0100

    rename variable in test file
---
 t/model_tests.d/dpkg-test-conf.pl | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/t/model_tests.d/dpkg-test-conf.pl b/t/model_tests.d/dpkg-test-conf.pl
index 0a00976..afd1d9c 100644
--- a/t/model_tests.d/dpkg-test-conf.pl
+++ b/t/model_tests.d/dpkg-test-conf.pl
@@ -9,7 +9,7 @@ $model_to_test  = "Dpkg";
 eval { require AptPkg::Config; };
 $skip = ( $@ or not -r '/etc/debian_version' ) ? 1 : 0;
 
-my $del_home = sub { 
+my $add_home = sub {
     my $r = shift ;
     my $home = File::HomeDir->my_home; # Works also on Windows
     push @$r, "$home/.dpkg-meta.yml" ;
@@ -19,7 +19,7 @@ my $del_home = sub {
     {   name => 't0',
         check =>
           { 'control source Build-Depends-Indep:3', 'libtest-pod-perl', },
-        file_check_sub => $del_home,
+        file_check_sub => $add_home,
         apply_fix => 1 ,
     },
     {   name => 't1',
@@ -38,7 +38,7 @@ my $del_home = sub {
             'compat' => 8 , # test setup
             'control source Build-Depends:0' => 'debhelper (>= 8)' ,
         },
-        file_check_sub => $del_home,
+        file_check_sub => $add_home,
         # dump_warnings => [ (qr/deprecated/) x 3 ],
     },
 
@@ -49,7 +49,7 @@ my $del_home = sub {
             'control source Build-Depends-Indep:0', => 'perl',
             'control source Build-Depends-Indep:1', => 'libdist-zilla-perl',
         },
-        file_check_sub => $del_home,
+        file_check_sub => $add_home,
     },
     {
         name => 'pan-copyright-from-scratch',
@@ -69,7 +69,7 @@ my $del_home = sub {
             "copyright License:GPL-2 text" => {value => undef, mode => 'custom'},
             "copyright License:GPL-2 text" => qr/GNU/,
         },
-        file_check_sub => $del_home,
+        file_check_sub => $add_home,
     },
     {
         # should that be pan-copyright-upgrate ? :-p
@@ -95,7 +95,7 @@ my $del_home = sub {
             "copyright License:GPL-2 text" => {value => undef, mode => 'custom'},
             "copyright License:GPL-2 text" => qr/GNU/,
         },
-        file_check_sub => $del_home,
+        file_check_sub => $add_home,
     },
     {
         # emulate removed and added file, updated copyright years
@@ -125,7 +125,7 @@ my $del_home = sub {
             "copyright License:GPL-2 text" => {value => undef, mode => 'custom'},
             "copyright License:GPL-2 text" => qr/GNU/,
         },
-        file_check_sub => $del_home,
+        file_check_sub => $add_home,
     },
 
     {
@@ -137,7 +137,7 @@ my $del_home = sub {
                 qr!Files: src/im_mad/remotes/az.d/\*!
             ]
         },
-        file_check_sub => $del_home,
+        file_check_sub => $add_home,
         file_contents_unlike => {
             'debian/copyright' => [
                 qr!Files: src/im_mad/\*!,
@@ -158,7 +158,7 @@ my $del_home = sub {
                 qr!Files: src/im_mad/remotes/az.d/\*!
             ]
         },
-        file_check_sub => $del_home,
+        file_check_sub => $add_home,
         # check that some entries were fixed by update
         check => {
             'copyright Files:"share/vendor/*" Copyright' => '2010-2012, VMware, Inc.',
@@ -182,7 +182,7 @@ my $del_home = sub {
             'copyright Files:"modules/Perl6-MIME-Base64/*" Copyright' => 'Adrian White',
             'copyright Files:"modules/DBIish/*" Comment' => qr/should be preserved by cme update/,
         },
-        file_check_sub => $del_home,
+        file_check_sub => $add_home,
     },
 
 );

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