[libconfig-model-dpkg-perl] 02/02: updated dependency tests for Vcs-Browser

dod at debian.org dod at debian.org
Mon Jan 20 18:38:24 UTC 2014


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 2cfc5388a0a7fb26acd43f5d0366349ce0ff5d20
Author: Dominique Dumont <dod at debian.org>
Date:   Mon Jan 20 19:38:15 2014 +0100

    updated dependency tests for Vcs-Browser
---
 t/dependency-check.t | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/t/dependency-check.t b/t/dependency-check.t
index 26a48e7..7afe64c 100644
--- a/t/dependency-check.t
+++ b/t/dependency-check.t
@@ -39,7 +39,7 @@ if ( $@ ) {
     plan skip_all => "AptPkg::Config is not installed";
 }
 elsif ( -r '/etc/debian_version' ) {
-    plan tests => 60;
+    plan tests => 63;
 }
 else {
     plan skip_all => "Not a Debian system";
@@ -333,4 +333,18 @@ is($perl_bdi->fetch,"perl","check fixed B-D-I dependency value");
 print scalar $inst->list_changes,"\n" if $trace ;
 is($inst->c_count, 1,"check that fixes are tracked with notify changes") ;
 
+my $vcsb = $control->grab("source Vcs-Browser") ;
+
+warning_like {
+    $vcsb->store('http://git.debian.org/?p=debian-med/r-cran-stringr.git;a=summary') ;
+}
+    qr/RL to debian system/,"old URL triggerss a warning";
+
+{
+    local $Config::Model::Value::nowarning = 1 ;
+    $vcsb->apply_fixes;
+    ok(1,"apply_fixes on URL done");
+}
+is($vcsb->fetch,'http://anonscm.debian.org/gitweb/?p=debian-med/r-cran-stringr.git;a=summary','fixed URL') ;
+
 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



More information about the Pkg-perl-cvs-commits mailing list