r57069 - in /branches/upstream/libsvn-hooks-perl/current: ./ lib/SVN/ lib/SVN/Hooks/ t/
carnil-guest at users.alioth.debian.org
carnil-guest at users.alioth.debian.org
Wed Apr 28 20:01:52 UTC 2010
Author: carnil-guest
Date: Wed Apr 28 20:01:26 2010
New Revision: 57069
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57069
Log:
[svn-upgrade] Integrating new upstream version, libsvn-hooks-perl (0.28)
Modified:
branches/upstream/libsvn-hooks-perl/current/Changes
branches/upstream/libsvn-hooks-perl/current/META.yml
branches/upstream/libsvn-hooks-perl/current/README
branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks.pm
branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks/DenyChanges.pm
branches/upstream/libsvn-hooks-perl/current/t/00-load.t
branches/upstream/libsvn-hooks-perl/current/t/02-allowlogchange.t
branches/upstream/libsvn-hooks-perl/current/t/02-allowpropchange.t
branches/upstream/libsvn-hooks-perl/current/t/02-checkcapability.t
branches/upstream/libsvn-hooks-perl/current/t/02-checkjira.t
branches/upstream/libsvn-hooks-perl/current/t/02-checklog.t
branches/upstream/libsvn-hooks-perl/current/t/02-checkmimetypes.t
branches/upstream/libsvn-hooks-perl/current/t/02-checkproperty.t
branches/upstream/libsvn-hooks-perl/current/t/02-checkstructure.t
branches/upstream/libsvn-hooks-perl/current/t/02-denychanges.t
branches/upstream/libsvn-hooks-perl/current/t/02-denyfilenames.t
branches/upstream/libsvn-hooks-perl/current/t/02-jiraacceptance.t
branches/upstream/libsvn-hooks-perl/current/t/02-mailer.t
branches/upstream/libsvn-hooks-perl/current/t/02-notify.t
branches/upstream/libsvn-hooks-perl/current/t/02-updateconffile.t
branches/upstream/libsvn-hooks-perl/current/t/test-functions.pl
Modified: branches/upstream/libsvn-hooks-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/Changes?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/Changes (original)
+++ branches/upstream/libsvn-hooks-perl/current/Changes Wed Apr 28 20:01:26 2010
@@ -1,4 +1,8 @@
Revision history for SVN-Hooks. -*- text -*-
+
+0.28 2010-04-28
+
+ Being more careful during tests.
0.27 2010-03-09
Modified: branches/upstream/libsvn-hooks-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/META.yml?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/META.yml (original)
+++ branches/upstream/libsvn-hooks-perl/current/META.yml Wed Apr 28 20:01:26 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: SVN-Hooks
-version: 0.27
+version: 0.28
abstract: A framework for implementing Subversion hooks.
license: ~
author:
Modified: branches/upstream/libsvn-hooks-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/README?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/README (original)
+++ branches/upstream/libsvn-hooks-perl/current/README Wed Apr 28 20:01:26 2010
@@ -1,6 +1,6 @@
Name: SVN-Hooks
What: Framework for Subversion hooks
-Version: 0.27
+Version: 0.28
Author: Gustavo Chaves <gnustavo at cpan.org>
SVN-Hooks is a framework for creating Subversion hooks
Modified: branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks.pm?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks.pm (original)
+++ branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks.pm Wed Apr 28 20:01:26 2010
@@ -15,11 +15,11 @@
=head1 VERSION
-Version 0.27
+Version 0.28
=cut
-our $VERSION = '0.27';
+our $VERSION = '0.28';
=head1 SYNOPSIS
Modified: branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks/DenyChanges.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks/DenyChanges.pm?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks/DenyChanges.pm (original)
+++ branches/upstream/libsvn-hooks-perl/current/lib/SVN/Hooks/DenyChanges.pm Wed Apr 28 20:01:26 2010
@@ -46,7 +46,7 @@
DENY_UPDATE(qr/^tags/); # Can't modify tags
-=head2 DENY_EXCEMPT_USERS(LIST)
+=head2 DENY_EXCEPT_USERS(LIST)
This directive receives a list of user names which are to be exempt
from the rules specified by the other directives.
Modified: branches/upstream/libsvn-hooks-perl/current/t/00-load.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/t/00-load.t?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/t/00-load.t (original)
+++ branches/upstream/libsvn-hooks-perl/current/t/00-load.t Wed Apr 28 20:01:26 2010
@@ -7,11 +7,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.';
}
my $t = reset_repo();
Modified: branches/upstream/libsvn-hooks-perl/current/t/02-allowlogchange.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/t/02-allowlogchange.t?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/t/02-allowlogchange.t (original)
+++ branches/upstream/libsvn-hooks-perl/current/t/02-allowlogchange.t Wed Apr 28 20:01:26 2010
@@ -7,11 +7,11 @@
require "test-functions.pl";
-if (has_svn()) {
+if (can_svn()) {
plan tests => 8;
}
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-hooks-perl/current/t/02-allowpropchange.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/t/02-allowpropchange.t?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/t/02-allowpropchange.t (original)
+++ branches/upstream/libsvn-hooks-perl/current/t/02-allowpropchange.t Wed Apr 28 20:01:26 2010
@@ -7,11 +7,11 @@
require "test-functions.pl";
-if (has_svn()) {
+if (can_svn()) {
plan tests => 8;
}
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-hooks-perl/current/t/02-checkcapability.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/t/02-checkcapability.t?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/t/02-checkcapability.t (original)
+++ branches/upstream/libsvn-hooks-perl/current/t/02-checkcapability.t Wed Apr 28 20:01:26 2010
@@ -7,11 +7,11 @@
require "test-functions.pl";
-if (has_svn()) {
+if (can_svn()) {
plan tests => 3;
}
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-hooks-perl/current/t/02-checkjira.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/t/02-checkjira.t?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/t/02-checkjira.t (original)
+++ branches/upstream/libsvn-hooks-perl/current/t/02-checkjira.t Wed Apr 28 20:01:26 2010
@@ -7,8 +7,8 @@
require "test-functions.pl";
-if (not has_svn()) {
- plan skip_all => 'Need svn commands in the PATH.';
+if (not can_svn()) {
+ plan skip_all => 'Cannot find or use svn commands.';
}
elsif (not eval {require JIRA::Client}) {
plan skip_all => 'Need JIRA::Client';
Modified: branches/upstream/libsvn-hooks-perl/current/t/02-checklog.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/t/02-checklog.t?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/t/02-checklog.t (original)
+++ branches/upstream/libsvn-hooks-perl/current/t/02-checklog.t Wed Apr 28 20:01:26 2010
@@ -7,11 +7,11 @@
require "test-functions.pl";
-if (has_svn()) {
+if (can_svn()) {
plan tests => 5;
}
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-hooks-perl/current/t/02-checkmimetypes.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/t/02-checkmimetypes.t?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/t/02-checkmimetypes.t (original)
+++ branches/upstream/libsvn-hooks-perl/current/t/02-checkmimetypes.t Wed Apr 28 20:01:26 2010
@@ -7,11 +7,11 @@
require "test-functions.pl";
-if (has_svn()) {
+if (can_svn()) {
plan tests => 5;
}
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-hooks-perl/current/t/02-checkproperty.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/t/02-checkproperty.t?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/t/02-checkproperty.t (original)
+++ branches/upstream/libsvn-hooks-perl/current/t/02-checkproperty.t Wed Apr 28 20:01:26 2010
@@ -7,11 +7,11 @@
require "test-functions.pl";
-if (has_svn()) {
+if (can_svn()) {
plan tests => 20;
}
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-hooks-perl/current/t/02-checkstructure.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/t/02-checkstructure.t?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/t/02-checkstructure.t (original)
+++ branches/upstream/libsvn-hooks-perl/current/t/02-checkstructure.t Wed Apr 28 20:01:26 2010
@@ -7,11 +7,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-hooks-perl/current/t/02-denychanges.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/t/02-denychanges.t?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/t/02-denychanges.t (original)
+++ branches/upstream/libsvn-hooks-perl/current/t/02-denychanges.t Wed Apr 28 20:01:26 2010
@@ -7,11 +7,11 @@
require "test-functions.pl";
-if (has_svn()) {
+if (can_svn()) {
plan tests => 10;
}
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-hooks-perl/current/t/02-denyfilenames.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/t/02-denyfilenames.t?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/t/02-denyfilenames.t (original)
+++ branches/upstream/libsvn-hooks-perl/current/t/02-denyfilenames.t Wed Apr 28 20:01:26 2010
@@ -7,11 +7,11 @@
require "test-functions.pl";
-if (has_svn()) {
+if (can_svn()) {
plan tests => 4;
}
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-hooks-perl/current/t/02-jiraacceptance.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/t/02-jiraacceptance.t?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/t/02-jiraacceptance.t (original)
+++ branches/upstream/libsvn-hooks-perl/current/t/02-jiraacceptance.t Wed Apr 28 20:01:26 2010
@@ -7,8 +7,8 @@
require "test-functions.pl";
-if (not has_svn()) {
- plan skip_all => 'Need svn commands in the PATH.';
+if (not can_svn()) {
+ plan skip_all => 'Cannot find or use svn commands.';
}
elsif (not eval {require XMLRPC::Lite}) {
plan skip_all => 'Need XMLRPC::Lite';
Modified: branches/upstream/libsvn-hooks-perl/current/t/02-mailer.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/t/02-mailer.t?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/t/02-mailer.t (original)
+++ branches/upstream/libsvn-hooks-perl/current/t/02-mailer.t Wed Apr 28 20:01:26 2010
@@ -9,8 +9,8 @@
my $io_available = 1;
-if (not has_svn()) {
- plan skip_all => 'Need svn commands in the PATH.';
+if (not can_svn()) {
+ plan skip_all => 'Cannot find or use svn commands.';
}
elsif (not eval {require Email::Send}) {
plan skip_all => 'Need Email::Send';
Modified: branches/upstream/libsvn-hooks-perl/current/t/02-notify.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/t/02-notify.t?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/t/02-notify.t (original)
+++ branches/upstream/libsvn-hooks-perl/current/t/02-notify.t Wed Apr 28 20:01:26 2010
@@ -7,8 +7,8 @@
require "test-functions.pl";
-if (not has_svn()) {
- plan skip_all => 'Need svn commands in the PATH.';
+if (not can_svn()) {
+ plan skip_all => 'Cannot find or use svn commands.';
}
elsif (! eval {require SVN::Notify}) {
plan skip_all => 'Need SVN::Notify.';
Modified: branches/upstream/libsvn-hooks-perl/current/t/02-updateconffile.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/t/02-updateconffile.t?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/t/02-updateconffile.t (original)
+++ branches/upstream/libsvn-hooks-perl/current/t/02-updateconffile.t Wed Apr 28 20:01:26 2010
@@ -7,11 +7,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-hooks-perl/current/t/test-functions.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-hooks-perl/current/t/test-functions.pl?rev=57069&op=diff
==============================================================================
--- branches/upstream/libsvn-hooks-perl/current/t/test-functions.pl (original)
+++ branches/upstream/libsvn-hooks-perl/current/t/test-functions.pl Wed Apr 28 20:01:26 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;
More information about the Pkg-perl-cvs-commits
mailing list