[libconfig-model-dpkg-perl] 03/05: added test for Testsuite generation

[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 94284eee306c7b6bb9350a539c6d36cbeaf16d88
Author: Dominique Dumont <dod at debian.org>
Date:   Wed Oct 29 19:06:03 2014 +0100

    added test for Testsuite generation
---
 t/dpkg.t | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/t/dpkg.t b/t/dpkg.t
index 53dc0bd..2b69e63 100644
--- a/t/dpkg.t
+++ b/t/dpkg.t
@@ -18,7 +18,7 @@ if ( $@ ) {
     plan skip_all => "AptPkg::Config is not installed";
 }
 elsif ( -r '/etc/debian_version' ) {
-    plan tests => 15;
+    plan tests => 18;
 }
 else {
     plan skip_all => "Not a Debian system";
@@ -97,4 +97,13 @@ foreach my $t (@test) {
 $root->load('control source Maintainer="foo <foo at bar>" ! my_config dependency-filter=lenny') ;
 is($root->grab_value("my_config package-dependency-filter:foopkg"),
     'lenny', "check package-dependency-filter");
+
+is($root->grab_value("control source Testsuite"), undef,'check Testsuite default output');
+
+$root->load('control source Maintainer="Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>"');
+is($root->grab_value("control source Testsuite"), 'autopkgtest-pkg-perl','check Testsuite pkg-perl output');
+
+$root->load('control source Maintainer="Debian Ruby Extras Maintainers <pkg-ruby-extras-maintainers at lists.alioth.debian.org>"');
+is($root->grab_value("control source Testsuite"), 'autopkgtest-pkg-ruby','check Testsuite pkg-ruby output');
+
 memory_cycle_ok($model);

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