[libparse-debianchangelog-perl] 06/52: fix some problems in the test scripts (ignore stderr garbage issued by dpkg-parsechangelog in pbuilder environment)

Intrigeri intrigeri at moszumanska.debian.org
Sun May 24 12:37:24 UTC 2015


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

intrigeri pushed a commit to branch master
in repository libparse-debianchangelog-perl.

commit b9a8480d79c47847afb2c39fd21f1a582299911b
Author: Frank Lichtenheld <frank at lichtenheld.de>
Date:   Tue Jul 5 02:10:06 2005 +0000

    fix some problems in the test scripts (ignore stderr garbage
    issued by dpkg-parsechangelog in pbuilder environment)
---
 debian/changelog          | 2 ++
 t/Parse-DebianChangelog.t | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index cbadea5..6a72daf 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -6,6 +6,8 @@ libparse-debianchangelog-perl (0.4-1) unstable; urgency=low
     - install templates and CSS files to
       /usr/share/libparse-debianchangelog-perl/ and adapt the default
       paths in the module
+    - fix some problems in the test scripts (ignore stderr garbage
+      issued by dpkg-parsechangelog in pbuilder environment)
 
  -- Frank Lichtenheld <djpig at debian.org>  Tue,  5 Jul 2005 03:28:10 +0200
 
diff --git a/t/Parse-DebianChangelog.t b/t/Parse-DebianChangelog.t
index dcedbe1..333bcf0 100644
--- a/t/Parse-DebianChangelog.t
+++ b/t/Parse-DebianChangelog.t
@@ -78,7 +78,7 @@ foreach my $file (qw(Changes t/examples/countme t/examples/shadow)) {
 
     my $str = $changes->dpkg_str();
 
-    is( $str, `dpkg-parsechangelog -l$file 2>&1`,
+    is( $str, `dpkg-parsechangelog -l$file`,
 	'Output of dpkg_str equal to output of dpkg-parsechangelog' );
 
     if ($file eq 't/examples/countme') {
@@ -198,7 +198,7 @@ foreach my $file (qw(Changes t/examples/countme t/examples/shadow)) {
     my $oldest_version = $data[-1]->Version;
     $str = $changes->dpkg_str({ since => $oldest_version });
 
-    is( $str, `dpkg-parsechangelog -v$oldest_version -l$file 2>&1`,
+    is( $str, `dpkg-parsechangelog -v$oldest_version -l$file`,
 	'Output of dpkg_str equal to output of dpkg-parsechangelog' )
 	or diag("oldest_version=$oldest_version");
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libparse-debianchangelog-perl.git



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