[libconfig-model-dpkg-perl] 06/11: fixed squash_files.t
dod at debian.org
dod at debian.org
Fri Jul 3 19:20:13 UTC 2015
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 ea85e41ee34bc882cea64957b7c75c526f293ca7
Author: Dominique Dumont <dod at debian.org>
Date: Thu Jul 2 21:24:00 2015 +0200
fixed squash_files.t
Gbp-Dch: Ignore
---
t/scanner/squash_files.t | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/t/scanner/squash_files.t b/t/scanner/squash_files.t
index 5121929..6330d1e 100644
--- a/t/scanner/squash_files.t
+++ b/t/scanner/squash_files.t
@@ -16,7 +16,7 @@ my @tests = (
data-impl:
defgroup.h: 1
",
- { '*' => '1' }
+ { '*' => '1', 'data-impl' => { '.' => 1 } }
],
@@ -37,7 +37,9 @@ pan:
"---
'*': '4'
pan:
+ '.': '4'
data:
+ '.': '4'
cert-store.cc: '5'
cert-store.h: '5'
" ],
@@ -69,9 +71,11 @@ uulib:
pan:
'*': '4'
data:
+ '.': '4'
cert-store.cc: '5'
cert-store.h: '5'
uulib:
+ '.': '0'
crc32.c: '2'
crc32.h: '1'
fptools.c: '1'
@@ -130,7 +134,7 @@ pan:
foreach my $t (@tests) {
my ($label,$in,$expect) = @$t;
my $res = Dpkg::Copyright::Scanner::__squash(Load($in));
- eq_or_diff(Dump($res), ref($expect) ? Dump($expect) : $expect,"__squash $label");
+ eq_or_diff( $res, ref($expect) ? $expect : Load($expect),"__squash $label");
}
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git
More information about the Pkg-perl-cvs-commits
mailing list