[libconfig-model-dpkg-perl] 03/04: test generation of default license text

[dod at debian.org]

This is an automated email from the git hooks/post-receive script.

dod pushed a commit to branch jessie
in repository libconfig-model-dpkg-perl.

commit 20562c87dab48e36d4c04ecd255ad6a0ce65116e
Author: Dominique Dumont <dod at debian.org>
Date:   Fri Oct 31 13:47:46 2014 +0100

    test generation of default license text
---
 t/dpkg.t | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/t/dpkg.t b/t/dpkg.t
index 53dc0bd..454b51b 100644
--- a/t/dpkg.t
+++ b/t/dpkg.t
@@ -1,5 +1,7 @@
 # -*- cperl -*-
 
+use 5.10.0;
+
 use ExtUtils::testlib;
 use Test::More ;
 use Test::Memory::Cycle;
@@ -18,7 +20,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 +99,19 @@ 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");
+
+
+my $lic_text = $root->grab("copyright License:FooBar text");
+is($lic_text->fetch, undef, "test unknown lic text") ;
+
+say "store lic_text" if $trace ;
+$lic_text->store("yada yada");
+
+say "test stored lic_text" if $trace ;
+is($lic_text->fetch, 'yada yada', "test specified lic text") ;
+
+my $lic_gpl = $root->grab("copyright License:GPL-1 text");
+like($lic_gpl->fetch,qr!/usr/share/common-licenses/GPL-1!
+     , "retrieved license text summary") ;
+
 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