[libconfig-model-dpkg-perl] 04/05: added test for Scanner::__squash

[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 86ceecc63a8d69de11f1b0d3d8c6ce7d87a9a76f
Author: Dominique Dumont <dod at debian.org>
Date:   Wed Jan 14 21:04:46 2015 +0100

    added test for Scanner::__squash
---
 t/scanner/squash_files.t | 137 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 137 insertions(+)

diff --git a/t/scanner/squash_files.t b/t/scanner/squash_files.t
new file mode 100644
index 0000000..5121929
--- /dev/null
+++ b/t/scanner/squash_files.t
@@ -0,0 +1,137 @@
+# -*- cperl -*-
+use strict;
+use warnings;
+use 5.010;
+
+use Test::More;                 # see done_testing()
+use Test::Differences;
+use YAML::Tiny;
+
+require_ok( 'Dpkg::Copyright::Scanner' );
+
+my @tests = (
+    [
+        'dir with one file',
+        "---
+data-impl:
+  defgroup.h: 1
+",
+        { '*' => '1' }
+
+    ],
+
+    [
+        'dir with several files',
+        "---
+pan:
+  data:
+    article-cache.cc: 4
+    article-cache.h: 4
+    article.cc: 4
+    article.h: 4
+    cert-store.cc: 5
+    cert-store.h: 5
+    data.cc: 4
+    data.h: 4
+",
+        "---
+'*': '4'
+pan:
+  data:
+    cert-store.cc: '5'
+    cert-store.h: '5'
+"    ],
+    [
+        'dir with subdirs',
+        "---
+pan:
+  data:
+    article-cache.cc: 4
+    article-cache.h: 4
+    article.cc: 4
+    article.h: 4
+    cert-store.cc: 5
+    cert-store.h: 5
+    data.cc: 4
+    data.h: 4
+uulib:
+  crc32.c: 2
+  crc32.h: 1
+  fptools.c: 1
+  fptools.h: 1
+  uucheck.c: 0
+  uudeview.h: 0
+  uuencode.c: 0
+  uuint.h: 0
+",
+        "---
+'*': '0'
+pan:
+  '*': '4'
+  data:
+    cert-store.cc: '5'
+    cert-store.h: '5'
+uulib:
+  crc32.c: '2'
+  crc32.h: '1'
+  fptools.c: '1'
+  fptools.h: '1'
+"    ],
+);
+
+=head 1
+        "
+---
+'*': 0
+pan:
+  '*': 4
+  data:
+    cert-store.cc: 5
+    cert-store.h: 5
+    defgroup.h: 1
+    parts.cc: 3
+    parts.h: 3
+  data-impl:
+    defgroup.h: 1
+  general:
+    debug.cc: 1
+    defgroup.h: 1
+    e-util.cc: 8
+    e-util.h: 8
+  gui:
+    action-manager.h: 1
+    defgroup.h: 1
+    e-action-combo-box.c: 18
+    e-action-combo-box.h: 18
+    e-charset-combo-box.c: 17
+    e-charset-combo-box.h: 17
+  icons:
+    '*': 4
+",
+        [
+            [ 0,'*'                                                             ],
+            [ 4,'pan/*'                                                         ],
+            [ 5,'pan/data/cert-store.cc','pan/data/cert-store.h'                ],
+            [ 1,'pan/data/defgroup.h'                                           ],
+            [ 3,'pan/data/parts.cc','pan/data/parts.h'                          ],
+            [ 1,'pan/data-impl/defgroup.h'                                      ],
+            [ 1,'pan/general/debug.cc','pan/general/defgroup.h'                 ],
+            [ 8,'pan/general/e-util.cc','pan/general/e-util.h'                  ],
+            [ 1,'pan/gui/action-manager.h','pan/gui/defgroup.h'                 ],
+            [ 18,'pan/gui/e-action-combo-box.c','pan/gui/e-action-combo-box.h'  ],
+            [ 17,'pan/gui/e-charset-combo-box.c','pan/gui/e-charset-combo-box.h'],
+            [ 4,'pan/icons/*'                                                   ],
+        ]
+    ],
+
+=cut
+
+
+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");
+}
+
+
+done_testing();

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