r57101 - in /branches/upstream/libsvn-look-perl/current: Changes META.yml README lib/SVN/Look.pm t/00-load.t t/01-commands.t t/test-functions.pl

[angelabad-guest at users.alioth.debian.org]

Author: angelabad-guest
Date: Thu Apr 29 09:32:48 2010
New Revision: 57101

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57101
Log:
[svn-upgrade] Integrating new upstream version, libsvn-look-perl (0.18)

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/00-load.t
    branches/upstream/libsvn-look-perl/current/t/01-commands.t
    branches/upstream/libsvn-look-perl/current/t/test-functions.pl

Modified: branches/upstream/libsvn-look-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/Changes?rev=57101&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/Changes (original)
+++ branches/upstream/libsvn-look-perl/current/Changes Thu Apr 29 09:32:48 2010
@@ -1,4 +1,8 @@
 Revision history for SVN-Look. -*- text -*-
+
+0.18	2010-04-28
+
+	Being more careful during tests.
 
 0.17    2010-02-24
 

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=57101&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/META.yml (original)
+++ branches/upstream/libsvn-look-perl/current/META.yml Thu Apr 29 09:32:48 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                SVN-Look
-version:             0.17
+version:             0.18
 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=57101&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/README (original)
+++ branches/upstream/libsvn-look-perl/current/README Thu Apr 29 09:32:48 2010
@@ -1,6 +1,6 @@
 Name:    SVN-Look
 What:    A caching wrapper aroung the svnlook command.
-Version: 0.17
+Version: 0.18
 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=57101&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm (original)
+++ branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm Thu Apr 29 09:32:48 2010
@@ -11,11 +11,11 @@
 
 =head1 VERSION
 
-Version 0.17
-
-=cut
-
-our $VERSION = '0.17';
+Version 0.18
+
+=cut
+
+our $VERSION = '0.18';
 
 =head1 SYNOPSIS
 

Modified: branches/upstream/libsvn-look-perl/current/t/00-load.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/t/00-load.t?rev=57101&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/t/00-load.t (original)
+++ branches/upstream/libsvn-look-perl/current/t/00-load.t Thu Apr 29 09:32:48 2010
@@ -5,11 +5,11 @@
 
 require "test-functions.pl";
 
-if (has_svn()) {
+if (can_svn()) {
     plan tests => 1;
 }
 else {
-    plan skip_all => 'Need svn commands in the PATH.';
+    plan skip_all => 'Cannot find or use svn commands.';
 }
 
 require_ok('SVN::Look');

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=57101&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/t/01-commands.t (original)
+++ branches/upstream/libsvn-look-perl/current/t/01-commands.t Thu Apr 29 09:32:48 2010
@@ -6,11 +6,11 @@
 
 require "test-functions.pl";
 
-if (has_svn()) {
+if (can_svn()) {
     plan tests => 13;
 }
 else {
-    plan skip_all => 'Need svn commands in the PATH.';
+    plan skip_all => 'Cannot find or use svn commands.';
 }
 
 my $t = reset_repo();

Modified: branches/upstream/libsvn-look-perl/current/t/test-functions.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/t/test-functions.pl?rev=57101&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/t/test-functions.pl (original)
+++ branches/upstream/libsvn-look-perl/current/t/test-functions.pl Thu Apr 29 09:32:48 2010
@@ -7,11 +7,12 @@
 use Cwd;
 use File::Temp qw/tempdir/;
 use File::Spec::Functions qw/catfile path/;
+use File::Path;
 
 # Make sure the svn messages come in English.
 $ENV{LC_MESSAGES} = 'C';
 
-sub has_svn {
+sub can_svn {
   CMD:
     for my $cmd (qw/svn svnadmin svnlook/) {
 	for my $path (path()) {
@@ -19,7 +20,12 @@
 	}
 	return 0;
     }
-    return 1;
+
+    my $T = tempdir('t.XXXX', DIR => getcwd());
+    my $canuseit = system("svnadmin create $T/repo") == 0;
+    rmtree($T);
+
+    return $canuseit;
 }
 
 our $T;