[libparse-debianchangelog-perl] 41/52: Improve Parse-DebianChangelog.t
Intrigeri
intrigeri at moszumanska.debian.org
Sun May 24 12:37:31 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 348fd9e0069234fe0f7224d5b35360dcdcca6997
Author: Frank Lichtenheld <frank at lichtenheld.de>
Date: Mon Apr 4 17:33:01 2011 +0200
Improve Parse-DebianChangelog.t
- Output version number used
- Give better test output if "no errors" check fails
---
t/Parse-DebianChangelog.t | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/t/Parse-DebianChangelog.t b/t/Parse-DebianChangelog.t
index bc52339..f3b8270 100644
--- a/t/Parse-DebianChangelog.t
+++ b/t/Parse-DebianChangelog.t
@@ -27,6 +27,8 @@ BEGIN {
use_ok('Parse::DebianChangelog::ChangesFilters', ':all' );
};
+diag("Testing Parse::DebianChangelog $Parse::DebianChangelog::VERSION");
+
#########################
my $test = Parse::DebianChangelog->init( { infile => '/nonexistant',
@@ -44,7 +46,7 @@ foreach my $file (qw(Changes t/examples/countme t/examples/shadow)) {
# use Data::Dumper;
# diag(Dumper($changes));
- ok( !$errors, "Parse example changelog $file without errors" );
+ is( $errors, "", "Parse example changelog $file without errors" );
my @data = $changes->data;
--
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