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]

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');