[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