r53342 - in /branches/upstream/libsvn-look-perl/current: Changes META.yml README lib/SVN/Look.pm t/01-commands.t
angelabad-guest at users.alioth.debian.org
angelabad-guest at users.alioth.debian.org
Thu Feb 25 21:14:57 UTC 2010
Author: angelabad-guest
Date: Thu Feb 25 21:14:10 2010
New Revision: 53342
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53342
Log:
[svn-upgrade] Integrating new upstream version, libsvn-look-perl (0.17)
Modified:
branches/upstream/libsvn-look-perl/current/Changes
branches/upstream/libsvn-look-perl/current/META.yml
branches/upstream/libsvn-look-perl/current/README
branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm
branches/upstream/libsvn-look-perl/current/t/01-commands.t
Modified: branches/upstream/libsvn-look-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/Changes?rev=53342&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/Changes (original)
+++ branches/upstream/libsvn-look-perl/current/Changes Thu Feb 25 21:14:10 2010
@@ -1,4 +1,8 @@
Revision history for SVN-Look. -*- text -*-
+
+0.17 2010-02-24
+
+ Minor error correction.
0.16 2010-02-16
Modified: branches/upstream/libsvn-look-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/META.yml?rev=53342&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/META.yml (original)
+++ branches/upstream/libsvn-look-perl/current/META.yml Thu Feb 25 21:14:10 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: SVN-Look
-version: 0.16
+version: 0.17
abstract: A caching wrapper aroung the svnlook command.
license: ~
author:
Modified: branches/upstream/libsvn-look-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/README?rev=53342&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/README (original)
+++ branches/upstream/libsvn-look-perl/current/README Thu Feb 25 21:14:10 2010
@@ -1,6 +1,6 @@
Name: SVN-Look
What: A caching wrapper aroung the svnlook command.
-Version: 0.16
+Version: 0.17
Author: Gustavo Chaves <gnustavo at cpan.org>
SVN-Look is a caching wrapper aroung the svnlook command.
Modified: branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm?rev=53342&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm (original)
+++ branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm Thu Feb 25 21:14:10 2010
@@ -11,11 +11,11 @@
=head1 VERSION
-Version 0.16
-
-=cut
-
-our $VERSION = '0.16';
+Version 0.17
+
+=cut
+
+our $VERSION = '0.17';
=head1 SYNOPSIS
@@ -498,6 +498,7 @@
my ($key, $value) = split /:\s*/, $line, 2;
if ($key =~ /^Comment/) {
$lock{Comment} = join('', @lock);
+ last;
}
else {
$lock{$key} = $value;
Modified: branches/upstream/libsvn-look-perl/current/t/01-commands.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/t/01-commands.t?rev=53342&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/t/01-commands.t (original)
+++ branches/upstream/libsvn-look-perl/current/t/01-commands.t Thu Feb 25 21:14:10 2010
@@ -6,12 +6,8 @@
require "test-functions.pl";
-my $nof_tests = 12;
-my $login = getlogin || getpwuid($<) || $ENV{USER};
---$nof_tests unless $login;
-
if (has_svn()) {
- plan tests => $nof_tests;
+ plan tests => 13;
}
else {
plan skip_all => 'Need svn commands in the PATH.';
@@ -30,8 +26,19 @@
ok(defined $look, 'constructor');
-cmp_ok($look->author(), 'eq', $login, 'author')
- if $login;
+# Grok the author name
+my $author;
+open my $svn, '-|', "svn info $t/wc/file"
+ or die "Can't exec svn info\n";
+while (<$svn>) {
+ if (/Author: (.*)$/) {
+ $author = $1;
+ }
+}
+close $svn;
+ok(defined $author, 'grok author');
+
+cmp_ok($look->author(), 'eq', $author, 'author');
cmp_ok($look->log_msg(), 'eq', "log\n", 'log_msg');
More information about the Pkg-perl-cvs-commits
mailing list